1181
社区成员
- 主页
我怎么才能控制记录条数？（Access数据库）（sureli)------2
dim i as long
sSql="Delete * from Tablename where sname=" & fname
set rst=cn.execute sSql,i
这时候，执行完删除，我希望表Tablename 中类型为“数字”字段IDNum， 象类型为“自动编号”那样，自动缩减，怎样才能实现呢？
sSql="Delete * from Tablename where sname=" & fname
set rst=cn.execute sSql,i
这时候，执行完删除，我希望表Tablename 中类型为“数字”字段IDNum， 象类型为“自动编号”那样，自动缩减，怎样才能实现呢？
...全文
请发表友善的回复…
发表回复
sureli 2002-03-11
Thank you though this question still exist.
sureli 2002-02-25
to dbcontrols(泰山__抛砖引玉)
假若用delete触发器能实现吗？如何实现？？？
假若用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
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