Bueno lo primero soy nuevo en el foro asi q disculpas por los errores.
Mi problema es que estoy creando un programa en visual basic 2008 conectando una base de datos access, en este programa puedo buscar, modificar,eliminar entre otros.
Pero el problema me viene cuando ingreso en nuevo, el registro se borra eso esta bien pero luego de llenar los campos le doy a guardar y me sale error con esta linea
CMD.ExecuteNonQuery()
Bueno espero puedan ayudarme le dejo el codigo aca y en rojo lo q me marca con el error
Saludos y gracias
el codigo
Imports System.Data
Imports System.Data.OleDb
__________________________________________________ ______________
Public Class Form1
Dim N As Integer = 0
Dim CN As New OleDb.OleDbConnection("PROVIDER=MICROSOFT.ACE.OLED B.12.0;DATA SOURCE=C:\DATABASE.accdb")
'CREAREMOS UN PROCEDIMIENTO PARA MOSTRAR LA TABLA
Sub MOSTRAR()
Dim DA As New OleDb.OleDbDataAdapter("SELECT * FROM TRABAJADOR", CN)
Dim DS As New DataSet
DA.Fill(DS, "TRABAJADOR")
DataGridView1.DataSource = DS.Tables("TRABAJADOR")
End Sub
__________________________________________________ ______________
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'AL MOMENTO QUE CARGE EL FORM1 MUESTRE...
MOSTRAR()
CARGAR()
BLOQUEAR()
CARGAR_CBO()
End Sub
__________________________________________________ ______________
Sub CARGAR()
Dim DA As New OleDb.OleDbDataAdapter("SELECT * FROM TRABAJADOR", CN)
Dim DS As New DataSet
DA.Fill(DS, "TRABAJADOR")
CBOCOD.DataSource = DS.Tables("TRABAJADOR")
CBOCOD.DisplayMember = "COD"
End Sub
__________________________________________________ ______________
Sub CARGAR_CBO()
CBOEQUIPO.Items.Add("Notebook")
CBOEQUIPO.Items.Add("Computador de mesa")
CBOEQUIPO.Items.Add("Pantalla")
CBOEQUIPO.Items.Add("Impresora")
CBOTECN.Items.Add("Rodrigo Urbina Moya")
CBOTECN.Items.Add("Patricio Medina")
End Sub
__________________________________________________ ______________
Sub LIMPIAR()
TXTUSUARIO.Clear()
TXTDEPA.Clear()
TXTSERIE.Clear()
TXTOBSE.Clear()
TXTRECE.Clear()
TXTENTRE.Clear()
CBOCOD.Text = ""
CBOEQUIPO.Text = ""
CBOTECN.Text = ""
End Sub
__________________________________________________ ______________
Sub BLOQUEAR()
BTNBUSCAR.Enabled = True
BTNNEW.Enabled = True
BTNGUARDAR.Enabled = True
BTNMOD.Enabled = True
BTNELIM.Enabled = True
BTNSALIR.Enabled = True
End Sub
__________________________________________________ ______________
Sub DESBLOQUEAR()
BTNBUSCAR.Enabled = False
BTNNEW.Enabled = False
BTNGUARDAR.Enabled = True
BTNMOD.Enabled = False
BTNELIM.Enabled = False
BTNSALIR.Enabled = False
End Sub
__________________________________________________ ______________
Sub BUSCAR_COD()
Dim CMD As New OleDb.OleDbCommand("SELECT * FROM TRABAJADOR WHERE COD='" & CBOCOD.Text & "'", CN)
Dim DR As OleDb.OleDbDataReader
CN.Open()
DR = CMD.ExecuteReader
If DR.Read Then
TXTUSUARIO.Text = DR(1)
TXTDEPA.Text = DR(2)
CBOEQUIPO.Text = DR(3)
TXTSERIE.Text = DR(4)
TXTOBSE.Text = DR(5)
TXTRECE.Text = DR(6)
TXTENTRE.Text = DR(7)
CBOTECN.Text = DR(8)
Else
MsgBox("No se a encontrado su busqueda")
End If
CN.Close()
End Sub
__________________________________________________ _______________
Sub NUEVO()
Dim CMD As New OleDb.OleDbCommand("INSERT INTO TRABAJADOR VALUES ('" & CBOCOD.Text & "','" & TXTUSUARIO.Text & "','" & TXTDEPA.Text & "','" & CBOEQUIPO.Text & "','" & TXTSERIE.Text & "','" & TXTOBSE.Text & "','" & TXTOBSE.Text & "','" & TXTRECE.Text & "','" & TXTENTRE.Text & "','" & CBOTECN.Text & "')", CN)
CN.Open()
CMD.ExecuteNonQuery()
CN.Close()
MOSTRAR()
MsgBox("Registro agregado")
End Sub
__________________________________________________ ______________
Sub MODIFICAR()
Dim CMD As New OleDb.OleDbCommand("UPDATE TRABAJADOR SET COD='" & CBOCOD.Text & "',USUARIO='" & TXTUSUARIO.Text & "',DEPARTAMENTO='" & TXTDEPA.Text & "',EQUIPO='" & CBOEQUIPO.Text & "',SERIE='" & TXTSERIE.Text & "',OBSERVACION='" & TXTOBSE.Text & "',RECEPCION='" & TXTRECE.Text & "',ENTREGA='" & TXTENTRE.Text & "',TECNICO='" & CBOTECN.Text & "' WHERE COD='" & CBOCOD.Text & "'", CN)
CN.Open()
CMD.ExecuteNonQuery()
CN.Close()
MOSTRAR()
MsgBox("Registro actualizado")
End Sub
__________________________________________________ _______________
Private Sub BTNBUSCAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNBUSCAR.Click
BUSCAR_COD()
End Sub
__________________________________________________ _______________
Private Sub BTNNEW_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNNEW.Click
DESBLOQUEAR()
LIMPIAR()
N = 3
End Sub
__________________________________________________ _______________
Private Sub BTNMOD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNMOD.Click
DESBLOQUEAR()
N = 2
End Sub
__________________________________________________ _______________
Private Sub BTNGUARDAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNGUARDAR.Click
If N = 3 Then
NUEVO()
ElseIf N = 2 Then
MODIFICAR()
End If
BLOQUEAR()
LIMPIAR()
CARGAR()
N = 0
End Sub
__________________________________________________ _______________
Private Sub BTNSALIR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNSALIR.Click
End
End Sub
__________________________________________________ _______________
Private Sub BTNELIM_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNELIM.Click
Dim CMD As New OleDb.OleDbCommand("DELETE FROM TRABAJADOR WHERE COD='" & CBOCOD.Text & "'", CN)
CN.Open()
CMD.ExecuteNonQuery()
CN.Close()
LIMPIAR()
CARGAR()
MOSTRAR()
MsgBox("Registro eliminado satisfactoriamente")
End Sub
__________________________________________________ _______________
Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
End Sub
End Class
__________________________________________________ _______________
