大家帮我一下，刚学VB。。。

Question

   我想用引用DAO来创建数据表，想实现，创建了数据表时，并创建记录，且有一个字段是自动编号的，可以实现吗？可以的话能告我怎么做吗  谢了

Answer 1

现在DAO用的不多了
Dim MyDB As Database
Dim MyWs As Workspace
Dim MyTd As TableDef
Dim fld As Field
Dim strDBName As String
strDBName = App.Path + "\Temp.mdb"
Set MyDB = MyWs.CreateDatabase(strDBName, dbLangGeneral & ";pwd=123", dbVersion30)
Set MyTd = MyDB.CreateTableDef("Table0")
'创建一个自动编号的字段
Set fld = MyTd.CreateField("Field0", dbLong)
fld.Attributes = dbAutoIncrField
fld.Required = True
MyTd.Fields.Append fld
'创建一个字符串的字段
Set fld = MyTd.CreateField("Field1", dbText, 10)
fld.Attributes = dbFixedField
fld.Required = True
MyTd.Fields.Append fldMyDB.TableDefs.Append MyTd
AddPrimaryKeyToTable MyTd, "PrimaryKey", "Field0" '如果有多个参数就写多个