¿ Porqué no funciona Update ?
Publicado por Roberto (4 intervenciones) el 02/09/2003 14:22:06
Hola: Por favor, agradecería mucho me ayuden con un problema que no puedo resolver hace días. Tengo un código para hacer un Update a una base Access, y si bien he verificado que puede leerla , no graba los datos modificados:
Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Ole DB Services=-4; Data Source=" & server.mappath(".\Datos.mdb") & ";"
Dim MydbConnection As System.Data.OleDb.OledbConnection = New System.Data.OleDb.OledbConnection(connectionString)
Dim SQL1 As String = "SELECT * FROM SOCIOS"
Dim MydbCommand As System.Data.OleDb.OledbCommand = New System.Data.OleDb.OledbCommand
MydbCommand.CommandText = SQL1
MydbCommand.Connection = MydbConnection
Dim MyDataAdapter As System.Data.OleDb.OleDbDataAdapter = New System.Data.OleDb.OleDbDataAdapter
MyDataAdapter.SelectCommand = MydbCommand
Dim MyDataSet As System.Data.DataSet = New System.Data.DataSet
Dim custCB As System.Data.OleDb.OleDbCommandBuilder = New System.Data.OleDb.OleDbCommandBuilder(myDataAdapter)
MyDataAdapter.Fill(MyDataSet,"SOCIOS")
SQL1="UPDATE SOCIOS SET ................ " (aquí vá el Update)
MydbCommand.CommandText =SQL1
MyDataAdapter.update(MyDataSet,"SOCIOS")
¿Qué estoy haciendo mal ?
Desde ya muchas Gracias.
Rob
Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Ole DB Services=-4; Data Source=" & server.mappath(".\Datos.mdb") & ";"
Dim MydbConnection As System.Data.OleDb.OledbConnection = New System.Data.OleDb.OledbConnection(connectionString)
Dim SQL1 As String = "SELECT * FROM SOCIOS"
Dim MydbCommand As System.Data.OleDb.OledbCommand = New System.Data.OleDb.OledbCommand
MydbCommand.CommandText = SQL1
MydbCommand.Connection = MydbConnection
Dim MyDataAdapter As System.Data.OleDb.OleDbDataAdapter = New System.Data.OleDb.OleDbDataAdapter
MyDataAdapter.SelectCommand = MydbCommand
Dim MyDataSet As System.Data.DataSet = New System.Data.DataSet
Dim custCB As System.Data.OleDb.OleDbCommandBuilder = New System.Data.OleDb.OleDbCommandBuilder(myDataAdapter)
MyDataAdapter.Fill(MyDataSet,"SOCIOS")
SQL1="UPDATE SOCIOS SET ................ " (aquí vá el Update)
MydbCommand.CommandText =SQL1
MyDataAdapter.update(MyDataSet,"SOCIOS")
¿Qué estoy haciendo mal ?
Desde ya muchas Gracias.
Rob
Valora esta pregunta


0