Y ponerle el rsAux.MovenEXt antes de LOOP...
Yo lo haría asi,,,
Set rsAux = Base.OpenRecordset(SQL, dbOpenForwardOnly)
If rsAux.RecordCount > 0 Then
rsAux.MoveFirst
While not rsAux.EOF = False
datos = rsAux![micros.Color] & " " & rsAux![micros.recorrido] & "
" & rsAux!total
List1.AddItem (datos)
rsAux.MoveNext
Wend
End If
_____
From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of Carlos
Bernardo Maggiotti
Sent: Lunes, 24 de Marzo de 2008 18:30
To: vbusers List Member
Subject: [vbusers] error en una count
Proba en ponerle el rsAux.MoveFirst antes de DoWhile...
Saludos
CarlosMag
_____
From: [EMAIL PROTECTED]
To: [email protected]
Subject: [vbusers] error en una count
Date: Mon, 24 Mar 2008 17:26:41 -0300
Hola estoy modificando un programa viejo... y necesito hacer esta consulta.
Dim datos As String
SQL1 = "SELECT Micros.Color, Micros.Recorrido, Paradas.NOM_PARADA,
Count(chicos.C_CHICO) AS total, chicos.C_MIC_SAL, chicos.C_PAR_SAL,
chicos.C_ACTIVO, Paradas.Salida_Llegada, Paradas.HORA "
SQL2 = "FROM (Micros INNER JOIN chicos ON Micros.Codigo = chicos.C_MIC_SAL)
INNER JOIN Paradas ON (chicos.C_PAR_SAL = Paradas.COD_PARADA) AND
(chicos.C_MIC_SAL = Paradas.MICRO) "
SQL3 = "GROUP BY Micros.Color, Micros.Recorrido, Paradas.NOM_PARADA,
chicos.C_MIC_SAL, chicos.C_PAR_SAL, chicos.C_ACTIVO, Paradas.Salida_Llegada,
Paradas.HORA "
SQL4 = "HAVING (((chicos.C_ACTIVO) = 'S')) ORDER BY chicos.C_MIC_SAL,
chicos.C_PAR_SAL"
SQL = SQL1 & SQL2 & SQL3 & SLQ4
Set rsAux = Base.OpenRecordset(SQL, dbOpenForwardOnly)
If rsAux.RecordCount > 0 Then
Do While rsAux.EOF = False
datos = rsAux![micros.Color] & " " & rsAux![micros.recorrido] & "
" & rsAux!total
List1.AddItem (datos)
Loop
End If
El tema es que entra en loop y se cuelga.... si verifico el recordcount me
da 1
si uso en administrador visual de datos o el access para armar la consulta
me da lo correcto, pero cuando lo incorporo al programa no.
alguna pista?
gracias
Gabriel
_____
Blog your life in 3D with Windows Live Writer. Get Windows Live-Free
<http://www.windowslive.com/overview.html?ocid=TXT_TAGLM_Wave2_wl_writer_022
008>
__________ Información de NOD32, revisión 2968 (20080324) __________
Este mensaje ha sido analizado con NOD32 antivirus system
http://www.nod32.com
__________ Información de NOD32, revisión 2968 (20080324) __________
Este mensaje ha sido analizado con NOD32 antivirus system
http://www.nod32.com
