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
