Showing posts with label 7. Speed Up DB Access. Show all posts
Showing posts with label 7. Speed Up DB Access. Show all posts

How to Speed Up Database Access

Here is a trick to loop through a recordset faster. Often when looping through a recordset people will use the following code:

Do While Not Records.EOF
Combo1.AddItem Records![Full Name]
Records.Movenext
Loop

The problem is that everytime the database moves to the next record it must make a check to see if it has reached the end of the file. This slows the looping down a great deal. When moving or searching throuch a large record set this can make a major difference. Here is a better way to do it.

Records.MoveLast
intRecCount=Records.RecordCount
Records.MoveFirst

For intCounter=1 To intRecCount
Combo1.AddItem Records![Full Name]
Records.MoveNext
Next intCounter