Question

VB动态创建数据库代码

我要实现的功能如下：点击一个按钮后后台自动在指定的路径下创建一个ACCESS数据库数据库名和路径用变量DATABASENAME表示。
请问这个功能的代码应该怎么写，需要添加什么控件。

Answer 1

引用 microsoft DAP 3.6 Object Library

Dim myDB As DAO.Database
Set myDB = CreateDatabase(App.Path + "\111.mdb", dbLangGeneral) '如果不存在数据库
Set myDB = OpenDatabase(App.Path + "\111.mdb") '如果存在数据库
Dim str_SQL As String
str_SQL = "Create Table NewTable1(Field1 Text(10),Field2 Short)"
myDB.Execute str_SQL
str_SQL = "Create Table NewTable2(Field1 Text(10),Field2 Short)"
myDB.Execute str_SQL
myDB.Close

Answer 2

Dim DatabaseName As String
DatabaseName = "D:\abc.mdb"
open DatabaseName For OutPut As #1