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 ,
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 :
Por Favor , necesito ayudaaaa ... gracias
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
0