VBA 代码示例：创建 Access 数据库和表

Dim db As DAO.Database Dim strDbName As String

' 设置数据库名称 strDbName = 'E:\检测设备\力学\TestDatabase.mdb'

' 创建新的数据库 Set db = DBEngine.CreateDatabase(strDbName, dbLangGeneral)

' 创建新的表定义 Dim OriginalData As TableDef, ParamFactValue As TableDef, ReportFirst As TableDef Set OriginalData = db.CreateTableDef('OriginalData') Set ParamFactValue = db.CreateTableDef('ParamFactValue') Set ReportFirst = db.CreateTableDef('ReportFirst')

' 创建 OriginalData 表的字段 With OriginalData.Fields .Append .CreateField('ID', dbLong, dbAutoIncrField) .Append .CreateField('TestNo', dbLong) .Append .CreateField('PlayTime', dbDouble) .Append .CreateField('LoadValue', dbDouble) .Append .CreateField('PositionValue', dbLong) .Append .CreateField('ExtendWalue', dbInteger) .Append .CreateField('BigDeformValue', dbInteger) .Append .CreateField('DeformSwitch', dbInteger) .Append .CreateField('CtrlStep', dbInteger) .Append .CreateField('ExtendDevicel', dbInteger) .Append .CreateField('ExtendDevice2', dbInteger) .Append .CreateField('ExtendDevice3', dbInteger) .Append .CreateField('ExtendDevice4', dbInteger) .Append .CreateField('ExtendDevice5', dbInteger) .Append .CreateField('ExtendDevice6', dbInteger) .Append .CreateField('PosiSpeed', dbInteger) .Append .CreateField('StressSpeed', dbInteger) End With

db.TableDefs.Append OriginalData

' 创建 ParamFactValue 表的字段 With ParamFactValue.Fields .Append .CreateField('TestNo', dbLong) .Append .CreateField('littleNo', dbInteger) .Append .CreateField('Name', dbText, 30) .Append .CreateField('TheValue', dbText, 30) .Append .CreateField('Unit', dbText, 5) .Append .CreateField('UserOrResultParam', dbInteger) End With

db.TableDefs.Append ParamFactValue

' 创建 ReportFirst 表的字段 With ReportFirst.Fields .Append .CreateField('ID1', dbInteger, dbAutoIncrField) .Append .CreateField('Value', dbText, 10) .Append .CreateField('Row', dbInteger) .Append .CreateField('Col', dbInteger) .Append .CreateField('ColWidth', dbInteger) .Append .CreateField('RowHeight', dbInteger) End With

db.TableDefs.Append ReportFirst

' 关闭数据库 db.Close

' 释放数据库对象 Set db = Nothing