Connect an OLEDB with MS Access 2007 Files
Add a new module in you project or use the existing module...
add a Reference" Microsoft ActiveX Data Objects 2.1 Library or Higher
type this code in the Module and make Sub Main as your startup module
Option Explicit
Public CON as ADODB.Connection
Sub Main()
Set CON = New ADODB.Connection
CON.Provider = "Microsoft.ACE.OLEDB.12.0"
CON.Open App.Path & "\ACCESS2007FILE.accdb","admin",""
NextForm.show
'From here, you should be typing the name of the first Form to be loaded when running you program...
End sub
Note:
you may not use App.Path in the Connection string if you haven't save the project and database in just one Folder, so make sure that you project and database are in one folder.
Article by bryanhayag
bryanhayag has submitted 2 source code / articles.
If you like This post, you can follow SourceCodester on Twitter.
Subscribe to SourceCodester feed via RSS or EMAIL to receive instant updates.
Note: Due to the size or complexity of this submission, the author has submitted it as a .zip file to shorten your download time. After downloading it, you will need a program like Winzip to decompress it.
Virus note: All files are scanned once-a-day by SourceCodester.com for viruses, but new viruses come out every day, so no prevention program can catch 100% of them.
FOR YOUR OWN SAFETY, PLEASE:
1. Re-scan downloaded files using your personal virus checker before using it.
2. NEVER, EVER run compiled files (.exe's, .ocx's, .dll's etc.)--only run source code.
Add new comment