所以,一般使用BDE连接数据库都会放置一个TDataBase控件,设置它的LoginPormpt属性为False才能避免.
在一个数据控件中执行
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
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)