Find Code:
All Words
Any of the Words
Exact Phrase
Home
:
Code
:
Forums
:
Submit
:
Mailing List
:
About
:
Contact
Code
All
VB.NET
ASP.NET
C#
VB Classic
ASP Classic
Snippets
Popular
Resources
Submit Code
Forums
Articles
Tips
Links
Books
Contest
Link to us
This piece of code (vb6) compares the speed of acc...
Author:
Marlon Durana
E-mail:
Click to e-mail author
Submitted:
9/11/2002
Version:
VB6, VB.NET
Compatibility:
VB6, VB.NET
Category:
Databases
Views:
15317
This piece of code (vb6) compares the speed of accessing data in DAO(Data Access Objects) and ADO(ActiveX Data Objects). Test under VB6, may work also in VB.Net.
Declarations:
'*****************************************************' ' ' ' Author: Marlon Durana ' ' E-Mail: opps_sorry2001@yahoo.com ' ' Description: CompareADODAO.vbp ' ' Form1.frm ' ' Compares the speed of ADO and DAO ' ' '*****************************************************' Option Explicit
Code:
Private Sub DAORoutine() Dim x As Single x = Timer Dim dbTable As DAO.Database Dim rsField As DAO.Recordset Dim qdfSQL As DAO.QueryDef Set dbTable = OpenDatabase("biblio.mdb") Set rsField = dbTable.OpenRecordset("SELECT * FROM Authors") With rsField MousePointer = vbHourglass .MoveFirst Combo1.Clear List1.Clear List1.Visible = False While Not .EOF DoEvents List1.AddItem .Fields("Au_ID") Combo1.AddItem .Fields("Author") .MoveNext Wend .MoveFirst .Close List1.Visible = True End With Set rsField = Nothing Set dbTable = Nothing MousePointer = vbDefault MsgBox Timer - x End Sub Private Sub Command1_Click() DAORoutine End Sub Private Sub ADORoutine() Dim x As Single x = Timer Dim adoConn As New ADODB.Connection Dim adoField As New ADODB.Recordset adoConn.Open "Provider=Microsoft.jet.OLeDB.3.51;Data Source=biblio.mdb;" adoField.Open "Authors", adoConn With adoField MousePointer = vbHourglass .MoveFirst Combo1.Clear List1.Clear List1.Visible = False 'Combo1.Visible = False While Not .EOF DoEvents List1.AddItem .Fields("Au_ID") Combo1.AddItem .Fields("Author") .MoveNext Wend .MoveFirst .Close List1.Visible = True 'Combo1.Visible = True End With MousePointer = vbDefault MsgBox Timer - x End Sub Private Sub Command2_Click() ADORoutine End Sub
Home
|
Forums
|
Submit
|
Books
|
Mailing List
|
Advertising
|
About
|
Contact
© 2024 A1VBCode. All rights reserved.
Legal disclaimer & terms of use
Privacy statement