Question

Delphi adoquery select 多个返回记录

请问返回多个记录如果写在memo里面啊？好像应该是用adoquery1.Eof，但是实际使用还是只能返回第一条记录

Answer 1

还是不行，下面是我的程序，帮我看看，谢谢
with adoquery1 do
begin
try
try
SQL.clear;
SqlQ := 'select * from sheet1 where F0="' + memo1.Lines.Strings[i] + '"';
sql.add(sqlq);
open;
if not adoquery1.Eof then
begin
adotable1.TableName := 'Tab1';
adotable1.Active:=true;
adotable1.Append;
if adoquery1.FieldValues['F0']<>null then adotable1.FieldByName('F0').AsString:=adoquery1.FieldValues['F0'];
if adoquery1.FieldValues['F1']<>null then adotable1.FieldByName('F1').AsString:=adoquery1.FieldValues['F1'];
.
.
.
adotable1.Post;
adotable1.Active:=false;
adoquery1.next;
end;
//写入完成
except
end;
finally
close;
end;
end;

Answer 2

要用一个FOR循环来实现写在MEMO中,
while not adoquery1.eof do
begin
//记录内容;
adouery1.next;
end;