
SI ME PUEDEN AYUDA ES LOS AGRADECERE
| |||
Yo lo hago asi... Public Overrides Sub Modificar(ByVal Objeto As Object) Try Dim ds As New DataSet Me.AbrirConexion() Me.command = New OleDb.OleDbCommand("SELECT * FROM Editores WHERE EditorID= " & Objeto.EditorID, conexion) Me.daEditor = New OleDb.OleDbDataAdapter(command) Dim autogen As New OleDb.OleDbCommandBuilder(daEditor) daEditor.Fill(ds, "Editores") daEditor.UpdateCommand = autogen.GetUpdateCommand Me.CerrarConexion() Dim unaFila As DataRow = ds.Tables("Editores").Rows(0) With unaFila .Item("Perfil") = Objeto.perfil .Item("Gen1") = Objeto.gen1 .Item("Gen2") = Objeto.gen2 .Item("Gen3") = Objeto.gen3 End With Me.daEditor.Update(ds, "Editores") Catch ex As Exception Throw ex End Try End Sub Espero que te sirva.... |