Quick DB question

[Pino]

ok how do you create a new access Database in a set location useing ADO

and how can you create a new table (using code) using ado and access

and finally how can you view all the tables in a set database


thanks sorry for all the questions just need to clear something up

PINO

[RhinoBull]

Set references to MS ADO Ext. x.x DDL and Security and run this sample:

Private Sub Command2_Click()
'=============================
Dim tbl As New ADOX.Table
Dim cat As New ADOX.Catalog
Dim sSQL$
 
    sSQL = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                 "Data Source=" & App.Path & "\NewDB.mdb;" & _
                 "Jet OLEDB:Engine Type=5"
    cat.Create sSQL
    tbl.Name = "Test_Table"
    tbl.Columns.Append "Field1", adInteger
    tbl.Keys.Append "PrimaryKey", adKeyPrimary, "Field1"
    cat.Tables.Append tbl
    
    Set cat = Nothing
    Set tbl = Nothing
 
End Sub

[Pino]

when i try and open the created DB it says unrecognized format.....cant i view it visually?

[Pino]

and this line errors...


cat.Tables.Append tbl

[RhinoBull]

What version of ADO are you using - you may need 2.6

[Pino]

using 2.7

[RhinoBull]

I might be wrong but I think 2.7 is for Access 2002 so get 2.6 from MS - you may have multiple versions installed without any conflict.