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
ADODB Function
Author:
Kailash Fanin
E-mail:
Click to e-mail author
Submitted:
11/5/2005
Version:
VB6
Compatibility:
VB6
Category:
Databases
Views:
22329
Connecting to Database and Tables using ADODB.
Declarations:
'Copyright to Fanin Software by Kailash Fanin' 'Last modified 6st November 2005 'You can use "connectDatabase" function in any program. ' you have to include the reference to "Microsoft Activex data objects 2.5 library" Public cnWorkShop As Connection Public rsItemMaster As Recordset Public rsIUnit As Recordset
Code:
Public Sub connectDatabase() Set cnWorkShop = New ADODB.Connection With cnWorkShop .Provider = "Microsoft.JET.OLEDB.4.0" .ConnectionString = App.Path & "\Accounts.mdb" 'Write your access Database name .Open End With Set rsItemMaster = New ADODB.Recordset rsItemMaster.Open "Item", cnWorkShop, adOpenKeyset, adLockOptimistic Set rsIUnit = New ADODB.Recordset rsIUnit.Open "Unit", cnWorkShop, adOpenKeyset, adLockOptimistic End Sub
Home
|
Forums
|
Submit
|
Books
|
Mailing List
|
Advertising
|
About
|
Contact
© 2024 A1VBCode. All rights reserved.
Legal disclaimer & terms of use
Privacy statement