我想在VB中实现一个"新建数据库"的功能,要建立一个Access数据库,如何实现?

Question

如题:如何在VB中,利用代码实现新建一个Access数据库的功能?

Answer 1

引用    Microsoft ADO Ext. 2.X for DDL and Security如下代码演示如何创建新表。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 2

引用    Microsoft ADO Ext. 2.X for DDL and Security如下代码显示如何通过 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 3

先用access做一个文件
在代码中可以复制很多个文件！

Answer 4

access建立数据库：
http://expert.csdn.net/Expert/topic/2099/2099036.xml?temp=.4305078

Answer 5

Dim MyTable As TableDef, MyField As Field
        Dim MyDatabase As Database
        Set MyDatabase = CreateDatabase(cProgramPath + "..\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.NewPassword "", "allway"
        MyDatabase.Close

Answer 6

请问李洪根，你说的引用Microsoft ADO Ext. 2.7 for DDL and Security
我的机子上是2Microsoft ADO Ext. 2.5 for DDL and Security,这是怎么回事？是不是要装一个补丁包？

Answer 7

拷贝其他表的结构select * into 表名 from 原表名 in [原数据库路径及文件名] where false> 请问李洪根，你说的引用Microsoft ADO Ext. 2.7 for DDL and Security
> 我的机子上是2Microsoft ADO Ext. 2.5 for DDL and Security,这是怎么回事？是不是要装一个补丁包？不用，2.1以上版本即可。