[VB6] Salvare dati in 2 tabelle di Access

[donini]

Ciao devo salvare dati scritti nelle varie textbox in 2 tabelle di access dello stesso database
io con questo codice riesco a salvare e recuperare dati in una tabella ma non so come salvare e recuperare in due tabelle

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

[oregon]

Sinceramente non capisco il problema.

Una tabella sembra essere

paghe

(a giudicare dal codice che mostri).

Ma la seconda tabella qual e'??? Non ne parli assolutamente e nel tuo codice non c'e' traccia di altre tabelle...

Come si fa a risponderti?

P.S. Scusa la nota ma il campo "IRPAF" e' forse relativo all' "IRPEF" ?
E "CONTRIBUTI IMPS" penso proprio debba essere "CONTRIBUTI INPS".

[donini]

ciao scusa se non sono stato preciso la seconda tabella che devo immettere è (residui )e il campo di destinazione è( residuo mese successivo)
io ho provato cosi

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"
Else
SQL = "INSERT INTO residui " _
& "([residuo mese successivo])Values " _
& "('" & Replace(RESIDUO_MESE_SUCCES.Text, "'", "''") & "')"
Else
SQL = "UPDATE paghe SET " _
& "[residuo mese successivo] = '" & Replace(RESIDUO_MESE_SUCCES.Text, "'", "''") & "', " _
& "WHERE id = " & CInt(s(0))
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




mami da errore ( Else senza if)

[oregon]

E' ovvio ... tu hai scritto

If cmbSeleziona.Text = "" Then 
  ...
Else
  ...
Else
  ...
End If

e quindi c'e' una Else in piu'!

Non e' possibile (non ha senso) stabilire che esistano due condizioni Else rispetto ad una If ... cosa volevi fare?

[donini]

ho aggiunto questo codice per salvare i dati in una nuova tabella

Else
SQL = "INSERT INTO residui " _
& "([residuo mese successivo])Values " _
& "('" & Replace(RESIDUO_MESE_SUCCES.Text, "'", "''") & "')"
Else
SQL = "UPDATE paghe SET " _
& "[residuo mese successivo] = '" & Replace(RESIDUO_MESE_SUCCES.Text, "'", "''") & "', " _
& "WHERE id = " & CInt(s(0))

[oregon]

Scusami donini ma mi sembra che tu non abbia compreso pienamente la mia risposta ...

Quei due Else *non* possono esistere ... e' come se dicessi

Se piove non esco altrimenti esco altrimenti ...

Il secondo altrimenti non ha senso.

Devi quindi spiegare *dal punto di vista logico* cosa volevi fare.

"Se" la combo e' vuota fai una insert nella tabella paghe, "altrimenti" (cioe' se la combo non e' vuota) fai una insert nella tabella residui ... ma non puo' esistere un'altra "altrimenti" perche' la combo o e' vuota o non e' vuota ... non esiste un altro caso ...

Non so come dirtelo diversamente, ma e' il senso della tua operazione che non e' corretto ...