Il codice è il seguente:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim insCl As New OleDb.OleDbCommand("INSERT INTO Clienti (Società, Denominazione) VALUES (@soc, @den)", connessione)
Dim insForn As New OleDb.OleDbCommand("INSERT INTO Fornitori (Società, Denominazione) VALUES (@soc, @den)", connessione)
insCl.Parameters.AddWithValue("@soc", TextBox2.Text)
insCl.Parameters.AddWithValue("@den", TextBox1.Text)
insForn.Parameters.AddWithValue("@soc", TextBox2.Text)
insForn.Parameters.AddWithValue("@den", TextBox1.Text)
connessione.Open()
insCl.ExecuteNonQuery()
insForn.ExecuteNonQuery()
connessione.Close()
End Sub
Ho anche provato a inserire, dopo la chiusura della connessione:
Me.FornitoriTableAdapter.Fill(Me.GestioneDataSet.Fornitori)
Me.ClientiTableAdapter.Fill(Me.GestioneDataSet.Clienti)
ma non funziona.
Grazie anticipatamente