Ok, gracias
----- Original Message -----
From: Diego A. Montero
To: vbusers List Member
Sent: Monday, March 24, 2008 7:28 PM
Subject: [vbusers] error en una count
Perdón. (deje el = FALSE y está mal.)
Set rsAux = Base.OpenRecordset(SQL, dbOpenForwardOnly)
If rsAux.RecordCount > 0 Then
rsAux.MoveFirst
While not rsAux.EOF
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 Diego A.
Montero
Sent: Lunes, 24 de Marzo de 2008 19:09
To: vbusers List Member
Subject: [vbusers] error en una count
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
__________ 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
__________ 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
__________ NOD32 2968 (20080324) Information __________
This message was checked by NOD32 antivirus system.
http://www.eset.com
