How can i create DB Access at runtime ?

[pooni]

Hi all !!!

How can i create an empty *.mdb file (no tables, no reports, ...) at runtime with VB?

Thanx !

[pooni]

Very simple pooni :

you must declare an object Access.Application (the reference to Micro$oft Access must be set before). The code must be like this:

set mdbApp = CreateObject("Access.Application")
mdbApp.NewCurrentDatabase (App.Path & "\" & "Test.mdb")
set mdbApp = Nothing

And then you'll have an empty DB Access in your application path ...

[Edited by pooni on 05-24-2000 at 08:50 AM]

[gorthims]

Hi Pooni

The above code works only when the Access is installed in your machine.

Try the following.
Set a refernce to Microsoft Data Access Objects 3.6 in The Project --> References.

Use the following code

Dim db As DAO.Database
Dim NewDatabaseFilePath As String
NewDatabaseFilePath = "c:\test.mdb"    'You can give your own path
Set db = CreateDatabase(NewDatabaseFilePath, dbLangGeneral)    'This will create a new test.mdb file
db.Close
Set db = Nothing

ALL THE BEST