ayuda con un update
Publicado por sebasthian000 (2 intervenciones) el 10/01/2007 16:03:05
Tengo un formulario conectado a una base de datos en access, en estos momentos el insert me lo hace perfectamente pero tengo un problema con el update. el codigo es el siguiente:
Dim conexion As OleDbConnection = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source= C:\Documents and Settings\Administrador\Mis documentos\Visual Studio 2005\Projects\SistematizacionMantenimiento\SistematizacionMantenimiento\mantenimiento.mdb")
Dim comando As OleDbCommand
Dim sentencia As String
sentencia = "UPDATE ordentrabajo SET ortipoor= @tipoor,orfecha= @fecha ,oreqcod= @eqcod,oridentfun= @identfun,orfchinic= @fini,orfchfin= @ffin,ortitotra= @tito,ortra= @trab WHERE ornum='" & txtordentra.Text & "'"
comando = New OleDbCommand(sentencia, conexion)
comando.Parameters.Add(New OleDbParameter("@tipoor", OleDbType.VarWChar, 40))
comando.Parameters("@tipoor").Value = "preventiva"
comando.Parameters.Add(New OleDbParameter("@fecha", OleDbType.VarWChar, 40))
comando.Parameters("@fecha").Value = txtfecha.Text
comando.Parameters.Add(New OleDbParameter("@eqcod", OleDbType.VarWChar, 40))
comando.Parameters("@eqcod").Value = txtcodeq.Text
comando.Parameters.Add(New OleDbParameter("@identfun", OleDbType.VarWChar, 40))
comando.Parameters("@identfun").Value = txtcodenc.Text
comando.Parameters.Add(New OleDbParameter("@fini", OleDbType.VarWChar, 40))
comando.Parameters("@fini").Value = txtfini.Text
comando.Parameters.Add(New OleDbParameter("@ffin", OleDbType.VarWChar, 40))
comando.Parameters("@ffin").Value = txtffin.Text
comando.Parameters.Add(New OleDbParameter("@tito", OleDbType.Integer))
comando.Parameters("@tito").Value = txttito.Text
comando.Parameters.Add(New OleDbParameter("@trab", OleDbType.VarWChar, 200))
comando.Parameters("@trab").Value = txttrab.Text
comando.Connection.Open()
comando.ExecuteNonQuery()
comando.Connection.Close()
gracias
Dim conexion As OleDbConnection = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source= C:\Documents and Settings\Administrador\Mis documentos\Visual Studio 2005\Projects\SistematizacionMantenimiento\SistematizacionMantenimiento\mantenimiento.mdb")
Dim comando As OleDbCommand
Dim sentencia As String
sentencia = "UPDATE ordentrabajo SET ortipoor= @tipoor,orfecha= @fecha ,oreqcod= @eqcod,oridentfun= @identfun,orfchinic= @fini,orfchfin= @ffin,ortitotra= @tito,ortra= @trab WHERE ornum='" & txtordentra.Text & "'"
comando = New OleDbCommand(sentencia, conexion)
comando.Parameters.Add(New OleDbParameter("@tipoor", OleDbType.VarWChar, 40))
comando.Parameters("@tipoor").Value = "preventiva"
comando.Parameters.Add(New OleDbParameter("@fecha", OleDbType.VarWChar, 40))
comando.Parameters("@fecha").Value = txtfecha.Text
comando.Parameters.Add(New OleDbParameter("@eqcod", OleDbType.VarWChar, 40))
comando.Parameters("@eqcod").Value = txtcodeq.Text
comando.Parameters.Add(New OleDbParameter("@identfun", OleDbType.VarWChar, 40))
comando.Parameters("@identfun").Value = txtcodenc.Text
comando.Parameters.Add(New OleDbParameter("@fini", OleDbType.VarWChar, 40))
comando.Parameters("@fini").Value = txtfini.Text
comando.Parameters.Add(New OleDbParameter("@ffin", OleDbType.VarWChar, 40))
comando.Parameters("@ffin").Value = txtffin.Text
comando.Parameters.Add(New OleDbParameter("@tito", OleDbType.Integer))
comando.Parameters("@tito").Value = txttito.Text
comando.Parameters.Add(New OleDbParameter("@trab", OleDbType.VarWChar, 200))
comando.Parameters("@trab").Value = txttrab.Text
comando.Connection.Open()
comando.ExecuteNonQuery()
comando.Connection.Close()
gracias
Valora esta pregunta


0