在VB中如何建表

Question

我用ACCESS建立了一个数据库DB1，然后我想用VB语句在DB1中建一个表
请问这样该怎么做

Answer 1

Sub createtable() '创建数据库的表
On Error Resume Next
Dim mycat As New ADOX.Catalog
Dim mytable As New ADOX.Table
mycat.ActiveConnection = "Provider=MicroSoft.Jet.OLEDB.3.51;Data Source=e:\db1.MDB"
 For i = 1 To 9
 mytable.Name = "表" & i
 mytable.Columns.Append "字段1", adDate
 mytable.Columns.Append "字段2", adInteger
 mytable.Columns.Append "字段3", adBoolean
 mytable.Columns.Append "字段4", adVarChar
 mycat.Tables.Append mytable
 Set mytable = Nothing
 Next
 MsgBox "创建 表1----表9 成功！"
 Set mycat.ActiveConnection = Nothing
   
End Sub

Answer 2

1.使用楼上的代码前,需要先引用Microsoft ADO Ext. 2.6 for DLL and Security库
2.也可以调用Create表的SQL语句

Answer 3

这样建立ACCESS数据库和表
引用    Microsoft ADO Ext. 2.7 for DDL and SecurityThe following code shows how to create a new Microsoft Jet database with the Create method.Attribute VB_Name = "Create"
Option Explicit' BeginCreateDatabseVB
Sub CreateDatabase()   Dim cat As New ADOX.Catalog
   cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\new.mdb"End Sub
' EndCreateDatabaseVBThe following code demonstrates how to create a new table.' BeginCreateTableVB
Sub CreateTable()   Dim tbl As New Table
   Dim cat As New ADOX.Catalog'Open the catalog.
   ' Open the Catalog.
   cat.ActiveConnection = _
      "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=c:\Program Files\Microsoft Office\" & _
      "Office\Samples\Northwind.mdb;"   tbl.Name = "MyTable"
   tbl.Columns.Append "Column1", adInteger
   tbl.Columns.Append "Column2", adInteger
   tbl.Columns.Append "Column3", adVarWChar, 50
   cat.Tables.Append tblEnd Sub

Answer 4

DAO的方式建立ACCESS数据库和表        Dim MyTable As TableDef, MyField As Field
        Dim MyDatabase As Database
        Set MyDatabase = CreateDatabase("c:\Trade.mdb", dbLangGeneral, dbEncrypt)
        Set MyTable = MyDatabase.CreateTableDef("System")
        Set MyField = MyTable.CreateField("APPLNAME", dbText, 100)     '项目名称
        MyTable.Fields.Append MyField
        Set MyField = MyTable.CreateField("SERVERNAME", dbText, 15)    '服务器名称
        MyTable.Fields.Append MyField
        Set MyField = MyTable.CreateField("LOGONNAME", dbText, 15)     '数据库用户
        MyTable.Fields.Append MyField
        Set MyField = MyTable.CreateField("PASSWORD", dbText, 15)      '数据库口令
        MyTable.Fields.Append MyField
        Set MyField = MyTable.CreateField("DATANAME", dbText, 15)      '数据库名称
        MyTable.Fields.Append MyField
        MyDatabase.TableDefs.Append MyTable        MyDatabase.Close