我想用引用DAO来创建数据表,想实现,创建了数据表时,并创建记录,且有一个字段是自动编号的,可以实现吗?可以的话能告我怎么做吗 谢了
解决方案 »
- winsock问题
- webbrower 中嵌入网页,在鼠标移动td时td 里面换成文本框,当改变文本框内容时,移开鼠标时文本框消失,激发一个事件(把改动的数据存入
- 数据绑定到datagrid中的问题
- 请教多用户操作问题
- 我来散分了!!!!!!承认是猪的的高分!!!!
- 使用Package and Deployment Wizard的问题
- 请问网页上的参数传到某个控件(自己写的)上,在vb中如何得到?
- 有谁用VB开发过ERP???
- 关于richtextbox中的乱码问题
- 高分!求一算法~~
- 使用ScriptControl控件时,出现"System.NullReferenceException: 这个集合中找不到此项目"错误
- 我想实现,在窗体能显行我的当前记录的行号?怎么办啊?
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" '如果有多个参数就写多个