Author Topic: Error al insertar en una bd en access... Sentencia ?  (Read 2980 times)

agustinCarBan

  • Full Member
  • ***
  • Posts: 211
  • Karma: 0
    • View Profile
Error al insertar en una bd en access... Sentencia ?
« on: Mayo 18, 2010, 01:35:20 am »
Hola amigos... Como estan ?. Queria preguntarles xq se da este error... Quiero realizar la insercion de un registro en access pero me da este error...
Code: [Select]
        Dim bd As New acceso_a_datos(acceso_a_datos.motores.access)

            Dim nom As String = Me.txt_nombre.Text
            Dim ape As String = Me.txt_apellido.Text
            Dim mail As String = Me.txt_mail.Text
            Dim doc As Long = Long.Parse(Me.txt_dni.Text)
            Dim user As String = Me.txt_nombreUsuario.Text
            Dim pass As String = Me.txt_contraseña.Text
            Dim nperm As Long = 0
            Dim fecha As Long = Me.getFechaEnEntero(Me.msk_fechanac.Text)

            Dim SqlQuerry As String = "INSERT INTO usuarios(dni,npermiso,fechacumple,password,nombre,apellido,mail,username) VALUES(" & doc & "," & 0 & "," & fecha & ",'" & pass & "','" & nom & "','" & ape & "','" & mail & "','" & user & "')"
            If bd._comando(SqlQuerry) Then
                MessageBox.Show("Usuario registrado correctamente")
            Else
                MessageBox.Show("Los datos no fueron registrados correctamente")
                Exit Sub
            End If

Ahora bien, si le saco la enumeracion de los campos me los inserta bn (ya me explicaron que la bd asume que uno quiere insertar en todos). Este es el codigo:

Code: [Select]
        Dim bd As New acceso_a_datos(acceso_a_datos.motores.access)

            Dim nom As String = Me.txt_nombre.Text
            Dim ape As String = Me.txt_apellido.Text
            Dim mail As String = Me.txt_mail.Text
            Dim doc As Long = Long.Parse(Me.txt_dni.Text)
            Dim user As String = Me.txt_nombreUsuario.Text
            Dim pass As String = Me.txt_contraseña.Text
            Dim nperm As Long = 0
            Dim fecha As Long = Me.getFechaEnEntero(Me.msk_fechanac.Text)

            Dim SqlQuerry As String = "INSERT INTO usuarios VALUES(" & doc & "," & 0 & "," & fecha & ",'" & pass & "','" & nom & "','" & ape & "','" & mail & "','" & user & "')"
            If bd._comando(SqlQuerry) Then
                MessageBox.Show("Usuario registrado correctamente")
            Else
                MessageBox.Show("Los datos no fueron registrados correctamente")
                Exit Sub
            End If

Espero que puedan decirme xq ke esta pasando... Xq me he fijado bien y no escribi mal ningun campo... Aca les mando el propyecto completo... Muchas gracias... de seguro que es una pavada nomas...

 

ey