请问如果用代码实现将access数据库一次全部清空,并且自动编号字段的值也重新从1开始计算?等于是执行了压缩和修复数据库操作.
解决方案 »
- Image控件加载ico资源文件问题
- 关于Pagecontrol的问题,如何在tabsheet标签上实现类似于firefox的标签关闭图标
- 遇到这样的问题,你怎么解决?!
- 如何用delphi来搜索网络数据库,例如,搜索局域网内有哪些机器装有sql server服务器
- 提供一套完整的HOOKAPI的资料,希望大家喜欢
- 怎样添加记录?
- 50分请教怎么在delphi中做一个telnet登陆程序?
- 程序之间的传递消息
- 再次请问谁知道,用DELPHI3编的程序如何打开NOVELL上的DBF数据库
- 谁知道Delphi4.0 c/s版本的注册码?50分
- delphi 开发的程序能不能在WINDOWS2000服务器上安装,能不能正常运行:;
- 一个小技巧请教,呵呵
while not adotable1.eof do
adotable1.Delete ;
http://www.delphibbs.com/delphibbs/dispq.asp?lid=402859
access我就不知道了,
或者
select into tmptable from tbl where 1=1
drop table tbl
select into tbl form tmptable where 1=1
drop table tmptable
var zz:OLEVariant;
begin
datamodule1.adoconnection1.Close;
screen.Cursor:=crHourGlass;
zz:=CreateOleObject('zz.DBEngine.36');
zz.CompactDatabase('capture.mdb','temp.mdb');
DeleteFile('capture.mdb');
RenameFile('temp.mdb','capture.mdb');
datamodule1.adoconnection1.Open;
datamodule1.adotable1.Active:=true;
screen.Cursor:=crDefault;
end;
while not datamodule1.adotable1.eof do
datamodule1.adotable1.delete;
datamodule1.adoconnection1.Close;
screen.Cursor:=crHourGlass;
dao:=CreateOleObject('DAO.DBEngine.36');
dao.CompactDatabase('capture.mdb','temp.mdb');
DeleteFile('capture.mdb');
RenameFile('temp.mdb','capture.mdb');
datamodule1.adoconnection1.Open;
datamodule1.adotable1.Active:=true;
screen.Cursor:=crDefault;
end;