Hi All!

I want to count records from my Recordset, So I'm using here RECORDCOUNT property of RECORDSET but it always returns me [-1] though Recordset has 14 records.
Can somebody tell me how to use this property.
This is my source i'm using..


Dim con As New ADODB.Connection, rs As New ADODB.Recordset Class1
Private Sub Form_Load()
    Set con = con_open(con)
    rs.Open "select * from Table1", con, adOpenDynamic, adLockOptimistic
        rs.MoveNext
        MsgBox rs.RecordCount
    End
End Sub
Public Function con_open(con1 As ADODB.Connection) As ADODB.Connection
        con1.Provider = "Microsoft.jet.oledb.4.0"
        con1.ConnectionString = App.Path & "\dbase.mdb"
        con1.Open
        Set con_open = con1
End Function


Thanks.....

DPK..

__________________
DPK..

If you just want the number of records, I would suggest using an SQL statement rather than a RecordSet.

Example:
    SELECT Count(*) FROM Table1;

- A.Kahtava

Thanks adam for your reply..
I always do this as you said but I don't want to open the recordset twice as I did below in code...
Any other way to do this without opening of Recordset...


Thanks again...

Dim con As New ADODB.Connection, rs As New ADODB.Recordset, ref As New Class1
Private Sub Form_Load()
    Set con = ref.con_open(con)
    rs.Open "select count(*) from table1", con, adOpenDynamic, adLockOptimistic
        Count = rs.Fields(0)
    rs.Close
    rs.Open "select * from Table1", con, adOpenDynamic, adLockOptimistic
        rs.MoveNext
        MsgBox rs.RecordCount
    End
End Sub
Public Function con_open(con1 As ADODB.Connection) As ADODB.Connection
        con1.Provider = "Microsoft.jet.oledb.4.0"
        con1.ConnectionString = App.Path & "\dbase.mdb"
        con1.Open
        Set con_open = con1
End Function


DPK..

not all sql engines support the RecordSet property, that AFAIK is available only using client cursors.
trying set the recordset.CursorLocation = adUseClient and see if it helps
Marco

Hi.

The cursor type of the Recordset object affects whether the number of records can be determined.
The RecordCount property will return -1 for a forward-only cursor; the actual count for a static or keyset cursor; and either -1 or the actual count for a dynamic cursor, depending on the data source.

Peko

Do you intend to manipulate the records within your RecordSet?
If you just want to display the number of records in Table1 then the following procedure should work.

Private Sub Form_Load()
    Set con = ref.con_open(con)
    rs.Open "select count(*) from table1", con, adOpenDynamic, adLockOptimistic
MsgBox rs.Fields(0)
    rs.Close
End Sub

- A.Kahtava

Hi Adam !

Thanks Adam for your reply I know about this SQL statement I jst wanted to know that why RecordSet.RecordCount does not work with my code.
But now I knew that..

Thank you very much again....


DPK..

Gotcha... Sorry; I didn't quite understand your problem.
Anyhow; glad you got it figured out.. :)

- A.Kahtava

hello dpkbahuguna
plese try 2 change ur cursor and lock type combination

Hi kvingupta !

I already did it, and it worked...
But however...

Thanks for your reply ...
Have a Good Day !:)

DPK..