Dim SQL As String Dim bdataset As New DataSet() Dim chaineConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=c:\Option.mdb;" SQL = "INSERT INTO agence(Champ1, Champ2)" SQL &= " VALUES ('" & Me.TextBox1.Text & "', '" & Me.TextBox2.Text & "')" Dim conexion As New OleDbConnection conexion.ConnectionString = chaineConn conexion.Open() Dim cmd As New OleDbCommand(SQL) Dim dta As New OleDbDataAdapter(cmd) cmd.Connection() = conexion dta.Fill(bdataset) conexion.Close()
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questiondim bdataset As New DataSet() dim chaineConn as string = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=chemin_base_de_données;" SQL = "INSERT INTO agence(Champ1, Champ2)" SQL &= " VALUES ('" & Me.textbox1.Text & "', '" & Me.textbox2.Text & "')" dim conexion as New OleDbConnection conexion.ConnectionString=chaineConn conexion.open() dim cmd as New OleDbCommand(SQL) dim dta as New OleDbDataAdapter(cmd) cmd.connection()=connexion dta.fill(bdataset)
dim chaineConn as string = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=c:\temp\Mabase.mdb;"
dim conexion as New OleDbConnection conexion.ConnectionString=chaineConn conexion.open()
dim SQL as string SQL = "INSERT INTO agence(Champ1, Champ2)" SQL &= " VALUES ('" & Me.textbox1.Text & "', '" & Me.textbox2.Text & "')"
dim cmd as New OleDbCommand(SQL) dim dta as New OleDbDataAdapter(cmd) cmd.connection()=connexion