Buscar en la Comunidad
Mostrando resultados para tags 'access'.
Found 1 result
-
Visual basic y Acces inserción de datos AYUDA !
Nvidia posteo una pregunta en Programación y Desarrollo Web
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