Reference: Microsoft ADO Ext.2.1(或以上)for DDL and Security
Sub CreateDatabase()   Dim cat As New ADOX.Catalog
   cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\new.mdb"End SubSub CreateTable()   Dim tbl As New Table
   Dim cat As New ADOX.Catalog   ' 打开目录。
   cat.ActiveConnection = _ 
      "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=c:\new.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

解决方案 »

  1.   

    Dim tdExample As TableDef
        Dim fldForeName As Field
        Dim fldSurname As Field
        Dim fldDOB As Field
        Dim fldFurtherDetails As Field
        Dim dbDatabase As Database
        Dim sNewDBPathAndName As String
        sNewDBPathAndName = App.Path & "\NewDB" & Right$(Time, 2) & ".mdb"
        Set dbDatabase = CreateDatabase(sNewDBPathAndName, dbLangGeneral, dbEncrypt)
        Set tdExample = dbDatabase.CreateTableDef("Example")    Set fldForeName = tdExample.CreateField("Fore_Name", dbText, 20)
        Set fldSurname = tdExample.CreateField("Surname", dbText, 20)
        Set fldDOB = tdExample.CreateField("DOB", dbDate)
        Set fldFurtherDetails = tdExample.CreateField("Further_Details", dbMemo)
        
        tdExample.Fields.Append fldForeName
        tdExample.Fields.Append fldSurname
        tdExample.Fields.Append fldDOB
        tdExample.Fields.Append fldFurtherDetails
        dbDatabase.TableDefs.Append tdExample
        MsgBox "New .MDB Created - '" & sNewDBPathAndName & "'", vbInformation
      

  2.   

    Dim cat As Object
    Set cat = CreateObject("ADOX.catalog")
    cat.Create "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=d:\new1.mdb"Dim tbl As Object
    Set tbl = CreateObject("adox.table")
    Set cat.ActiveConnection = Nothing
       cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.3.51;" & _
          "Data Source=d:\new1.mdb"
       tbl.Name = "MyTable"
       tbl.Columns.Append "Column1", adInteger
       tbl.Columns.Append "Column2", adInteger
       tbl.Columns.Append "Column3", adVarWChar, 50
       cat.Tables.Append tbl
      

  3.   

    ◆◆◆◆◆◆◆请大家帮忙解决,急需谢谢!!!!◆◆◆◆◆◆◆◆◆◆◆
    (同时加上密码)
    http://www.csdn.net/expert/topic/294/294914.shtm
      

  4.   

    Dim cat As Object
    Set cat = CreateObject("ADOX.catalog")
    cat.Create "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=d:\new1.mdb"Dim tbl As Object
    Set tbl = CreateObject("adox.table")
    Set cat.ActiveConnection = Nothing
      cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.3.51;" & _
          "Data Source=d:\new1.mdb"
      tbl.Name = "MyTable"
      tbl.Columns.Append "Column1", adInteger
      tbl.Columns.Append "Column2", adInteger
      tbl.Columns.Append "Column3", adVarWChar, 50
      cat.Tables.Append tbl