Help:用data等控件，用到access，请问用程序创建一个.mdb文件

Question

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 1

最簡單的方法:拷一個MDB文件就OK了,再改數據庫結構當然這需要机器上有MDB文件才可以

Answer 2

'引用microsoft ado ext 2.7 for ddl and securityDim cat As New ADOX.Catalog
cat.Create "provider=microsoft.jet.oledb.4.0;data source=文件名（包括路径）"

Answer 3

用一楼的方法不错，但是创建的数据库版本比较低，要想修改库结构方便，得用access做改动。要不就下载最新得vb补丁

Answer 4

直接调用一下access对象，然后使用里面的new就可以了。