使用adotable控件，进行数据表的删除，帮忙检验一下有什么错误？ (50分)

K

kds

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-13

• #1

我想删除表中的所有记录，程序如下：
while not adotable1.eof do
begin
adotable1.first;
adotable1.delete;
adotable1.next;
end;
这样操作完毕之后，数据表不能全部删空，最后一条记录没有被删除
问：
（1）这样的写法有错误吗？
（2）要想达到删除整个数据表中全部记录的目的，应该怎样来操作？
（3）最好也能顺便给出有关adoquery 的删除操作。
（4）使用adotable控件如何来进行对数据表的查找（条件是：编号＝no）？
（5）谢了先！[]

 

C

cbdiy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-13

• #2

while adoquery1 do
begin
close;
sql.clear;
sql.add('delete from [tablename]');
prepared;
execsql;
end;
这样好多了

 

Z

zhumoo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-13

• #3

有时侯我们要将数据集里的记录全部删掉（不是整个表的记录全部删掉）没办法用这种办法。
实在不好处理，全删了他还会认为有一条空记录在。不知怎么处理。

 

Y

yuuh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-13

• #4

queyr1.close;
query1.sql.text:='DELETE FROM table_name';
query1.exesql;

 

W

wjing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-13

• #5

你的删除代码有问题，太浪费资源了。
这样就可以了。
adotable1.first;
while not adotable1.eof do
begin
adotable1.delete;
end;

 

H

hunter0401

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-13

• #6

使用TTable删除记录后,记录光标会自动到下一条记录,你语句中的NEXT是多于的,象WJING的语句就可以了.

 

H

hbezwwl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-13

• #7

wjing的就可以了,又简单又清楚.

 

K

kds

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-14

• #8

多人接受答案了。