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.