Opening an access application

[ram_Sathish]

Hi All,

I tried opening an access application through creating an object of the access application in VB 6.0 by giving the following codes.

set obj =createobject ("access.application")
set obj1=obj.openaccessproject("Path of the file")

i am unable to open an access application.
please help me out.


thanks

 

[SydneyGeek]

Ram, If you are using ADO to connect you will need to reference the ADO 2.x library and use this syntax:

Dim adoconnection As ADODB.Connection
Dim rs As ADODB.Recordset
Dim connectstring As String

Set adoconnection = New ADODB.Connection
Set rs = New ADODB.Recordset

connectstring = "provider=microsoft.jet.oledb.3.51;" _
& "data source=YourDB_Path"

adoconnection.Open connectstring

If you are using DAO you will need to reference the DAO 3.6 library and use syntax like this:

Dim db as dao.database 
set db = dbengine.workspaces(0).opendatabase("YourDB_path")

Denis