none
problema al insertar datos en una BD access RRS feed

  • Pregunta

  • Hola no me deja insertar datos a mi base de datos,no se cual es mi error. les comparto mi codigo

    Private Sub Button_Registrar_Click(sender As Object, e As EventArgs) Handles Button_Registrar.Click
            conec.Open()
            Dim sql = "INSERT INTO CLIENTES(CodigoCliente,Empresa,NombreCliente,ApellidoCliente,Puesto,Direccion,Poblacion,Telefono,CP)VALUES('" & TextBox1.Text & "', '" & TextBox2.Text & "', '" & TextBox3.Text & "', '" & TextBox4.Text & "', '" & TextBox5.Text & "', '" & TextBox6.Text & "', '" & TextBox7.Text & "', '" & TextBox8.Text & ""
            Dim cmd As New OleDbCommand(sql, conec)
            Try
                cmd.ExecuteNonQuery()
            Catch ex As Exception
                MessageBox.Show("Error al insertar el elemento", "", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End Try
            conec.Close()
            Me.Hide()
            Forma_Pedido.Show()
        End Sub

    >>espero y me puedan ayudar

    lunes, 10 de diciembre de 2018 14:41

Respuestas

  • hola lopez

    puedes indicar el numero o que error le muestra? en el traceError?

    recuerda que tu codigo debe ir mejor así:

    Private Sub Button_Registrar_Click(sender As Object, e As EventArgs) Handles Button_Registrar.Click try Using connection As SqlConnection = New SqlConnection(tuCadenaDeConexion) Using insertCommand As SqlCommand = connection.CreateCommand() insertCommand.CommandText = "INSERT INTO CLIENTES(CodigoCliente,Empresa,NombreCliente,ApellidoCliente,Puesto,Direccion,Poblacion,Telefono,CP)VALUES(@n1,@n2,@n3,@n4,@n5,@n6)" insertCommand.Parameters.Add("@n1", TextBox1.Text) insertCommand.Parameters.Add("@n2", TextBox2.Text) insertCommand.Parameters.Add("@n3", TextBox3.Text) insertCommand.Parameters.Add("@n4", TextBox4.Text)

    ... etc los demas campos insertCommand.Connection.Open() insertCommand.ExecuteNonQuery() End Using End Using Catch ex As Exception MessageBox.Show("Error al insertar el elemento", "", MessageBoxButtons.OK, MessageBoxIcon.Error) End Try Me.Hide() Forma_Pedido.Show() End Sub


    por cuestiones de seguridad y es mas legible...


    lunes, 10 de diciembre de 2018 16:11

Todas las respuestas

  • Hola  Lopez30

    Gracias por levantar tu consulta en los foros de MSDN. Con respecto a la misma, te comento que estaremos realizando una revisión a profundidad acerca del inconveniente que se te está presentando.

    Proporcionaremos una respuesta lo más pronto posible.

    Gracias por usar los foros de MSDN.

    Pedro Alfaro
     ____

    Por favor recuerde "Marcar como respuesta" las respuestas que hayan resuelto su problema, es una forma común de reconocer a aquellos que han ayudado, y hace que sea más fácil para los otros visitantes encontrar la solución más tarde. 

    Microsoft ofrece este servicio de forma gratuita, con la finalidad de ayudar a los usuarios y la ampliación de la base de datos de conocimientos relacionados con los productos y tecnologías de Microsoft.  

    Este contenido es proporcionado "tal cual" y no implica ninguna responsabilidad de parte de Microsoft.
    lunes, 10 de diciembre de 2018 15:59
    Moderador
  • hola lopez

    puedes indicar el numero o que error le muestra? en el traceError?

    recuerda que tu codigo debe ir mejor así:

    Private Sub Button_Registrar_Click(sender As Object, e As EventArgs) Handles Button_Registrar.Click try Using connection As SqlConnection = New SqlConnection(tuCadenaDeConexion) Using insertCommand As SqlCommand = connection.CreateCommand() insertCommand.CommandText = "INSERT INTO CLIENTES(CodigoCliente,Empresa,NombreCliente,ApellidoCliente,Puesto,Direccion,Poblacion,Telefono,CP)VALUES(@n1,@n2,@n3,@n4,@n5,@n6)" insertCommand.Parameters.Add("@n1", TextBox1.Text) insertCommand.Parameters.Add("@n2", TextBox2.Text) insertCommand.Parameters.Add("@n3", TextBox3.Text) insertCommand.Parameters.Add("@n4", TextBox4.Text)

    ... etc los demas campos insertCommand.Connection.Open() insertCommand.ExecuteNonQuery() End Using End Using Catch ex As Exception MessageBox.Show("Error al insertar el elemento", "", MessageBoxButtons.OK, MessageBoxIcon.Error) End Try Me.Hide() Forma_Pedido.Show() End Sub


    por cuestiones de seguridad y es mas legible...


    lunes, 10 de diciembre de 2018 16:11