这样清空access数据后,自动编号的ID并不会从1开始自动编号(如果不是自动编号的,insert 1、2、3……就行了)
可以新建一个access数据库,然后:文件-获取外部数据-导入(选择要清空的数据库)-导入对象-选择要导入的数据表-单击“选项”-导入表(选择只导入定义)-确定,这样新建的数据表就从1开始编号了。
先用 "Select [Name] FROM MSysObjects Where Type=1 AND Not [Name] Like 'MSys%'"
查询出用户表名
然后用循环调用Delete FROM 表名
在一个数据控件中执行
ALTER TABLE 表名 ALTER COLUMN Id COUNTER (1, 1)
就可以了
sql_str:='ALTER TABLE 表名 ALTER COLUMN Id COUNTER (1, 1)';
ADOQuery1Active:=FALSE;
ADOQuery1sqlClear;
ADOQuery1SQLAdd(sql_str);
ADOQuery1Prepared;
try
ADOQuery1ExecSQL;
except
applicationMessageBox(pchar('清空数据库出错!'),'警告',mb_ok);
exit;
end;
版本
2支持库
iext
子程序
__启动窗口_将被销毁局部变量
sql,
文本型局部变量
x,
整数型
外部数据库1打开MDB数据库
(“123mdb”,
,
,
,
)计次循环首
(超级列表框1取表项数
(),
x)
sql
=
“insert
into
table_name(a)
values('”
+
超级列表框1取表项数值
(x
-
1)
+
“')”
外部数据库1执行
(sql,
)计次循环尾
()外部数据库1关闭
()
以上就是关于access数据库清空后id重置1全部的内容,包括:access数据库清空后id重置1、在vb.net中 如何把access中数据全部清空一起讨论代码、Delphi 如何清空access数据库等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)