Error en Insert

13/08/2003 - 16:41 por Luis Benigno Olive | Informe spam
ESTIMADOS SEÑORES:
ESTOY DESARROLLANDO UN MODULO EN VISUAL BASIC 6.0, USANDO
BASE DE DATOS MS/ACCESS,EN EL DESARROLLO DE LA APLICACION,
UNA TABLA SE ACTUALIZA CON LA CONSTANTE -SI- DADO UN RANGO
DE FECHA INFORMADO POR EL USUARIO, LUEGO NECESITO PASAR
LOS REGISTROS CON LA CONSTANTE -SI- A OTRO ARCHIVO, DICHA
TAREA, LA REALIZO CON UN RECORDSET, SELECCIONANDO LOS
REGISTROS CON -SI- EN EL CAMPO DESEADO, LUEGO NECESITO
GRABAR ESOS MOVIMIENTOS, EN OTRA TABLA PARA CONTINUAR EL
PROCESO, LEEO EL RECORDSET Y REALIZO UN INSERT A LA TABLA
DESEADA, ME TIRA UN ERROR QUE DICE:

ERROR DE SINTAXIS (FALTA OPERADOR) EN LA EXPRESION DE
CONSULTA
ERROR -2147217900

LO QUE ESTOY HACIENDO ES MOVER CAMPOS DE TEXTOS Y
NUMERICOS A LA TABLA RECEPTORA, LE COPIO LA INSTRUCCION

With Resultado
Resultado.MoveFirst
Do Until .EOF
Comando.CommandType = adCmdText
Comando.CommandText = " INSERT INTO LOCATARIO_DEUDA
VALUES " & _
" (" & Trim(.Fields("InmuebleSitoEn")) & "," & _
Trim(.Fields("Piso")) & "," & _
Trim(.Fields("Dpto")) & "," & _
"0" & Trim(.Fields("IdLocatario")) & "," & _
",#" & Format(.Fields("FechaFIN").Value, "dd/mm/yyyy")
& "#," & _
"0" & Trim(.Fields("AlquilerImp")) & "," & _
Trim(.Fields("Moneda")) & ",'" & _
"0" & Trim(.Fields("BonifPorc")) & "," & _
"0" & Trim(.Fields("BonifImp")) & ",'" & _
"0" & Trim(.Fields("ArancelPorc")) & ",'" & _
"0" & Trim(.Fields("ArancelImp")) & ",'" & _
(.Fields("Oblig01")) & "," & (.Fields("Oblig02")) & "," & _
(.Fields("Oblig03")) & "," & (.Fields("Oblig04")) & "," & _
(.Fields("Oblig05")) & "," & (.Fields("Oblig06")) & "," & _
(.Fields("Oblig07")) & "," & (.Fields("Oblig08")) & "," & _
(.Fields("Oblig09")) & "," & (.Fields("Oblig10")) & ","
& ")"
Comando.Execute
Resultado.MoveNext
Loop
End With
DESEARIA FERVOROSAMENTE, SABER CUAL ES EL ERROR QUE TENGO
PARA PODER CONTINUAR CON EL DESARROLLO DE DICHO MODULO.

GRACIAS
LUIS BENIGNO OLIVE
lbolive@uolsinectis.com.ar

Preguntas similare

Leer las respuestas

#1 Claudio E. Ale
14/08/2003 - 04:02 | Informe spam
Hola Luis !!!!

Te esta sobrando una coma al final del insert antes del paréntesis.

Perdón por no contestar antes


Claudio Emilio Ale
Analista de Sistemas - MCP
NDSoft Consultoría y Desarrollo
Buenos Aires - Argentina


"Luis Benigno Olive" escribió en el mensaje
news:115101c361a8$f92cf920$
ESTIMADOS SEÑORES:
ESTOY DESARROLLANDO UN MODULO EN VISUAL BASIC 6.0, USANDO
BASE DE DATOS MS/ACCESS,EN EL DESARROLLO DE LA APLICACION,
UNA TABLA SE ACTUALIZA CON LA CONSTANTE -SI- DADO UN RANGO
DE FECHA INFORMADO POR EL USUARIO, LUEGO NECESITO PASAR
LOS REGISTROS CON LA CONSTANTE -SI- A OTRO ARCHIVO, DICHA
TAREA, LA REALIZO CON UN RECORDSET, SELECCIONANDO LOS
REGISTROS CON -SI- EN EL CAMPO DESEADO, LUEGO NECESITO
GRABAR ESOS MOVIMIENTOS, EN OTRA TABLA PARA CONTINUAR EL
PROCESO, LEEO EL RECORDSET Y REALIZO UN INSERT A LA TABLA
DESEADA, ME TIRA UN ERROR QUE DICE:

ERROR DE SINTAXIS (FALTA OPERADOR) EN LA EXPRESION DE
CONSULTA
ERROR -2147217900

LO QUE ESTOY HACIENDO ES MOVER CAMPOS DE TEXTOS Y
NUMERICOS A LA TABLA RECEPTORA, LE COPIO LA INSTRUCCION

With Resultado
Resultado.MoveFirst
Do Until .EOF
Comando.CommandType = adCmdText
Comando.CommandText = " INSERT INTO LOCATARIO_DEUDA
VALUES " & _
" (" & Trim(.Fields("InmuebleSitoEn")) & "," & _
Trim(.Fields("Piso")) & "," & _
Trim(.Fields("Dpto")) & "," & _
"0" & Trim(.Fields("IdLocatario")) & "," & _
",#" & Format(.Fields("FechaFIN").Value, "dd/mm/yyyy")
& "#," & _
"0" & Trim(.Fields("AlquilerImp")) & "," & _
Trim(.Fields("Moneda")) & ",'" & _
"0" & Trim(.Fields("BonifPorc")) & "," & _
"0" & Trim(.Fields("BonifImp")) & ",'" & _
"0" & Trim(.Fields("ArancelPorc")) & ",'" & _
"0" & Trim(.Fields("ArancelImp")) & ",'" & _
(.Fields("Oblig01")) & "," & (.Fields("Oblig02")) & "," & _
(.Fields("Oblig03")) & "," & (.Fields("Oblig04")) & "," & _
(.Fields("Oblig05")) & "," & (.Fields("Oblig06")) & "," & _
(.Fields("Oblig07")) & "," & (.Fields("Oblig08")) & "," & _
(.Fields("Oblig09")) & "," & (.Fields("Oblig10")) & ","
& ")"
Comando.Execute
Resultado.MoveNext
Loop
End With
DESEARIA FERVOROSAMENTE, SABER CUAL ES EL ERROR QUE TENGO
PARA PODER CONTINUAR CON EL DESARROLLO DE DICHO MODULO.

GRACIAS
LUIS BENIGNO OLIVE

email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida