Foros del Web » Programando para Internet » ASP Clásico »

Error de sintaxis

Estas en el tema de Error de sintaxis en el foro de ASP Clásico en Foros del Web. Hola gente, Ya no beo los errores mas tontos. El siguiente codigo: <% ' Cargamos las Constantes %> <!-- #include file="adovbs.inc" --> <% ' cadena ...
  #1 (permalink)  
Antiguo 06/07/2004, 12:20
 
Fecha de Ingreso: diciembre-2003
Ubicación: Santander
Mensajes: 81
Antigüedad: 20 años, 6 meses
Puntos: 1
Error de sintaxis

Hola gente,

Ya no beo los errores mas tontos. El siguiente codigo:
<%
' Cargamos las Constantes
%>
<!-- #include file="adovbs.inc" -->
<%

' cadena de conexion con Access Jet
' Base de Datos
Dim conn_consulta
' cadena de conexion con Access Jet
'conn_consulta = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & ("d:\www\midominio.com\www\consultas.mdb")

' Declaracion de variables.
' Objetos ADO
Dim cnn_consulta, rst_consulta

' Variables de control
Dim strSQL 'Para contener las sentencias SQL

'Variables de campos de la base de datos
Dim fld_Id_Consulta
Dim fld_Id_cliente
Dim fld_Nombre_cliente
Dim fld_Apellidos_cliente
Dim fld_Mail_cliente
Dim fld_Estado_cliente
Dim fld_Residencia_cliente
Dim fld_Edad_cliente
Dim fld_Consulta
Dim fld_Order
Dim fld_Importe
Dim fld_Fecha
Dim fld_result
Dim fld_pszPurchorderNum
Dim fld_pszTxnDate
Dim fld_tipotrans
Dim fld_store
Dim fld_pszApprovalCode
Dim fld_pszTxnID
Dim fld_coderror
Dim fld_deserror

'Recuperamos los parametros
id_consulta = request.Cookies("id")
fld_result = request.querystring("result")
fld_order = request.querystring("pszPurchorderNum")
fld_pszTxnDate = request.querystring("pszTxnDate")
fld_tipotrans = request.querystring("tipotrans")
fld_store = request.querystring("store")

if fld_result = 0 then
fld_pszApprovalCode = request.querystring("pszApprovalCode")
fld_pszTxnID = request.querystring("pszTxnID")
else
fld_coderror = request.querystring("coderror")
fld_deserror = request.querystring("deserror")
end if

' Construimos la sentencia SQL.

strSQL = "UPDATE consultas SET " _
& "result = '" & fld_result & "', " _
& "order = '" & fld_order & "', " _
& "pszTxnDate = '" & fld_pszTxnDate & "', " _
& "pszApprovalCode = '" & fld_pszApprovalCode & "', " _
& "pszTxnID = '" & fld_pszTxnID & "' " _
& "coderror = '" & fld_coderror & "', " _
& "deserror = '" & fld_deserror & "' " _
& "WHERE (id_consulta =" & id_consulta & ")"

Set cnn_consulta = Server.CreateObject("ADODB.Connection")
cnn_consulta.Open CONN_Consulta

cnn_consulta.Execute strSQL, adAffectAll, adCmdText Or adExecuteNoRecords

cnn_consulta.Close
Set cnn_consulta = Nothing
%>

Me da el siguiente error:

Microsoft JET Database Engine error '80040e14'

Error de sintaxis en la instrucción UPDATE.

/_operacion.asp, line 133

un cable por favor, llevo toda la tarde.

Gracias.
Un saludo.
  #2 (permalink)  
Antiguo 06/07/2004, 13:05
Avatar de Itankai  
Fecha de Ingreso: abril-2004
Ubicación: conkal, yucatan
Mensajes: 184
Antigüedad: 20 años, 2 meses
Puntos: 0
Por lo que yo puedo entender de tu codigo, creo q seria mejor que lo intentaras de esta forma:

strSQL = "UPDATE consultas SET "
strSQL = strSQL &"result = '" & fld_result & "', order = '" & fld_order & "', "
strSQL = strSQL &"pszTxnDate = '" & fld_pszTxnDate & "', "
strSQL = strSQL &"pszTxnID = '" & fld_pszTxnID & "', "
strSQL = strSQL &"coderror = '" & fld_coderror & "', "
strSQL = strSQL &"deserror = '" & fld_deserror & "' "
strSQL = strSQL &"WHERE id_consulta = '" & id_consulta & "' "

Suerte...
__________________
De antemano... Gracias.
  #3 (permalink)  
Antiguo 06/07/2004, 21:46
 
Fecha de Ingreso: abril-2004
Ubicación: México D.F.
Mensajes: 1.724
Antigüedad: 20 años, 1 mes
Puntos: 4
Antes de ejecutar la instrucción fijate en el valor de tu variable strsql para que te des cuenta de donde la estás regando.
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 12:08.