vb6 + Error al traer recordset de base de datos

[federp77]

Hola, estoy teniendo un problema en un sistema hecho en vb6 y access.
Creo una conexion, y al hacer selects, el recordset SIEMPRE viene vacio (EOF en true). Los inserts los hace bien. Ejemplo del codigo:

Código:

 
    Dim cmdLocal As New ADODB.Command
    Dim rsLocal As New ADODB.Recordset
    Dim cnLocal As ADODB.Connection
    
    Set cnLocal = New ADODB.Connection
    cnLocal.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
            "Data Source=C:\Lis\Seguros\base1.mdb ;"
    cnLocal.Open
    
    Set rsLocal = New ADODB.Recordset
    Set cmdLocal = New ADODB.Command
    
    With cmdLocal
      .ActiveConnection = cnLocal
      .CommandType = adCmdText
       .CommandText = "SELECT * FROM Caja  "     
      Set rsLocal = .Execute
      
      Debug.Assert rsLocal.RecordCount <> -1      
    End With
    Set cnLocal = Nothing
    Set cmdLocal = Nothing
    Set rsLocal = Nothing

y si en vez de abrilo con el command.execute, lo abro con el recordset.open (

Código:

rsLocal.Open "select * from caja", cnLocal, adOpenStatic, adLockBatchOptimistic

) lo HACE BIEN. El tema es que necesito hacerlo con el command, porque tengo muchas consultas que ncesitan parameters.
Agradezco cualquier ayuda.

[lokoman]

Hola!!
Que parametros necesitas?
No puedes poner "WHERE CAMPO1=VALOR" en lo Sentencia SQL?

Código vb:

rsLocal.Open "select * from caja where campo1=valor", cnLocal, adOpenStatic, adLockBatchOptimistic
 

[federp77]

no eso no puedo hacerlo, porque es un sistema que estoy migrando de DAO a ADO, y tiene mucha funcionalidad basada en parametros, por eso queria evitarlo. Igual te agradezco, ya lo solucione... bah, en realidad lo que pasaba es que el recordset linkeado a una base access SIEMPRE me devolvia el recordCount en -1 (no se porque) aunque en realidad si traia los datos.

[goffys1]

Estimado :

te devolvia -1 el recordcount porque no veo como declaraste CursorLocation dentro de la apertura de la base. Para que recordcount funcione, debe declarase base.cursorlocation = adUseClient.

Saludos.

[federp77]

Gracias goffys1, ahi anduvo bien!