使用DAO创建和打开数据库文件

首先在工程中引用microsoft DAO 3.6 Object Library 

 

创建数据库文件

Set MYdatabase = Workspaces(0).CreateDatabase(文件名, dbLangGeneral, dbversion70)  '建库
'Set MYTable = MYdatabase.CreateTableDef(表名)     '建表
'Set MYField = MYb.CreateField(字段名, dbText, 10)  '建立字段
MYb.Fields.Append MYField '存字段
MYdatabase.TableDefs.Append MYTable '存表

 

打开数据库

Dim MYdatabase As Database

Dim Re As Recordset

Dim MYTable As TableDef
Dim MYField As Field

Set MYdatabase = OpenDatabase(文件名)
Dim x  As Integer
For x = 0 To MYdatabase.TableDefs.Count - 1
print MYdatabase.TableDefs(x).Name    '列出表名
Next x

'例出字段名

For xx = 0 To MYdatabase.TableDefs(表名称).Fields.Count - 1
print  MYdatabase.TableDefs(表名称).Fields(xx).Name  '列字段名
Next xx