Question

delphi的问题 取数据库的值

我通过ADoQuery查询数据库的表,然后显示到了DBGrid中...我现在想把查询出来的表字段值赋值给变量 该如何写?
如下的表
ID PO
101 2000
102 3000
我希望赋值给变量或者数组 然后Memo1.Lines.Add()逐条写进MEMO中
菜鸟求教导

Answer 1

因为你的next没有指明是哪里的,应该 Query.Next;
while not Query.Eof do
begin
Titem:=ListView1.Items.Add;
Titem.Caption:=Query.FieldByName('S_Name').AsString;
Query.next; //改这句
end;
最好是把Titem改掉,如:
With ListView1.Items.Add do
Caption:=Query.FieldByName('S_Name').AsString;
或者直接 ListView1.Items.Add.Caption:=Query.FieldByName('S_Name').AsString;
因为你只写一个Caption,所以这样就可以了.

用到Tadoquery，TadoConnnection
with adoquery1 do
begin
close;
sql.clear;
sql.add('selec a from A where id=1');
open;
if reccount >0 then//查询到结果赋值
st := FieldbyName('a').asfloat
else
application.messagebox();//没有查询到结果提示
end;

Answer 2

aa:=ADoQuery.FieldByName('PO).AsString
i:=ADoQuery.FieldByName('PO).Asfloat;
Memo1.Lines.Add(ADoQuery.FieldByName('PO).AsString)；
等等

追问

再问你一下 我要逐条取呢?要定义一个循环...然后我要用一个数组么?我就是循环这边不太会 ..怎么
取到第一条(101 2000)后取到第二条呢?