Visual Basic - error de sintaxis en insert into

Life is soft - evento anual de software empresarial
   
Vista:

error de sintaxis en insert into

Publicado por jhoannyjg (7 intervenciones) el 20/06/2016 20:17:49
saludos estoy realizando un programa en donde tomo datos de un listview y unos textbox para guardarlo en access 97 pero me dice que el error es un error de sintaxis en el insert into. aqui les dejo el codigo

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub cmdguardar_Click()
Dim aux, aux1, aux2, aux3, aux4, aux5 As String
Dim A, B As Integer
If txtnum.Text <> "" And txtrazon.Text <> "" And txtcedurif.Text <> "" And txtdireccion.Text <> "" And txttelefono.Text <> "" And ListView1.ListItems.Count > 0 Then
Conexion
For A = 1 To ListView1.ListItems.Count
   aux = ListView1.ListItems(A)
   For B = 1 To 5
         If B = 1 Then: aux1 = ListView1.ListItems(A).SubItems(B)
         If B = 2 Then: aux2 = ListView1.ListItems(A).SubItems(B)
         If B = 3 Then: aux3 = ListView1.ListItems(A).SubItems(B)
         If B = 4 Then: aux4 = ListView1.ListItems(A).SubItems(B)
         If B = 5 Then: aux5 = ListView1.ListItems(A).SubItems(B)
 
   Next B
abc.Execute "insert into registro(fecha,n,num,razon,cerif,direccion,telefono,calibre,perfil,tamano,precio,cantidad,monto,global)VALUES ('" & DTPicker1 & "','" & txtn.Text & "','" & txtnum.Text & "','" & txtrazon.Text & "','" & txtcedurif.Text & "','" & txtdireccion.Text & "','" & txttelefono.Text & "','" & aux & "','" & aux1 & "','" & aux2 & "','" & aux3 & "','" & aux4 & "','" & aux5 & "')"
Next A
 
abc.Close
mayor
MsgBox "INFORMACION ALMACENADA!!"
End If
End Sub
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
Imágen de perfil de Andres Leonardo

error de sintaxis en insert into

Publicado por Andres Leonardo (702 intervenciones) el 20/06/2016 21:43:04
no creo que todos los campos sean alfanumericos.. si hay dinero o float o int no van entre comillas.....
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

error de sintaxis en insert into

Publicado por jhoannyjg (7 intervenciones) el 21/06/2016 01:58:54
puse todo los campos como texto y tampoco funciona dice el mismo error de sintaxis en insert into.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo

error de sintaxis en insert into

Publicado por Andres Leonardo (702 intervenciones) el 21/06/2016 02:08:38
Crea una variable string esa variable dale la concatenación esa variable presebtale en msgbox antes del excecute... Asi puedes ver comonesta compuesta si ouedes ese valor.de la varible q t muestra el texto conxatenado ejecutalo en la base
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo

error de sintaxis en insert into

Publicado por Andres Leonardo (702 intervenciones) el 21/06/2016 16:04:00
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
Private Sub cmdguardar_Click()
Dim aux, aux1, aux2, aux3, aux4, aux5 As String
Dim A, B As Integer
dim SSQL as string
If txtnum.Text <> "" And txtrazon.Text <> "" And txtcedurif.Text <> "" And txtdireccion.Text <> "" And txttelefono.Text <> "" And ListView1.ListItems.Count > 0 Then
Conexion
For A = 1 To ListView1.ListItems.Count
   aux = ListView1.ListItems(A)
   For B = 1 To 5
         If B = 1 Then: aux1 = ListView1.ListItems(A).SubItems(B)
         If B = 2 Then: aux2 = ListView1.ListItems(A).SubItems(B)
         If B = 3 Then: aux3 = ListView1.ListItems(A).SubItems(B)
         If B = 4 Then: aux4 = ListView1.ListItems(A).SubItems(B)
         If B = 5 Then: aux5 = ListView1.ListItems(A).SubItems(B)
 
   Next B
 
SSQL  =  "insert into registro(fecha,n,num,razon,cerif,direccion,telefono,calibre,perfil,tamano,precio,cantidad,monto,global)VALUES ('" & DTPicker1 & "','" & txtn.Text & "','" & txtnum.Text & "','" & txtrazon.Text & "','" & txtcedurif.Text & "','" & txtdireccion.Text & "','" & txttelefono.Text & "','" & aux & "','" & aux1 & "','" & aux2 & "','" & aux3 & "','" & aux4 & "','" & aux5 & "')"
 
debug.print SSQL  ' con esta linea te dara el contenido de SSQL  ese intenta ejecutarlo o analizalo de manera que este correcto
 
abc.Execute SSQL
Next A
 
abc.Close
mayor
MsgBox "INFORMACION ALMACENADA!!"
End If
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar

error de sintaxis en insert into

Publicado por jhoannyjg (7 intervenciones) el 21/06/2016 21:19:37
gracias amigo, con lo que me diste pude resolver a la final era un detalle tonto en un nombre de los campos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
Imágen de perfil de Andres Leonardo

error de sintaxis en insert into

Publicado por Andres Leonardo (702 intervenciones) el 21/06/2016 21:33:48
Me alegro asi revisas la sintaxis del insert q bueno.q.t haya servido
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar