error al actualizar DB access
Publicado por Mauricio (28 intervenciones) el 22/04/2015 16:13:46
Amigos,
tengo un programita que estoy haciendo y al actualizar los datos que los paso de un datagrid a cajas de texto me muestra el siguiente error "cmd.ExecuteNonQuery()" y me indica que se necesita un comando actualisable el codigo completo es el siguiente:
espero me puedan ayudar ya que es para mi trabajo de titulo
tengo un programita que estoy haciendo y al actualizar los datos que los paso de un datagrid a cajas de texto me muestra el siguiente error "cmd.ExecuteNonQuery()" y me indica que se necesita un comando actualisable el codigo completo es el siguiente:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Try
conexion()
Dim cmd As New OleDbCommand("update bitacora set @fecha= ' DTPFecha.Text ', @horaini= ' DTPHoraIni.Text ', @horaterm= 'DTPHoraTerm.Text ', @planta= ' TxtPlanta.Text ', @equipo= 'TxtEquipo.Text', @observacion= 'TxtInciden.Text ', @usuario= ' TxtUsuario.Text ' where @idBita= ' TxtId.Text ' ", conex)
cmd.Parameters.Add(New OleDbParameter("@idBita", TxtId.Text))
cmd.Parameters.Add(New OleDbParameter("@fecha", DTPFecha.Text))
cmd.Parameters.Add(New OleDbParameter("@horaini", DTPHoraIni.Text))
cmd.Parameters.Add(New OleDbParameter("@horaterm", DTPHoraTerm.Text))
cmd.Parameters.Add(New OleDbParameter("@planta", TxtPlanta.Text))
cmd.Parameters.Add(New OleDbParameter("@equipo", TxtEquipo.Text))
cmd.Parameters.Add(New OleDbParameter("@observacion", TxtInciden.Text))
cmd.Parameters.Add(New OleDbParameter("@usuario", TxtUsuario.Text))
cmd.ExecuteNonQuery()
conex.Open()
cmd.ExecuteNonQuery()
MsgBox("Los registros se han Modificado satisfactoriamente", MsgBoxStyle.Information)
conex.Close()
Catch ex As Exception
MsgBox("Los registros no se han Modificado", MsgBoxStyle.Information)
End Try
espero me puedan ayudar ya que es para mi trabajo de titulo
Valora esta pregunta
0
