query1.close ;
query1.sql.text := 'delete from youtablename';
query1.execsql ;
query1.sql.text := 'delete from youtablename';
query1.execsql ;
解决方案 »
- 求助各位大神,delphi7的recode中使用procedure
- 建议大家汇总一下Delphi使用习惯……
- 有没有好的实现软件注册的方案?? C/S结构,数据库应用系统(来者有分啊!!!)
- delphi7+mysql乱码
- 请问:P : Pointer; Byte(P^)表示什么意思?
- stringgrid的兰色焦点怎么去掉
- 我装了C++Builder 6.0后为什麽delphi6.0启动时报错,启动后 webserver 等网络方面的控件不能用了
- 为什么我在使用 DHTMLEdit 时,做任何操作总是报告“不支持此接口”?
- 老提示存储空间不足,然后程序关闭??
- 怎么清空收藏夹和临时文件夹,给出源代码?
- 我想将“发布/安装”这一道工序做得更好,Thanks...
- 关于DBGrid的触发事件问题?
while not table.eof do
table.delete;
table.first;
while not table.eof do
begin
..
table.next;
end;
我已经试用过了,没有问题的! if Table111.Active=False then Table111.Active:=True; Table111.Close; Table111.EmptyTable;
如果是SQL SERVER,上述删除语句真的就删了,想恢复也是不可能的。
但是如果是Paradox或者Dbase,那么我承认,这些记录还是可以被恢复回来,如果没有做Pack的话。当然要做Pack也是非常简单的,D5DG中有代码,自己去看吧。
用Table打开该表,
将FieldDefs属性用Assign赋给一个新建的Table1;
将IndexDefs属性用Assign赋给Table1;
将DataBaseName属性赋给Table1;
将TableName属性赋给Table1;
关闭Table;
用DeleteFile API函数删除Table所指向的文件;
用Table1的CreateTable创建新表;OK到这里了!另一种方法其实是大家经常用的用BDE的API函数,不过我用这种方法多些!
sephil(心情不好又能如何?)(NAILY)的正确!
效率高,没有什么后遗症