如何在vb中动态建数据库

Question

引用ADOX
创建数据库范例
如下代码显示如何通过 Create 方法创建新的 Jet 数据库。Sub CreateDatabase()    Dim cat As New ADOX.Catalog
    cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\new.mdb"End Sub

Answer 1

创建索引范例
如下代码演示如何创建新的索引。索引针对表的两个列建立。Sub CreateIndex()    Dim tbl As New Table
    Dim idx As New ADOX.Index
    Dim cat As New ADOX.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 tbl    ' 定义多列索引
    idx.Name = "multicolidx"
    idx.Columns.Append "Column1"
    idx.Columns.Append "Column2"    ' 将索引追加到表上
    tbl.Indexes.Append idxEnd Sub

Answer 2

创建表范例 
如下代码演示如何创建新表。Sub CreateTable()    Dim tbl As New Table
    Dim cat As New ADOX.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 3

也可以用create table命令
如
dim cn as new adodb.connect
cn.open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=c:\test.mdb;" & _
"Persist Security Info=False;" 
cn.Execute  "create table tbl1 ([fd1] text(2), [fd2] text(50))"

Answer 4

采用ADO的技术.
 
引用ADOX
创建数据库范例
如下代码显示如何通过 Create 方法创建新的 Jet 数据库。Sub CreateDatabase()Dim cat As New ADOX.Catalog
cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=data.mdb"End Sub