Necesito ayuda con mi código de programación en Visual Basic
Disculpa amigo tengo este código
Dim cn As New OleDb.OleDbConnection
Dim ds As New DataSet
Dim da As New OleDbDataAdapter
Try
ds = New DataSet
da = New OleDbDataAdapter("UPDATE tabla SET NOMBRE = '" & txtNombre.Text & "' WHERE (CODIGO = '" & txtCODI.Text & "')", cn)
da.Fill(ds)
MessageBox.Show("Se ha Actualizado Correctamente")
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Me marca que se actualizo, pero entro a la base de datos y no muestra ningún cambio, realize la misma query desde PL/SQL y Hay que darle commit y si funciona, pero no se como hacer commit desde mi aplicación. Espero me puedas ayudar Gracias...
Dim cn As New OleDb.OleDbConnection
Dim ds As New DataSet
Dim da As New OleDbDataAdapter
Try
ds = New DataSet
da = New OleDbDataAdapter("UPDATE tabla SET NOMBRE = '" & txtNombre.Text & "' WHERE (CODIGO = '" & txtCODI.Text & "')", cn)
da.Fill(ds)
MessageBox.Show("Se ha Actualizado Correctamente")
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Me marca que se actualizo, pero entro a la base de datos y no muestra ningún cambio, realize la misma query desde PL/SQL y Hay que darle commit y si funciona, pero no se como hacer commit desde mi aplicación. Espero me puedas ayudar Gracias...
1 Respuesta
Respuesta de Eduardo Saligari
1
Primero error de concepto, un DataAdapter se usa para obtener datos y llenar (FILL) un DataTable o DataSet con al información obtenida.
Segundo, si haces lo correcto no necesitarás hacer el COMMIT ya que se hará automáticamente.
Algo así:
Dim Cnx As new OracleConnection(Conexion);
Dim Ocm As new OracleCommand();
Ocm = new OracleCommand("UPDATE tabla SET NOMBRE = '" & txtNombre.Text & "' WHERE (CODIGO = '" & txtCODI.Text & "')",cn)
Ocm.CommandType = CommandType.Text
Ocm. ExecuteNonQuery()
Listo.
Segundo, si haces lo correcto no necesitarás hacer el COMMIT ya que se hará automáticamente.
Algo así:
Dim Cnx As new OracleConnection(Conexion);
Dim Ocm As new OracleCommand();
Ocm = new OracleCommand("UPDATE tabla SET NOMBRE = '" & txtNombre.Text & "' WHERE (CODIGO = '" & txtCODI.Text & "')",cn)
Ocm.CommandType = CommandType.Text
Ocm. ExecuteNonQuery()
Listo.
