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
Copyright © dotNetHell.it 2002-2024
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5