RecordCount(resolved)

hi,

i always having problems in using RecordCount. It always give me -1 eventhough there are some records.

below is part of my coding. i want to display the records in a MSFlexGrid. Before the display i check for the recordcount , if the record is > 15 , then the rows will +1. But i always getting the recordcount is -1 even there are many records. Can someone help me to solve this

Private Sub fillDetails()

MSFlexGrid1.Clear
Dim row_counter As Integer
row_counter = 1

With MSFlexGrid1
.FormatString = " No." & "|" & " Date" & "|" & " .............
End With

rs_f.Open "select * from FollowUp where EnqNo = " & Label1 & "", con, adOpenDynamic, adLockPessimistic


If rs_f.RecordCount <> 0 Then
G_RowCheck = rs_f.RecordCount
If rs_f.RecordCount > 15 Then
Me.MSFlexGrid1.Rows = rs_f.RecordCount + 1
Else
Me.MSFlexGrid1.Rows = 15
End If

Quote:

---

Originally Posted by vivian2u

hi,

i always having problems in using RecordCount. It always give me -1 eventhough there are some records.

below is part of my coding. i want to display the records in a MSFlexGrid. Before the display i check for the recordcount , if the record is > 15 , then the rows will +1. But i always getting the recordcount is -1 even there are many records. Can someone help me to solve this

Private Sub fillDetails()

MSFlexGrid1.Clear
Dim row_counter As Integer
row_counter = 1

With MSFlexGrid1
.FormatString = " No." & "|" & " Date" & "|" & " .............
End With

rs_f.Open "select * from FollowUp where EnqNo = " & Label1 & "", con, adOpenDynamic, adLockPessimistic


If rs_f.RecordCount <> 0 Then
G_RowCheck = rs_f.RecordCount
If rs_f.RecordCount > 15 Then
Me.MSFlexGrid1.Rows = rs_f.RecordCount + 1
Else
Me.MSFlexGrid1.Rows = 15
End If

---

Replace adOpenDynamic either with adOpenStatic or adOpenKeySet

you may need to move to the end of the recordset to get a correct record count, then movefirst to go back to the start.

rgds
pete

Quote:

---

Originally Posted by westconn1

you may need to move to the end of the recordset to get a correct record count, then movefirst to go back to the start.

rgds
pete

---

not necessary...

Quote:

---

not necessary...

---

it has resolved similar problems for me in the past

pete

Quote:

---

Originally Posted by westconn1

it has resolved similar problems for me in the past

pete

---

yah... i have also seen this working in some conditions..
I think it is provider specific... :)

I opened a recordset with Access table... and it didn't require me to movelast and movefirst before getting the recordcount..

yeah i know i was using DAO at the time, i don't know if the same would apply to ADO, or even what vivian2u is using.

hence i said "may need"

pete

Hi guys,

Problem solved when i replace adOpenDynamic either with adOpenStatic or adOpenKeySet. Great !! Cheers ! :wave:

Vivian2u

Hi

I olso confus with opendynamic and open static
any one help to make clear pls, thanks


kamus

Wouldnt this work?

VB Code:

rs_f.CursorLocation=adUseClient
rs_f.Open "select * from FollowUp where EnqNo = " & Label1 & "", con, adOpenDynamic, adLockPessimistic

I believe this would also return the correct recordcount even if its adOpenDynamic....

Quote:

---

I olso confus with opendynamic and open static
any one help to make clear pls, thanks

---

adOpenDynamic: Dynamic cursor. Additions, changes, and deletions by other users are visible, and all types of movement through the recordset are allowed, except for bookmarks if the provider doesn't support them.
adOpenKeyset: Keyset cursor. Like a dynamic cursor, except that you can't see records that other users add, although records that other users delete are inaccessible from your recordset. Data changes by other users are still visible.