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
 

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

Preguntas similares