La tabella clienti ha questi campi:
Codice_Cli, Nominativo_Cli, Indirizzo_Cli, Località_Cli, Provincia_Cli, Cap_Cli, PartitaIVA_Cli, CodiceFiscale_Cli
La tabella etichette ha questi campi:
Nominativo, Indirizzo, Cap, Località, Provincia
Dalla tabella "clienti" faccio una ricerca per codice ed estraggo solamente Nominatvo_Cli, Indirizzo_Cli, Cap_Cli, Località_Cli, Provincia_Cli e i dati estratti vengono visualizzati nelle relative textbox
'Per ricercare il record che mi interessa faccio così
Private Sub ButtonOk_Click(ByVal sender As System.Object, ByVAl e As System.EventArgs) Handles ButtonOk.Click
OleDbDataAdapter1.SelectCommand.Parameters("Codice_Cli").Value=TextboxCodice.text
DataSetClienti.Clear
OleDbDataAdapter1.Fill(DatasetClienti)
End Sub
'Cerco di inserire i dati dalle textbox a "Etichette" in questo modo:
Private Sub ButtonInserisci_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonInserisci.Click
Dim nom, ind, cap, loc, prov as String
nom = TextboxNominativo.Text : ind = TextboxIndirizzo.Text
cap = TextboxCap.Text: loc = TextboxLocalità.Text
prov = TextboxProvCli.Text
Dim connstring As String = "Provider=Microsoft.Jet.Oledb.4.0; Data Source=" _
" c:\ Anagrafiche.mdb"
Dim commandString As String= "INSERT INTO [etichette] (nominativo,indirizzo,cap,località,provincia) Values ('" + nom + "','" + ind + "', '" + cap + "','" + loc + "','" + prov "')"
Dim con as New OleDbConnection(connstring)
Dim cmd As new OleDbCommand(commandString, con)
con.Open()
cmd.ExecuteNonQuery()
con.Close()
End Sub
Questo è il codice, spero di essere stato un po' più chiaro stavolta...
Ho notato anche che se non effettuo la ricerca, ma digito io i dati nelle textbox non c'è nessun problemi e questi vengono registrati normalmente
Grazie ancora
Stefano