引用 Microsoft DAO 3.51 Object Library。Public Sub CreateTestDB() Dim Db As Database, TB As TableDef, FLD(2) As Field Dim i As IntegerSet Db = DBEngine.CreateDatabase("c:\test.mdb", dbLangGeneral) Set TB = Db.CreateTableDef("test") Set FLD(0) = TB.CreateField("String", dbText, 7) Set FLD(1) = TB.CreateField("Int1", dbInteger, 2) Set FLD(2) = TB.CreateField("Int2", dbInteger, 2)For i = 0 To 2 TB.Fields.Append FLD(i) NextDb.TableDefs.Append TB Db.CloseSet TB = Nothing Set Db = Nothing End Sub上面的代码是在C盘根目录建立一个名为test.mdb的数据库,该数据库中有一个名为test的表,里面有三个字段:String,Int1,Int2,分别是String型和Integer型。
Dim Db As Database, TB As TableDef, FLD(2) As Field
Dim i As IntegerSet Db = DBEngine.CreateDatabase("c:\test.mdb", dbLangGeneral)
Set TB = Db.CreateTableDef("test")
Set FLD(0) = TB.CreateField("String", dbText, 7)
Set FLD(1) = TB.CreateField("Int1", dbInteger, 2)
Set FLD(2) = TB.CreateField("Int2", dbInteger, 2)For i = 0 To 2
TB.Fields.Append FLD(i)
NextDb.TableDefs.Append TB
Db.CloseSet TB = Nothing
Set Db = Nothing
End Sub上面的代码是在C盘根目录建立一个名为test.mdb的数据库,该数据库中有一个名为test的表,里面有三个字段:String,Int1,Int2,分别是String型和Integer型。
为什么不用SQL呢???
建议用SQL SERVER2000