Hola chicos/as tengo un problemilla con un codigo y no se que hacer porque estoy atascado.
Me da el siguiente error:
---------Inicio Error-----------
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
[Microsoft][Controlador ODBC Microsoft Access] Error de sintaxis (falta operador) en la expresión de consulta 'RefArticulo='Kalencom_Discos_Cocoa'UPDATE ARTICULOS SET [Stock]= '0' WHERE [RefArticulo] = 'Kalencom_Discos_Cocoa''.
/Includes/master.asp, línea 45
--------- Fin Error-----------
Lo que estoy intentado hacer
----- Inicio -------
AbreBaseDatos "Pedidos"
SQL="SELECT * FROM ARTICULOS WHERE NPedido='" & pedido & "'"
AbreRecordSet rs,SQL,ConPedidos
For art = 1 to rs.recordcount
AbreBaseDatos "Datos"
SQL="SELECT * FROM ARTICULOS WHERE RefArticulo='" & rs.fields("Ref") & "'"
AbreRecordSet rsArt,SQL,ConDatos
ActualizaStock = rsArt.fields("stock") - rs.fields("UnidadesArt")
AbreBaseDatos("Datos")
SQL = SQL & "UPDATE ARTICULOS SET [Stock]= '"& ActualizaStock &"' WHERE [RefArticulo] = '" & rs.fields("Ref") & "'"
AbreRecordSet rsArt,SQL,ConDatos
rs.movenext
Next
---- Fin Codigo ----
---- Codigo Master.asp ----
Sub AbreRecordset(recordset,consulta,conexion)
'Response.Write(CONSULTA & "<BR>")
Set Recordset=Server.CreateObject("ADODB.Recordset")
Recordset.Open consulta,conexion,adOpenStatic ----------------------- linea 45
End Sub
--- Fin Codigo Master.asp ----
Bueno no se si mucho rollo, pero creo que he puesto todo lo necesario.
Espero vuestra ayuda