如何用DAO的方法建立自动编号的索引？(like access 2000)

Question

VISDATA中有原代码。但要读懂。

Answer 1

Dim dbn As Database
Dim tdfnew As TableDefSet dbs = OpenDatabase("c:\database.mdb", False, False, ";pwd=Password")
Set tdfnew = dbs.CreateTableDef("Name")
tdfnew.Fields.Append tdfnew.CreateField("ID", dbLong)
tdfnew.Fields("id").Attributes = tdfnew.Fields("id").Attributes + dbAutoIncrField
tdfnew.Fields.Append tdfnew.CreateField("First name", dbText)
tdfnew.Fields.Append tdfnew.CreateField("Last name", dbText)
dbs.TableDefs.Append tdfnew
dbs.Close

Answer 2

Set dbs = OpenDatabase("c:\database1.mdb")
Set tdfnew = dbs.CreateTableDef("Name")
tdfnew.Fields.Append tdfnew.CreateField("ID", dbLong)
tdfnew.Fields("id").Attributes = tdfnew.Fields("id").Attributes + dbAutoIncrField
dbs.TableDefs.Append tdfnew
dbs.Close

Answer 3

回复人： iwzw() (  ) 信誉：100 
是对的