我怎么才能控制记录条数？（Access数据库）（sureli)------2

[sureli]

dim i as long
sSql="Delete * from Tablename where sname=" & fname
set rst=cn.execute sSql,i

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

[dbcontrols]

引用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

[sureli]

to dbcontrols(泰山__抛砖引玉)
假若用delete触发器能实现吗？如何实现？？？

[sureli]

Thank you though this question still exist.