Question

delphi 怎么从Access数据库取回数据并赋值给变量，不用dbEdit,dbtext之类的控件显示出来

我会连接数据库，可以用一些db控件显示出来这些数据。
但我现在并不想将这些数据显示出来。
比方说我的数据库有：姓名，年龄，手机号，工作，qq号字段，我想取回数据库中：姓名为小红的年龄，手机号，工作，所在地的值，赋值给变量：age,phone,job.,qq该怎么做？求助大家，在此先谢过。
还有怎么对数据库循环,我的数据库设有一个ID的主键，我想从ID 1循环到16，把ID1-16的字段的值分别赋给
age,phone,job.,qq,不考虑值覆盖问题。先谢谢了。

Answer 1

str1:='小红';
adoquery1.close;
adoquery1.sql.text:='select * from table where name='''+str1+'''';
adoquery1.open;
if adoquery1.recordcount>0 then
begin
age:=adoquery1.fieldByName('年龄').asinteger;
phone:=adoquery1.fieldByName('手机号').asString;
job:=adoquery1.fieldByName('工作').asString;
qq:=adoquery1.fieldByName('QQ号').asString;
end;

adoquery1.close;
adoquery1.sql.text:='select * from table where ID>0 and ID<17 order by ID';
adoquery1.open;
if adoquery1.recordcount>0 then
begin
while not adoquery1.eof do
begin
age:=adoquery1.fieldByName('年龄').asinteger;
phone:=adoquery1.fieldByName('手机号').asString;
job:=adoquery1.fieldByName('工作').asString;
qq:=adoquery1.fieldByName('QQ号').asString;
adoquery1.next;
end;
end;