Not all of my records - MSHFlexgrid

[JonJacobik]

I have flexgrid problem. Code seems to work perfectly, but the flexgrid only loads about 2000 of 11000 records.

Is there a property limitting the number of records in a the recordset? Here's the code that makes it all happen:

sConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;User ID=Admin;Data Source=RESULTS2K.MDB;Mode=Share Deny None;Extended Properties=';COUNTRY=0;CP=1252;LANGID=0x0409';Locale Identifier=1033;Jet OLEDB:System database='';Jet OLEDB:Registry Path='';Jet OLEDBatabase Password='';Jet OLEDB:Global Partial Bulk Ops=2"
sSQL = "select ReFerence,Title,Artist,Category,Tempo,Length,Ending,Intro,Year from Music Order by Title"

' open connection
Set dfwConn = New ADODB.Connection
dfwConn.Open sConnect
' create a recordset using the provided collection
Set datPrimaryRS = New ADODB.Recordset
datPrimaryRS.CursorLocation = adUseClient
datPrimaryRS.Open sSQL, dfwConn, adOpenForwardOnly, adLockReadOnly
drawit

 

[CCLINT]

Try using the MSHFlexGrid.
Or try:

http://support.microsoft.com/default.aspx?scid=kb;en-us;254117

 

[JonJacobik]

I am using MSHflexgrid - but here's the unusual I discovered today. My development machine will only load about 2000 lines, but running on a Win 98, same code loads 9000 lines without blinking.

The XP machine simply stops after 2000 records. - in code or compiled.

Jon

 

[CCLINT]

Are you saying the recordset only contains 2000 records when there should be many more, of the flex grid?

Change your cursor type to adOpenStatic and then see what
Debug.Print datPrimaryRS.Recordset.Recordcount
returns

 

[JonJacobik]

I found the problem. An older version of MSHFLXGD.OCX was found on my development system - dated 6/24/98, when I renamed it, it forced the sytem to use a newer version dated 5/22/00. Now it works just fine.

Was their a VB update I missed?