Gammon Forum

ADOX, DBEngine or ODBC Control Panel
|
\____Create
        |
        V
      Driver _____  (Mydata.MDB is created here.)
                 _\|
      Driver <--> Data Source (Mydata.MDB)
        ^
        |
        V
 ____Connect to Data Source
/
ADODB and ODBC


And database actually looks like:

Data source (Mydata.MDB)
|
|-Table (MyTable) - This is what ADODB creates and contains the 'database'.
|     \
|      Records
|
|-Table (FredsTable)
|
Etc.

const adBigInt = 20 
const adBinary = 128 
const adBoolean = 11 
const adBSTR = 8 
const adChapter = 136 
const adChar = 129 
const adCurrency = 6 
const adDate = 7 
const adDBDate = 133 
const adDBTime = 134 
const adDBTimeStamp = 135 
const adDecimal = 14 
const adDouble = 5 
const adEmpty = 0 
const adError = 10 
const adFileTime = 64 
const adGUID = 72 
const adIDispatch = 9 
const adInteger = 3 
const adIUnknown = 13 
const adLongVarBinary = 205 
const adLongVarChar = 201 
const adLongVarWChar = 203 
const adNumeric = 131 
const adPropVariant = 138 
const adSingle = 4 
const adSmallInt = 2 
const adTinyInt = 16 
const adUnsignedBigInt = 21 
const adUnsignedInt = 19 
const adUnsignedSmallInt = 18 
const adUnsignedTinyInt = 17 
const adUserDefined = 132 
const adVarBinary = 204 
const adVarChar = 200 
const adVariant = 12 
const adVarNumeric = 139 
const adVarWChar = 202 
const adWChar = 130 

sub CreateDatabase
Dim catDB 
Set catDB = CreateObject ("ADOX.Catalog")
catDB.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & _
              "Data Source=c:\mushclient\mydb.mdb;" & _
              "Jet OLEDB:Engine Type=5;"

Set catDB = Nothing
end sub

sub CreateTable
dim catDB
dim tblNew
Set catDB = CreateObject ("ADOX.Catalog")

 ' Open the catalog.
 catDB.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=c:\mushclient\mydb.mdb"

 Set tblNew = CreateObject ("ADOX.Table")
  With tblNew
   ' Create a new Table object.
   .Name = "Contacts"
    ' Create fields and append them to the 
    ' Columns collection of the new Table object.
     With .Columns
       .Append "FirstName", adVarWChar 
       .Append "LastName", adVarWChar 
       .Append "Phone", adVarWChar 
       .Append "Notes", adLongVarWChar 
     End With
  End With
  ' Add the new Table to the Tables collection of the database.
 catDB.Tables.Append tblNew
   
Set tblNew = nothing
Set catDB = Nothing
end sub