Create table using Jet.OLEDB.3.51?

[hcleo]

Can any one give me the coding for creating the db and the table by using the Jet.OLEDB.3.51 but not the 4.0 one, thanx.

[Dr_Evil]

For the database:

Private Sub NewDatabase_Click()
Dim db As Database

CommonDialog1.ShowSave
If CommonDialog1.FileName <> "" Then
Set db = DBEngine.Workspaces(0).CreateDatabase
(CommonDialog1.FileName, dbLangGeneral)
End If
End Sub


For the table:

Sub CreateTable()
Dim td As TableDef
Dim fields(2) As Field

Set td = db.CreateTableDef(name,attributes,source,connect)

Set fields(0) = td.CreateField(name, type, size)
Set fields(1) = td.CreateField(name, type, size)
td.fields.Append fields(0)
td.fields.Append fields(1)

End Sub


[Edited by Dr_Evil on 04-03-2000 at 10:26 AM]

[Clunietp]

That is DAO code, Dr Evil!

Here is ADO code to create a DB:

'use ADO 2.x for DDL and security
Dim strConnectionStringOfNewDB As String
Dim objCat As ADOX.Catalog

'instantiate catalog object
Set objCat = New ADOX.Catalog

'connection string of new db -- includes driver/db type and location
strConnectionStringOfNewDB = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=C:\NewDB.mdb"

'create it
objCat.Create strConnectionStringOfNewDB

'cleanup
Set objCat = Nothing