优化代码：Dim db As DAODatabaseDim strDbName As String Set the database namestrDbName = E检测设备力学TestDatabasemdb Create a new databaseSet db = DBEngineCreateDatabasestrDbName dbLangGeneral Create a new table

Dim db As DAO.Database Dim strDbName As String

' Set the database name strDbName = "E:\检测设备\力学\TestDatabase.mdb"

' Create a new database Set db = DBEngine.CreateDatabase(strDbName, dbLangGeneral)

' Create a new table definition 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")

' Create fields for OriginalData table 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

' Create fields for ParamFactValue table 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

' Create fields for ReportFirst table 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

' Close the database db.Close

' Release the database object Set db = Nothin