我怎么才能控制记录条数?(Access数据库)(sureli)------2

sureli 2002-02-25 04:11:49
dim i as long
sSql="Delete * from Tablename where sname=" & fname
set rst=cn.execute sSql,i

这时候,执行完删除,我希望表Tablename 中类型为“数字”字段IDNum, 象类型为“自动编号”那样,自动缩减,怎样才能实现呢?

...全文
2 点赞 收藏 3
写回复
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
sureli 2002-03-11
Thank you though this question still exist.
回复
sureli 2002-02-25
to dbcontrols(泰山__抛砖引玉)
假若用delete触发器能实现吗?如何实现???
回复
dbcontrols 2002-02-25
引用ADOX
AutoIncrement Column 范例


如下代码说明如何在 Jet 数据库中创建 AutoIncrement 列。

Sub CreateAutoIncrColumn()

Dim cat As New ADOX.Catalog
Dim tbl As New ADOX.Table
Dim col As New ADOX.Column

' 打开目录
cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Program Files\Microsoft Office\" & _
"Office\Samples\Northwind.mdb;"

With tbl
.Name = "MyContacts"
Set .ParentCatalog = cat
' 创建字段并将它们追加到新的 Table 对象中。
.Columns.Append "ContactId", adInteger
' 产生 ContactId 列和自动递加列
.Columns("ContactId").Properties("AutoIncrement") = True
.Columns.Append "CustomerID", adVarWChar
.Columns.Append "FirstName", adVarWChar
.Columns.Append "LastName", adVarWChar
.Columns.Append "Phone", adVarWChar, 20
.Columns.Append "Notes", adLongVarWChar
End With

cat.Tables.Append tbl

Set cat = Nothing

End Sub

回复
发动态
发帖子

1181

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
社区公告
暂无公告