Torna al Thread
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim strProvider As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\DbOggetti.mdb"
Dim strConnessione As String = strProvider
Dim query As String
Dim Rag As String = Me.TxtRagione.Text
Dim Indi As String = Me.TxtInd.Text
Using ConnIns As New OleDb.OleDbConnection(strConnessione)
ConnIns.Open()
query = "INSERT INTO Anagrafica (Ragione Sociale, Indirizzo) VALUES (" & Me.TxtRagione.Text & ", '" & Me.TxtInd.Text & "'))"
Dim InsCli As New OleDb.OleDbCommand(query, ConnIns)
Dim ResultCli As Integer
ResultCli = InsCli.ExecuteNonQuery
End Using