open a access database

[Zeroanarchy]

I have not got a lot of experience with VB and I am looking for a way to open an access database.

I have tried
Dim RetVal
RetVal = Shell("c:\program files\access.exe, mydatabase.mdb", 1)

the problem with shell is if they have placed access somewhere else it will not work.

so I tried

Private Sub sampleLabel_Click(Index As Integer)
Dim db As Database
Set db = DBEngine.OpenDatabase("C:\mydatabase.mdb&quot
End Sub

and I get an error

compile error
User-defined type not defined

All I want it to do is run the database.

Thanks Zero

 

[zcjl]

You can try this way:

Private Sub sampleLabel_Click(Index As Integer)
Dim TestAs New ADODB.Connection
Test.ConnectionString="Provider=Microsoft.Jet.OLEDB.3.51;" & _
"Data Source=C:\AAA\Tables.mdb;"

Test.Open

End Sub

Please do not forget selecting ADO2.50 in Reference.

 

[Zeroanarchy]

Zcjl thanks for your help just a quick query.


There seems to be an error with this line, its highlited red.

Dim TestAs New ADODB.Connection

as for the reference,are you refereing to;
Microsoft DAO 2.5/3.5 compatibiltity Library.

Thanks Zero

 

[aoven]

Hi!

The error is actually a typing mistake!

Dim TestAs New ADODB.Connection should be
Dim Test As New ADODB.Connection

I would however encourage you to use your first method because DAO is much faster with Access than ADO, but you have to modify it a bit: Just add DAO 3.51 or 3.6 to you References, then type:

Dim db As Database
Set db = OpenDatabase("C:\mydatabase.mdb&quot

Then you can do just about anything with your db. You can also declare another variable As TableDef and then open a table. It's all in VB's help.

Aleksander