Ver Mensaje Individual
  #14 (permalink)  
Antiguo 09/04/2008, 14:37
Avatar de i_e_s27
i_e_s27
 
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