Tengo el siguiente código que en teoría debería hacer una inserción de un registro en una base de datos, pero no se porque no me hace la inserción que debería, alguien me puede ayudar?
tengo en un botón lo siguiente:
Private Sub ImageButton1_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton1.Click
Dim comando As String = "SELECT * FROM USUARIOS"
Dim comando1 As String = "SELECT * FROM Clientes"
Conexion(comando, comando1)
End Sub
Y el procedimiento es el siguiente:
Sub Conexion(ByVal comando As String, ByVal comando1 As String)
Dim conex As New OleDb.OleDbConnection 'Cadena de conexión
'Información del proveedor, ID, DataSource
conex.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=C:\luis-ASPNET\BonsiFloral\bin\Bonsi.mdb"
'conex.Open() 'Abro la conexión
'Defino el adaptador con el comando asociado que se lo paso por parámetro.
Dim adaptador As New OleDb.OleDbDataAdapter(comando, conex)
Dim adaptador2 As New OleDb.OleDbDataAdapter(comando1, conex)
Dim bui As New OleDb.OleDbCommandBuilder(adaptador)
'Defino y relleno el dataset correspondiente con los datos obtenidos del comando
Dim ds As New DataSet
adaptador.Fill(ds, "Usuarios")
adaptador2.Fill(ds, "Cliente")
'conex.Close() 'Cierro la conexión
'Defino una nueva fila, creando una fila de la tabla especificada en la tabla usuarios
Dim fila As DataRow = ds.Tables("Usuarios").NewRow
'Actualice la nueva fila como si fuese un registro existente, es decir:
'Asociarle un valor a cada columna.
fila("IdUsuario") = 2
fila("Login") = txtLogin.Text
fila("Password") = txtPassword.Text
'Añado la fila a la tabla correspondiente del dataset
ds.Tables("Usuarios").Rows.Add(fila)
'ds.AcceptChanges()
'Una vez añadida a la tabla del dataset, tengo que añadirlo a la tabla de la BD original
adaptador.Update(ds, "Usuarios")
End Sub
Alguien me puede ayudar con esto?, Gracias.
