recuperare dato database

**donini** · 15-10-2006, 22:03

ciao sono quasi al termine del mio progetto per paghe ho un problema ,
il mio progetto è composto da 16 textbox numeriche dove io vado a inserire i vari valori e di 3 combobox dove inserisco il Nome dell operaio il mese e l anno il tutto si appoggia a un database access.
il problema è il seguente devo recuperare un dato chiamato (residuo mese succesivo) in una textbox chiamata residuo mese precedente ma il dato viene recuperato in base alle condizioni specifiche cio dopo aver inserito il nome il cognome e l anno.-
come posso fare questo è il codice di connessione al database

Private Sub cmdSeleziona_Click()
' VERIFICO CHE SIA SELEZIONATO UN RECORD REALE (NON VUOTO)
  If cmbSeleziona.Text = "" Then
    lblMessaggio.Caption = "Selezionare un Utente valido"
  Else
    lblMessaggio.Caption = ""

    ' UTILIZZO LA FUNZIONE SPLIT PER RECUPERARE IL VALORE ID NELLA COMBO BOX
    s = Split(cmbSeleziona.Text, " ")
    

    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset

    
    ' APRO LA CONNESSIONE E LANCIO LA QUERY PER RECUPERARE IL RECORD SELEZIONATO
    cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=paghe.mdb"
    rs.Open "SELECT * FROM paghe WHERE id = " & CInt(s(0)), cn, 1


    ' RIEMPIO I CAMPI DELLA FORM CON I VALORI ESTRATTI DAL DATABASE
    NOME.Text = rs("nome").Value
    MESE.Text = rs("mese").Value
    ANNO.Text = rs("anno").Value
    ORE_LAV.Text = rs("ore lavorate").Value
    ORE_FES.Text = rs("ore festivita").Value
    PREZZO_ORA.Text = rs("prezzo ora").Value
    IMP_SALARIO.Text = rs("importo salario").Value
    IMP_FESTIVITA.Text = rs("importo festivita").Value
    MALATT_MATERN.Text = rs("malattia maternita").Value
    PREZZO_PREMI.Text = rs("prezzo premi").Value
    PREMI_E_ALTRE_VOCI.Text = rs("importo altre voci").Value
    IMPORTO_LORDO.Text = rs("importo lordo").Value
    IRPAF.Text = rs("irpaf").Value
    CONTRIB_IMPS.Text = rs("contributi imps").Value
    IMPORTO_NETTO.Text = rs("importo netto").Value
    IMPORTO_BUSTA.Text = rs("importo busta").Value
    IMPORTO_ASSEG.Text = rs("importo assegno").Value
    SALDO.Text = rs("saldo").Value
    IMPORTO_PAGATO.Text = rs("importo pagato").Value
    rs.Close
    cn.Close
  End If
End Sub

Private Sub cmdCancella_Click()
' CONTROLLO CHE IL RECORD SELEZIONATO NON SIA VUOTO
  If cmbSeleziona.Text = "" Then
    lblMessaggio.Caption = "Selezionare un Utente valido"
  Else
    ' COME SOPRA...
    s = Split(cmbSeleziona.Text, " ")

    ' ESEGUO LA CANCELLAZIONE DEL RECORD SELEZIONATO
    Set cn = New ADODB.Connection
    cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=paghe.mdb"
    cn.Execute ("DELETE * FROM paghe WHERE id = " & CInt(s(0)))
    cn.Close

    ' PULISCO E RICARICO LA COMBO BOX
    cmbSeleziona.Clear
    Call Form_Load
  End If
End Sub

Private Sub cmdSalva_Click()
' CONTROLLO LA VALIDITA' DEI CAMPI

  If Len(Trim(ORE_LAV.Text)) = 0 Or IsNumeric(ORE_LAV.Text) = False Then
    lblMessaggio.Caption = "Inserire ore lavorate"
    ORE_LAV.SetFocus
  ElseIf Len(Trim(ORE_FES.Text)) = 0 Or IsNumeric(ORE_FES.Text) = False Then
    lblMessaggio.Caption = "Inserire ore festivita"
    ORE_FES.SetFocus
  ElseIf Len(Trim(PREZZO_ORA.Text)) = 0 Or IsNumeric(PREZZO_ORA.Text) = False Then
    lblMessaggio.Caption = "Inserire prezzo "
    PREZZO_ORA.SetFocus
  ElseIf Len(Trim(IMP_SALARIO.Text)) = 0 Or IsNumeric(IMP_SALARIO.Text) = False Then
    lblMessaggio.Caption = "Inserire il importo salario "
    IMP_SALARIO.SetFocus
  Else ' SE TUTTE LE CONDIZIONI SONO STATE SODDISFATTE...

    ' COMANDO SQL A SECONDA CHE SI TRATTI DI UNA INSERT O DI UN UPDATE
    Dim SQL As String
    ' MESSAGGIO DI CONFERMA (SECONDO LO STESSO CRITERIO DESCRITTO SOPRA)
    Dim conferma As String

    ' COME SOPRA...
    s = Split(cmbSeleziona.Text, " ")

    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset

    cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=paghe.mdb"

    If cmbSeleziona.Text = "" Then ' ...ESEGUO LA INSERT
      SQL = "INSERT INTO paghe " _
      & "(nome, mese, anno, [ore lavorate], [ore festivita], [prezzo ora], [importo salario], [importo festivita], [malattia maternita],[prezzo premi]," _
      & "[importo altre voci], [importo lordo], [irpaf], [contributi imps], [importo netto], [importo busta], [importo assegno], [saldo]," _
      & "[importo pagato])VALUES " _
      & "('" & Replace(NOME.Text, "'", "''") & "', " _
      & "'" & Replace(MESE.Text, "'", "''") & "', " _
      & "'" & Replace(ANNO.Text, "'", "''") & "', " _
      & "'" & Replace(ORE_LAV.Text, "'", "''") & "', " _
      & "'" & Replace(ORE_FES.Text, "'", "''") & "', " _
      & "'" & Replace(PREZZO_ORA.Text, "'", "''") & "', " _
      & "'" & Replace(IMP_SALARIO.Text, "'", "''") & "'," _
      & "'" & Replace(IMP_FESTIVITA.Text, "'", "''") & "'," _
      & "'" & Replace(MALATT_MATERN.Text, "'", "''") & "'," _
      & "'" & Replace(PREZZO_PREMI.Text, "'", "''") & "'," _
      & "'" & Replace(PREMI_E_ALTRE_VOCI.Text, "'", "''") & "'," _
      & "'" & Replace(IMPORTO_LORDO.Text, "'", "''") & "'," _
      & "'" & Replace(IRPAF.Text, "'", "''") & "'," _
      & "'" & Replace(CONTRIB_IMPS.Text, "'", "''") & "'," _
      & "'" & Replace(IMPORTO_NETTO.Text, "'", "''") & "'," _
      & "'" & Replace(IMPORTO_BUSTA.Text, "'", "''") & "'," _
      & "'" & Replace(IMPORTO_ASSEG.Text, "'", "''") & "'," _
      & "'" & Replace(SALDO.Text, "'", "''") & "'," _
      & "'" & Replace(IMPORTO_PAGATO.Text, "'", "''") & "')"
      conferma = "Inserimento effettuato con successo"
    Else ' ...ESEGUO L'UPDATE
      SQL = "UPDATE paghe SET " _
      & "[nome] = '" & Replace(NOME.Text, "'", "''") & "', " _
      & "[mese] = '" & Replace(MESE.Text, "'", "''") & "', " _
      & "[anno] = '" & Replace(ANNO.Text, "'", "''") & "', " _
      & "[ore lavorate] = '" & Replace(ORE_LAV.Text, "'", "''") & "', " _
      & "[ore festivita] = '" & Replace(ORE_FES.Text, "'", "''") & "', " _
      & "[prezzo ora] = '" & Replace(PREZZO_ORA.Text, "'", "''") & "', " _
      & "[importo salario] = '" & Replace(IMP_SALARIO.Text, "'", "''") & "' " _
      & "[importo festivita] = '" & Replace(IMP_FESTIVITA.Text, "'", "''") & "' " _
      & "[malattia maternita] = '" & Replace(MALATT_MATERN.Text, "'", "''") & "' " _
      & "[prezzo premi] = '" & Replace(PREZZO_PREMI.Text, "'", "''") & "' " _
      & "[importo altre voci] = '" & Replace(PREMI_E_ALTRE_VOCI.Text, "'", "''") & "' " _
      & "[importo lordo] = '" & Replace(IMPORTO_LORDO.Text, "'", "''") & "' " _
      & "[irpaf] = '" & Replace(IRPAF.Text, "'", "''") & "' " _
      & "[contributi imps] = '" & Replace(CONTRIB_IMPS.Text, "'", "''") & "' " _
      & "[importo netto] = '" & Replace(IMPORTO_NETTO.Text, "'", "''") & "' " _
      & "[importo busta] = '" & Replace(IMPORTO_BUSTA.Text, "'", "''") & "' " _
      & "[importo assegno] = '" & Replace(IMPORTO_ASSEG.Text, "'", "''") & "' " _
      & "[saldo] = '" & Replace(SALDO.Text, "'", "''") & "' " _
      & "[importo pagato] = '" & Replace(IMPORTO_PAGATO.Text, "'", "''") & "' " _
      & "WHERE id = " & CInt(s(0))
      conferma = "Modifica effettuata con successo"
    End If

    ' ESEGUO IL COMANDO SQL CHE ARRIVA DELLA CONDIZIONE
    cn.Execute (SQL)
    lblMessaggio.Caption = conferma

    cn.Close

    ' PULISCO E RICARICO LA COMBO BOX
    cmbSeleziona.Clear
    Call Form_Load
  End If
End Sub



Private Sub Form_Load()
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
ControlliTAB = "NOME MESE ANNO ORE_LAV ORE_FES PREZZO_ORA IMP_SALARIO IMP_FESTIVITA MALATT_MATERN PREZZO_PREMI PREMI_E_ALTRE_VOCI" _
& "RES_MESE_PREC IMPORTO_LORDO"


' APRO LA CONNESSIONE E LANCIO LA QUERY PER RECUPERARE I DATI

cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=paghe.mdb"
rs.Open "SELECT DISTINCT nome FROM paghe ORDER BY nome ASC", cn, 1
NOME.AddItem ("")
While rs.EOF = False
NOME.AddItem ("" & rs("nome").Value)
rs.MoveNext
Wend
rs.Close
rs.Open "SELECT DISTINCT mese FROM paghe ORDER BY mese ASC", cn, 1
MESE.AddItem ("")
While rs.EOF = False
MESE.AddItem ("" & rs("mese").Value)
rs.MoveNext
Wend
rs.Close
rs.Open "SELECT DISTINCT anno FROM paghe ORDER BY anno ASC", cn, 1
ANNO.AddItem ("")
While rs.EOF = False
ANNO.AddItem ("" & rs("anno").Value)
rs.MoveNext
Wend
rs.Close
rs.Open "SELECT id, nome, mese, anno FROM paghe ORDER BY anno ASC", cn, 1
cmbSeleziona.AddItem ("")
While rs.EOF = False
cmbSeleziona.AddItem (rs("id").Value & " - " & rs("nome").Value & " " & rs("mese").Value & " - " & rs("anno").Value)
rs.MoveNext
Wend
rs.Close
cn.Close
End Sub

**TheTruster** · 15-10-2006, 22:35

donini, se non spieghi bene il problema (e ti assicuro che non l'hai fatto) è inutile postare 20Km di codice, per di più senza utilizzare i tag [code][/code] appositamente creati per formattarlo.

stavolta ho messo io i tags al tuo codice, ma spiega dettagliatamente e comprensibilmente il tuo problema, se desideri risposte esaurienti.

TheTruster

**donini** · 15-10-2006, 22:51

prima di tutto mi scuso per i tag ma non so come si mette
per il mio problema provo a spiegarmi meglio io devo recuperare un dato in un campo access e inserirlo in una text box pero il campo da recuperare deve corrispondere precisamente al nome all'anno e al mese precedente

**sspintux** · 15-10-2006, 22:57

Originariamente inviato da donini

.................................................. .....
...ESEGUO LA INSERT
SQL = "INSERT INTO paghe " _
& "(nome, mese, anno, [ore lavorate], [ore festivita], [prezzo ora], [importo salario], [importo festivita], [malattia maternita],[prezzo premi]," _
& "[importo altre voci], [importo lordo], [irpaf], [contributi imps], [importo netto], [importo busta], [importo assegno], [saldo]," _
& "[importo pagato])VALUES " _
& "('" & Replace(NOME.Text, "'", "''") & "', " _
& "'" & Replace(MESE.Text, "'", "''") & "', " _
& "'" & Replace(ANNO.Text, "'", "''") & "', " _
& "'" & Replace(ORE_LAV.Text, "'", "''") & "', " _
& "'" & Replace(ORE_FES.Text, "'", "''") & "', " _
& "'" & Replace(PREZZO_ORA.Text, "'", "''") & "', " _
& "'" & Replace(IMP_SALARIO.Text, "'", "''") & "'," _
& "'" & Replace(IMP_FESTIVITA.Text, "'", "''") & "'," _
& "'" & Replace(MALATT_MATERN.Text, "'", "''") & "'," _
& "'" & Replace(PREZZO_PREMI.Text, "'", "''") & "'," _
& "'" & Replace(PREMI_E_ALTRE_VOCI.Text, "'", "''") & "'," _
& "'" & Replace(IMPORTO_LORDO.Text, "'", "''") & "'," _
& "'" & Replace(IRPAF.Text, "'", "''") & "'," _
& "'" & Replace(CONTRIB_IMPS.Text, "'", "''") & "'," _
& "'" & Replace(IMPORTO_NETTO.Text, "'", "''") & "'," _
& "'" & Replace(IMPORTO_BUSTA.Text, "'", "''") & "'," _
& "'" & Replace(IMPORTO_ASSEG.Text, "'", "''") & "'," _
& "'" & Replace(SALDO.Text, "'", "''") & "'," _
& "'" & Replace(IMPORTO_PAGATO.Text, "'", "''") & "')"
..............................................

....

... il tag CODEEEEEEEEEEE.....

EDIT ....scusate ma sono rimasto sotto shock per un pò e non avevo visto l'intervento di TheTruster...

**TheTruster** · 16-10-2006, 07:05

Originariamente inviato da donini

prima di tutto mi scuso per i tag ma non so come si mette

niente di più semplice.
nell'editor del messaggio trovi un pulsantino fatto così #
premilo e verranno automaticamente inseriti i tag [code][/code]

basta scrivere il codice tra di essi così:

[code]Questo è
il codice da
inserire tra i tags
per formattarlo
correttamente[/code]

e avrà questo effetto:

Questo è 
    il codice da 
        inserire tra i tags        
    per formattarlo
correttamente

Originariamente inviato da donini

per il mio problema provo a spiegarmi meglio io devo recuperare un dato in un campo access e inserirlo in una text box pero il campo da recuperare deve corrispondere precisamente al nome all'anno e al mese precedente

continuo a non capire... impiega un po' più di 2 righe per descrivere la situazione *reale* corredandola di un esempio di dati *reali*...
non si possono impiegare 10 posts solo per capire il problema, spero che tu ti renda conto...

TheTruster

**slashmad** · 16-10-2006, 12:10

Originariamente inviato da donini

prima di tutto mi scuso per i tag ma non so come si mette
per il mio problema provo a spiegarmi meglio io devo recuperare un dato in un campo access e inserirlo in una text box pero il campo da recuperare deve corrispondere precisamente al nome all'anno e al mese precedente

Potresti farti una ulteriore Query per recuperare il valore che ti interessa, cambiando il mese di riferimento, tipo:

SELECT residuo_mese_precedente FROM tabella WHERE (cognome = 'pippo' AND anno = 2006 AND mese = 9);

Chiaramente i nomi dei campi lì ho inventati io non conosco la struttura del tuo DB.

PS. Un consiglio: Evita di effettuare una connessione nuova ogni volta che devi interrogare il Database.
Creati due funzioni, una che apre la connessione quando avvii il programma ed una che la chiude quando chiudi il programma.

Ciao

**donini** · 16-10-2006, 22:27

proprio non ci riesco a farmi capire, il programma è un programma per paghe operaie, facciamo un esempio
ammettiamo di fare un paga per un operaio inserisco nelle textbox.
nome ,mese ,anno ,ore lavorate, prezzo ora e cosi via ad un certo punto c è una casella dove insisco il residuo del mese in questione. il mese successivo devo recuperare il residuo

**AntonioG** · 17-10-2006, 00:46

Non puoi pretendere che tutti conoscano i termini del tuo problema ...

Cosa vuol dire - per chi non ha idea dell'argomento - "recuperare il residuo"?

Cosa intendi con "residuo"?

**donini** · 17-10-2006, 00:53

posso inviarvi il mio progetto cosi che riusciamo a capirci

**AntonioG** · 17-10-2006, 01:02

Ma perche' non rispondi alle mie domande? Magari argomentando in maniera diffusa ...?

Se mandi il programma, uno se lo deve studiare da zero e non tutti hanno questo tempo da impiegare ...

recuperare dato database

Strumenti

Potrebbero interessarti anche ...