ADOX Data Type Corresponding Data Type in Access
adBoolean Yes/No
adUnsignedTinyInt Number (FieldSize = Byte)
adSmalIInt Number (FieldSize = Integer)
adSingle Number (FieldSize = Single)
adDouble Number (FieldSize = Double)
adDecimal Number (FieldSize = Decimal)
adInteger Number (FieldSize = LongInteger)
AutoNumber
adCurrency Currency
adVarWChar Text
adDate Date/Time
adLongVarBinary OLE Object
dbMemo Memo
adLongVarWChar Hyperlink
' make sure to set up a reference to
' the Microsoft ADO Ext. 2.5 for DDL and Security
' Object Library
Sub Create_Table()
Dim cat As ADOX.Catalog
Dim myTable As ADOX.Table
On Error GoTo ErrorHandler
Set cat = New Catalog
cat.ActiveConnection = CurrentProject.Connection
Set myTable = New Table
With myTable
.Name = "rntsoftTable"
With .Columns
.Append "Id", adVarWChar, 10
.Append "Description", adVarWChar, 255
.Append "Type", adInteger
End With
End With
cat.Tables.Append myTable
Set cat = Nothing
MsgBox "The new table 'rntsoftTable' was created."
Exit Sub
ErrorHandler:
If Err.Number = -2147217857 Then
cat.Tables.Delete "rntsoftTable"
Resume
End If
MsgBox Err.Number & ": " & Err.Description
End Sub