sql.close;
sql.clear;
sql.add('select * from tablename');
first;////指向表的第一条记录
while not eof ////如果不是表的最后一行(你要的问题的答案!)
begin
.....////程序体
next;//指向下一条记录
end;
[/Quote]
不好意思,漏了个DO~~
while not eof do
procedure TForm1.Button1Click(Sender: TObject);
begin
adostoredproc2.ExecProc;
AdoQuery1.active := false;
AdoQuery1.sql.clear;
AdoQuery1.sql.add('select * from ryxx');
AdoQuery1.active:=true;
//if AdoQuery1.eof then
// ShowMessage('已经到了表的末尾');
if trim(edit1.text)='' then
begin
while not(adoquery1.eof) do
begin
with adoStoredproc1 do
begin
Parameters.ParamByName('@rfkh').Value:='0000000001';
//adoquery1.FieldByName('rfkh').Value;
ExecProc;
end;
end;
end
else
begin
with adoStoredproc1 do
begin
Parameters.ParamByName('@rfkh').Value:=trim(edit1.text);
ExecProc;
end;
end;
adodataset1.Close;
adodataset1.Open;
adostoredproc2.ExecProc;
sql.close;
sql.clear;
sql.add('select * from tablename');
first;////指向表的第一条记录
while not eof ////如果不是表的最后一行(你要的问题的答案!)
begin
.....////程序体
next;//指向下一条记录
end;