UC知道Delphi 如何清空access数据库？
来源：百度知道 编辑：UC知道 时间：2024/09/24 14:16:05
Delphi 如何清空access数据库？
然后就是如何在清空后，编码变为1
然后就是如何在清空后，编码变为1
在一个数据控件中执行
ALTER TABLE 表名 ALTER COLUMN Id COUNTER (1, 1)
就可以了
sql_str:='ALTER TABLE 表名 ALTER COLUMN Id COUNTER (1, 1)';
ADOQuery1.Active:=FALSE;
ADOQuery1.sql.Clear;
ADOQuery1.SQL.Add(sql_str);
ADOQuery1.Prepared;
try
ADOQuery1.ExecSQL;
except
application.MessageBox(pchar('**清空数据库出错.......！**'),'警告',mb_ok);
exit;
end;