CREATEDB Jet and SQL

[joe_pool_is]

Could someone point out how to create an Access database with ADO?

Microsoft has an article mentioning that CREATEDB allows a user to create a new database (see http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnacc2k/html/acadvsql.asp), but it does not show how to use it.

I like being able to use a database with my program, but if some bozo deletes it, the whole program becomes useless.

 

[macdonab]

Create Access Db

Try something like this;

Private Sub CreateDatabase(ByVal DBName As String)
Dim Cat As Catalog = New Catalog
Try
Cat.Create("Provider=Microsoft.Jet.OLEDb.4.0;" & _
"Data Source=" & _
DBName & ";" & _
"Jet OLEDb:Engine Type=5")
Access Database Versions;
Type 5 - Access 2000
Catch ex As OleDbException
MessageBox.Show(ex.Message, _
"OLEDb Error", _
MessageBoxButtons.OK, _
MessageBoxIcon.Exclamation)
Catch ex As Exception
MessageBox.Show(ex.Message, _
"VB.Net Error", _
MessageBoxButtons.OK, _
MessageBoxIcon.Exclamation)
Finally
Cat = Nothing
End Try
End Sub

 

[joe_pool_is]

Thanks macdonab, that turns out to be exactly what I used.

Still, it seems strange that Microsoft would point out the command CREATEDB and tell what it does without actually having a way to use it.