Visual Basic - Ayuda con insertar contactos en visual basic por favor

Life is soft - evento anual de software empresarial
   
Vista:
Imágen de perfil de Facuu

Ayuda con insertar contactos en visual basic por favor

Publicado por Facuu (1 intervención) el 30/01/2014 04:11:33
Como veran estos es lo yo tengo como fuente para INSERTAR datos a mi base de datos ,


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
Public Class Form5
 
    Private Sub btnInsertar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnInsertar.Click
 
        Dim NOMBRES As String = ""
        Dim MASCOTA As String = ""
        Dim RAZA As String = ""
        Dim DIRECCION As String = ""
        Dim LOCALIDAD As String = ""
        Dim TELEFONO As String = ""
        Dim CELULAR As String = ""
        Dim CORREO As String = ""
        Dim ENFERMEDAD As String = ""
        Dim CUMPLEAÑOS As String = ""
        Dim ALIMENTO As String = ""
        Dim OBSERVACIONES As String = ""
 
 
        NOMBRES = Me.txtNombres.Text
        MASCOTA = Me.ComboBoxMascota.Text
        RAZA = Me.TxtRaza.Text
        DIRECCION = Me.TxtDireccion.Text
        LOCALIDAD = Me.TxtLocalidad.Text
        TELEFONO = Me.txtTelefono.Text
        CELULAR = Me.TxtLocalidad.Text
        CORREO = Me.TxtCorreo.Text
        ENFERMEDAD = Me.txtEnfermedad.Text
        CUMPLEAÑOS = Me.TxtFechadecumpleaños.Text
        ALIMENTO = Me.txtAlimento.Text
        OBSERVACIONES = Me.txtObservaciones.Text
 
        cmd.CommandType = CommandType.Text
        cmd.Connection = conn
 
        sql = "INSERT INTO DATOS "
 
        sql += "MASCOTA = '" & MASCOTA & "', "
        sql += "RAZA = '" & RAZA & "', "
        sql += "NOMBRES = '" & NOMBRES & "', "
        sql += "DIRECCION = '" & DIRECCION & "', "
        sql += "LOCALIDAD = '" & LOCALIDAD
        sql += "TELEFONO = " & TELEFONO & "', "
        sql += "CELULAR = " & CELULAR & "', "
        sql += "CORREO = " & CORREO & "', "
        sql += "ENFERMEDAD = " & ENFERMEDAD & "', "
        sql += "FECHA DE CUMPLEAÑOS = '" & CUMPLEAÑOS & "', "
        sql += "ALIMENTO = '" & ALIMENTO & "' "
        sql += "OBSERVACIONES = '" & OBSERVACIONES & " "
 
 
        cmd.CommandText = sql
 
        Try
            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
        End Try
 
    End Sub

Pero me sale un error , que es el de la foto



ya me estuve fijando pero ya verifique,

Datos: es mi base de datos
DATOS: es mi tabla donde estan los datos

la base de datos es de access

Como pueden ver , en la imagen , abajo del todo me dice que esta en la linea 54 el error ,


Mi linea 54:

cmd.ExecuteNonQuery()

que vendria aka :

1
2
3
4
5
6
7
8
9
10
11
12
13
Try
            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
        End Try

Por Favor , necesito ayudaaaa ... gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder