Hola muchachos estoy haciendo un sistema de control de inventario , y cuando tengo que hacer la inserción de datos tengo este error ES PARA INSERTAR REGISTROSNO PARA ELIMINAR , ES UN ERROR MIO EL NOMBRE DEL FORM ACLARO POR LAS DUDAS ME DI CUENTA TARDE YA LA HABIA SUBIDO A LA IMAGEN
En la imagen dice algo de la linea 61 , la es cual es esta : cmd.ExecuteNonQuery()
si borro esa linea , hace todo bien el programa pero no inserta los datos en el access :( , cuestión que igual tampoco entiendo que pasa y si tengo bien programadas las tablas dejo el código :
Private Sub btnInsertar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnInsertar.Click
If (Me.Textidentificacion.text = "") Then MsgBox("El campo no puede estar vacio", MsgBoxStyle.Critical, "Atencion") Me.Textidentificacion.Select()
Else Dim identificación As Integer Dim IDnombre As String = "" Dim apellido As String = "" Dim correo As String = "" Dim direccion As String = "" Dim localidad As String = "" Dim DNI As String = "" Dim id As String = ""
Catch ex As Exception If ex.ToString.Contains("valores duplicados") Then MsgBox("el registro ya existe en la base de datos") Else MsgBox(ex.ToString) End If Conn.Close()
Question
Nvidia
Hola muchachos estoy haciendo un sistema de control de inventario , y cuando tengo que hacer la inserción de datos tengo este error ES PARA INSERTAR REGISTROS NO PARA ELIMINAR , ES UN ERROR MIO EL NOMBRE DEL FORM ACLARO POR LAS DUDAS ME DI CUENTA TARDE YA LA HABIA SUBIDO A LA IMAGEN
En la imagen dice algo de la linea 61 , la es cual es esta : cmd.ExecuteNonQuery()
si borro esa linea , hace todo bien el programa pero no inserta los datos en el access :( , cuestión que igual tampoco entiendo que pasa y si tengo bien programadas las tablas dejo el código :
Private Sub btnInsertar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnInsertar.Click
If (Me.Textidentificacion.text = "") Then
MsgBox("El campo no puede estar vacio", MsgBoxStyle.Critical, "Atencion")
Me.Textidentificacion.Select()
Else
Dim identificación As Integer
Dim IDnombre As String = ""
Dim apellido As String = ""
Dim correo As String = ""
Dim direccion As String = ""
Dim localidad As String = ""
Dim DNI As String = ""
Dim id As String = ""
identificacion = Me.Textidentificacion.Text
IDnombre = Me.TextNombre.Text
apellido = Me.Textapellido.Text
correo = Me.TextCorreo.Text
direccion = Me.TextDireccion.Text
localidad = Me.Textlocalidad.Text
DNI = Me.TextDNI.Text
cmd.CommandType = CommandType.Text
cmd.Connection = Conn
sql = "INSERT INTO CLIENTES (id , IDnombre, APPELLIDO , LOCALIDAD , DIRECCION, CORREO , DNI )"
sql += "VALUES (" & identificacion & "','" & IDnombre & "','" & apellido & "','" & localidad & "','" & direccion & "','" & correo & "',"
sql += "'" & DNI & "´)"
MsgBox(sql)
cmd.CommandText = sql
Try
Conn.Open()
cmd.ExecuteNonQuery()
MsgBox("registro insertado correctamente")
Catch ex As Exception
If ex.ToString.Contains("valores duplicados") Then
MsgBox("el registro ya existe en la base de datos")
Else
MsgBox(ex.ToString)
End If
Conn.Close()
End Try
Link to comment
Compartir en otros sitios
2 Respuestas a esta pregunta
Recommended Posts
Registrate o inicia sesión para comentar
Tienes que ser un usuario de nuestro foro para poder comentar
Crear una cuenta
Registrate en nuestro foro. Es Fácil!
¡Quiero registrarme ahora!Iniciar Sesión
¿Ya tienes una cuenta? Inicia sesión aquí
Iniciar Sesión Ahora