12/10/2006, 10:59
|
| | | Fecha de Ingreso: octubre-2006
Mensajes: 12
Antigüedad: 18 años, 5 meses Puntos: 0 | |
| fallo al eliminar registro
Porque me da fallo al eliminar un registro con delete:
cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=|DataDirectory|\basetiempos.mdb")
cn.Open()
cm = New OleDbCommand("DELETE FROM articulos WHERE codigo=@codigo id=@id descripcion=@descripcion cadena=@cadena tiempoprevisto=@tiempoprevisto tiempoespecial=@tiempoespecial tiempoembalaje=@tiempoembalaje comentarios=@comentarios")
cm.Parameters.Add("@codigo", OleDbType.VarChar)
cm.Parameters("@codigo").Value = CodigoTextBox.Text
cm.Parameters.Add("@id", OleDbType.Numeric)
cm.Parameters("@id").Value = IdTextBox.Text
cm.Parameters.Add("@descripcion", OleDbType.VarChar)
cm.Parameters("@descripcion").Value = DescripcionTextBox.Text
cm.Parameters.Add("@cadena", OleDbType.VarChar)
cm.Parameters("@cadena").Value = CadenaTextBox.Text
cm.Parameters.Add("@tiempoprevisto", OleDbType.Numeric)
cm.Parameters("@tiempoprevisto").Value = TiempoprevistoTextBox.Text
cm.Parameters.Add("@tiempoespecial", OleDbType.Numeric)
cm.Parameters("@tiempoespecial").Value = TiempoespecialTextBox.Text
cm.Parameters.Add("@tiempoembalaje", OleDbType.Numeric)
cm.Parameters("@tiempoembalaje").Value = TiempoembalajeTextBox.Text
cm.Parameters.Add("@comentarios", OleDbType.VarChar)
cm.Parameters("@comentarios").Value = ComentariosTextBox.Text
cm.Connection = cn
cm.ExecuteNonQuery()
cn.Close()
MessageBox.Show("Borrado") |