while not eof do 他是一个读取过程?还是什么?
while not eof do
begin
edit;
FieldByName('shen').AsString:='是';
next;
post;
end;
当然前面还有一条with ..do..begin。。我就不写拉~~这样循环修改字段shen中的数据有错没有??
我写的时候弹错误了。。是不是while not eof do 只是读取过程。不能进行添加,修改或者删除??~~如果我想循环修改的。。或者批量修改的时候。。应该用什么?还有批量删除(delete from table where ...)这句SQL只要一用就错误。。
while not eof do
begin
edit;
FieldByName('shen').AsString:='是';
next;
post;
end;
当然前面还有一条with ..do..begin。。我就不写拉~~这样循环修改字段shen中的数据有错没有??
我写的时候弹错误了。。是不是while not eof do 只是读取过程。不能进行添加,修改或者删除??~~如果我想循环修改的。。或者批量修改的时候。。应该用什么?还有批量删除(delete from table where ...)这句SQL只要一用就错误。。
解决方案 »
- delphi Imge控件加载一个图片 点击一下显示换成另外一个图片 再点击一下又换成第一张图片 如何实现?
- 字符串替换问题,替换内容与被替换内容都可能是多行
- 多线程访问COM对象的疑惑
- 有没有人愿意开发一个打印小程序?
- 使用fastreport中条形码属性设置的问题
- 头一次作进销存系统,请问用什么组件能比较方便的让用户一次录入多条商品信息啊?
- 好久不来了,提个小问题捎带放分!
- Delphi6.0的输入框为何不支持GB13000标准汉字的输入呢?
- 资源文件的一个问题
- 在QUERY.SQL.ADD(…………中,用一个字符变量的话,怎么加那些' " +啊?
- 关于delphi的ListView控件问题
- 查询问题
begin
Qry.Edit;
Qry.FieldByName('shen').AsString:='是';
Qry.Post;
Qry.Next;
end;
噢~~先POST next是对的还一个问题就是也是关于他的删除
代码如下while not eof do
begin
delete;
next;
end;
弹出错误说键列信息不足或不正确。更新影响到多行;为什么?
begin
qry.delete;
qry.next;
end;
可以是可以删除了。。但是只能删除一条信息。。 with dm.aq_D_T_dan do
begin
close;
sql.clear;
sql.add('select D_ID from D_dan where D_ID = '''+edit3.text+'''');
open;
if recordcount = 0 then
D_dan.Close
else
begin
close;
sql.clear;
sql.add('select D_B_ID from D_B_dan where D_B_ID = '''+edit3.text+'''');
open;
if recordcount = 0 then
begin
if messagedlg('未保存,确定要退出吗?退出后将删除未保存信息!',mtconfirmation,[mbyes,mbno],0)=6 then
begin
close;
sql.clear;
sql.add('select D_id from D_Dan where D_ID = '''+edit3.text+'''');
open;
while not eof do
begin
delete;
next;
end;
D_dan.Close;
end;
end
else
D_dan.Close;
end;
end;
end;这是整条代码。。D_dan中的D_id和D_B_dan中的D_B_id的值是相同的。可是我点击后只能删除D_dan中的一条记录。。不能把D_dan中D_id等于edit3中的所有记录删除。。
可是可能出现多条信息?不用NEXT可以直接删除吗?
begin
qry.delete;
end;
就可以啦,当然删除多行,while是个循环啊,删除一行,重于后面的往上补,一直删到空