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

insertar mas de dos campos en una tabla

Estas en el tema de insertar mas de dos campos en una tabla en el foro de ASP Clásico en Foros del Web. * Tipo de error: Microsoft JET Database Engine (0x80040E14) Error de sintaxis (falta operador) en la expresión de consulta 'orderID =10AND productID =421AND color=VERDEAND txttalla00='. ...
  #1 (permalink)  
Antiguo 24/08/2005, 06:37
 
Fecha de Ingreso: septiembre-2004
Mensajes: 76
Antigüedad: 19 años, 9 meses
Puntos: 0
insertar mas de dos campos en una tabla

* Tipo de error:
Microsoft JET Database Engine (0x80040E14)
Error de sintaxis (falta operador) en la expresión de consulta 'orderID =10AND productID =421AND color=VERDEAND txttalla00='.

<%

Sub CreateNewOrder()
Application.lock
if Application("orderID") = "" then
Application("orderID") = 1
end if


intOrderID = Application("orderID")
Session("orderID") = intOrderID
Con.Execute("INSERT INTO orders "_
& " (orderID, status) values "_
& " ("&intOrderID&", 'OPEN')")

Application("orderID") = Application("orderID") + 1
Application.Unlock
End Sub

Sub AddToOrder(nOrderID, nProductID, nQuant)
sqlText = "INSERT INTO itemsOrdered " _
& " (orderID, productID, color, txtalla00, quantity) values " _
& " ("&nOrderID&", "&nProductID&", "&ncolor&", "&txtalla00&","&nQuant&")"
Con.Execute(sqlText)

End Sub

'Main program
intProdID = Request.form("intProdID")
intColor = Request.form("color")
intTxttalla00= Request.form("txttalla00")
intQuant = Request.form("intQuant")

Dim con,rs,sql,datos,sqlText,rsOrder

datos= Server.MapPath ( "tienda.mdb " )

' Creamos el objeto para la conexion y la abrimos

Set con= Server.CreateObject("ADODB.connection")
con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data source="& datos &";"


intOrderID = cstr(Session("orderID"))
if intOrderID = "" then
CreateNewOrder
end if

'sqlText = "SELECT * FROM itemsOrdered WHERE orderID =" & intOrderID & " AND productID =" & intProdID & "AND color=" & intColor
sqlText = "SELECT * FROM itemsOrdered WHERE orderID =" & intOrderID & "AND productID =" & intProdID & "AND color=" & intcolor & "AND txttalla00=" & inttxttalla00
set rsOrder = Con.Execute(sqlText)


if rsOrder.EOF then
txtInfo = "Este artículo se ha agregado a su orden."
AddToOrder intOrderID, intProdID, intColor, intTxttalla, intQuant
else
txtInfo = "Este artículo ya está en su carta."
end if


%>
  #2 (permalink)  
Antiguo 24/08/2005, 06:50
Avatar de Myakire
Colaborador
 
Fecha de Ingreso: enero-2002
Ubicación: Centro de la república
Mensajes: 8.849
Antigüedad: 22 años, 4 meses
Puntos: 146
Bueno, no leí todo tu mensaje, pero el error es claro. Tienes error de sintaxis y es prncipalmente por que te faltan espacios y apóstrofes:

Microsoft JET Database Engine (0x80040E14)
Error de sintaxis (falta operador) en la expresión de consulta 'orderID =10AND productID =421AND [B]color=VERDEAND[B] txttalla00='.

Veo que tienes:

sqlText = "SELECT * FROM itemsOrdered WHERE orderID =" & intOrderID & "AND productID =" & intProdID & "AND color=" & intcolor & "AND txttalla00=" & inttxttalla00

Debería ser:

sqlText = "SELECT * FROM itemsOrdered WHERE orderID =" & intOrderID & " AND productID =" & intProdID & " AND color='" & intcolor & "' AND txttalla00='" & inttxttalla00 & "'"

Tambien se ve en el mensaje de error que la variable "inttxttalla00" no tiene nada.

Saludos
  #3 (permalink)  
Antiguo 24/08/2005, 07:58
 
Fecha de Ingreso: septiembre-2004
Mensajes: 76
Antigüedad: 19 años, 9 meses
Puntos: 0
Tipo de error:
Microsoft JET Database Engine (0x80040E10)
No se han especificado valores para algunos de los parámetros requeridos.
/tienda/addToCart.asp, línea 59


Tipo de explorador:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; es-ES) Opera 8.02

Página:
POST 80 bytes to /tienda/addToCart.asp

Datos de POST:
color=VERDE&Eleccion=Talla+36&intProdID=421&intQua nt=2&submit1=A%F1adir+al+Carro


Me explico un poco mejor. Tengo una lista/menu y al seleccionar una opcion me la envia a otra pagina, es decir, el codigo de arriba del todo pero no se como meter esos datos dentro. Ya he hecho la correccion de-->
sqlText = "SELECT * FROM itemsOrdered WHERE orderID =" & intOrderID & " AND productID =" & intProdID & " AND color='" & intcolor & "' AND txttalla00='" & inttxttalla00 & "'"
set rsOrder = Con.Execute(sqlText)--> En esta me da ese error.
Como puedo hacerlo?
  #4 (permalink)  
Antiguo 24/08/2005, 09:59
Avatar de Myakire
Colaborador
 
Fecha de Ingreso: enero-2002
Ubicación: Centro de la república
Mensajes: 8.849
Antigüedad: 22 años, 4 meses
Puntos: 146
Nuevamente el error es claro ....... mira, para observarlo haz lo siguiente:

sqlText = "SELECT * FROM itemsOrdered WHERE orderID =" & intOrderID & " AND productID =" & intProdID & " AND color='" & intcolor & "' AND txttalla00='" & inttxttalla00 & "'"
response.write sqlText
response.end

set rsOrder = Con.Execute(sqlText)

Copia y postea el resultado para darle seguimiento

Saludos
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 22:56.