Create DB without Access

[joltremari]

I found a tutorial one time that showed an example of how to create a MS Access DB with a vb app but the user did not have to have Access installed on their machine.

Can someone provide an example or explanation of this or maybe point me toward some info.

Any help is appreciated,
JO

[peet]

it is correct, ms access do not have to be installed.

you can use ADO and ADOX in order to retreive, view and edit data, and also to maintain and create databases.

sample

'Add a reference to Microsoft ADO Ext. X.X For DLL And Security
 
Option Explicit
Dim cat As ADOX.Catalog
Dim tbl As ADOX.Table
 
Private Sub Command1_Click()
    Set cat = New ADOX.Catalog
    Set tbl = New ADOX.Table
 
    ' create the db
    cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\newDB3.mdb"
    
    With tbl
      .Name = "TestTable"
      ' Create fields and append them to the
      ' Columns collection of the new Table object.
      With .Columns
         .Append "ID COLUMN"
         .Append "SetName", adVarWChar, 255
         .Append "SetVal", adVarWChar, 255
         .Append "Description", adVarWChar, 255
      End With
   End With
   
   ' Add the new Table to the Tables collection of the database.
   cat.Tables.Append tbl
   
   'Set AllowZeroLength to true for the SetName field
   tbl.Columns("SetName").Properties("Jet OLEDB:Allow Zero Length") = True
   
   Set cat = Nothing
   Set tbl = Nothing
    
End Sub

[peet]

use some of these links to learn more about ado, or do a search on the web... there must be thousands of tutorials on this issue

http://www.devguru.com/Technologies/...ado_intro.html
http://www.vbworld.com/databases/
http://www.codeguru.com/vb/Database/ADO/index.shtml
http://www.able-consulting.com/ADO

[joltremari]

Thats great info!
I am familiar with ado but with existing databases.

Thanks for the info!

[peet]

seems my links are a bit old, (2 not working ) sorry about that

[shragel]

And you can use DAO too. Just search the help files.