| Sub ADOCreateTable() Dim cat As New ADOX.Catalog Dim tbl As New ADOX.Table ' Open the catalog cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=.\NorthWind.mdb;" ' Create a new Table object. With tbl .Name = "Contacts" ' Create fields and append them to the new Table ' object. This must be done before appending the ' Table object to the Tables collection of the ' Catalog. .Columns.Append "ContactName", adVarWChar .Columns.Append "ContactTitle", adVarWChar .Columns.Append "Phone", adVarWChar .Columns.Append "Notes", adLongVarWChar .Columns("Notes").Attributes = adColNullable End With ' Add the new table to the database. cat.Tables.Append tbl Set cat = Nothing ' 'The process for creating a table using DAO or ADOX is the same. First, create the object (TableDef or Table), append the 'columns (Field or Column objects), and finally append the table to the collection. Though the process is the same, the 'syntax is slightly different. 'With ADOX, it is not necessary to use a "create" method to create the column before appending it to the collection. The 'Append method can be used to both create and append the column. 'You 'll also notice the data type names for the columns are different between DAO and ADOX. The following table shows 'how the DAO data types that apply to Microsoft Jet databases map to the ADO data types. 'DAO data type ADO data type 'dbBinary adBinary 'dbBoolean adBoolean 'dbByte adUnsignedTinyInt 'dbCurrency adCurrency 'dbDate adDate 'dbDecimal adNumeric 'dbDouble adDouble 'dbGUID adGUID 'dbInteger adSmallInt 'dbLong adInteger 'dbLongBinary adLongVarBinary 'dbMemo adLongVarWChar 'dbSingle adSingle 'dbText adVarWChar 'Though not shown in this example, there are a number of other attributes of a table or column that you can set when 'creating the table or column, using the DAO Attributes property. The table below shows how these attributes map to ADO 'and Microsoft Jet Provider–specific properties. 'DAO TableDef Property Value ADOX Table Property Value 'Attributes dbAttachExclusive Jet OLEDB:Exclusive Link True 'Attributes dbAttachSavePWD Jet OLEDB:Cache Link Name/Password True 'Attributes dbAttachedTable Type "LINK" 'Attributes dbAttachedODBC Type "PASS-THROUGH" 'DAO Field Property Value ADOX Column Property Value 'Attributes dbAutoIncrField AutoIncrement True 'Attributes dbFixedField ColumnAttributes adColFixed 'Attributes dbHyperlinkField Jet OLEDB:Hyperlink True 'Attributes dbSystemField No equivalent n/a 'Attributes dbUpdatableField Attributes (Field Object) adFldUpdatable 'Attributes dbVariableField ColumnAttributes Not adColFixed End Sub |
Table, Create |
India web developer web development India | Freelance web development ecommerce web developer | Prayagasoft - web designer India, Ecommerce developer india, Ecommerce design