
09/04/2008, 14:37
|
 | | | Fecha de Ingreso: marzo-2008 Ubicación: En mi casa
Mensajes: 208
Antigüedad: 17 años, 3 meses Puntos: 5 | |
Re: Proplema con CInt Haz lo que te dijo Myakire!!
Aca te muestro como implementarlo:
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([T27]), SUM([T28]), SUM([T29]), SUM([T30]) 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("T27") & VbCrLf)
Response.Write("Cantidad de Talles 28: " & rsRef("T28") & VbCrLf)
Response.Write("Cantidad de Talles 29: " & rsRef("T29") & VbCrLf)
Response.Write("Cantidad de Talles 30: " & rsRef("T30") & 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
|