hola,,, ok, lo corri como me lo enviaste con este codigo
Código:
<%
Set Conexion = Server.CreateObject("ADODB.Connection")
Conexion.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("pedidos.mdb"))
Set rsRef = Server.CreateObject("ADODB.Recordset")
strSQLrsRef = "SELECT distinct ref, color, SUM([27]), SUM([28]), SUM([29]), SUM([30]) FROM detalle GROUP BY distinct ref"
rsRef.Open strSQLrsRef, Conexion, 1, 3
'Hago un loop mostrando la informacion:
Do While NOT rsRef.EOF
Response.Write("Referencia: " & rsRef("distinct ref") & VbCrLf)
Response.Write("Color: " & rsRef("color") & VbCrLf)
Response.Write("Cantidad de Talles 27: " & rsRef("27") & VbCrLf)
Response.Write("Cantidad de Talles 28: " & rsRef("28") & VbCrLf)
Response.Write("Cantidad de Talles 29: " & rsRef("29") & VbCrLf)
Response.Write("Cantidad de Talles 30: " & rsRef("30") & VbCrLf)
Response.Write(VbCrLf & VbCrLf)
rsRef.MoveNext
Loop
'Cierro el RecordSet y la Conexion y lebero memoria:
rsRef.Close
Set rsRef = Nothing
Conexion.Close
Set Conexion = Nothing
%>
pero cuando intento abrirlo me sale el siguiente error:
Tipo de error:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][Controlador ODBC Microsoft Access] Error de sintaxis (falta operador) en la expresión de consulta 'distinct ref'.
/asp/mhl/xxxx.asp, línea 7