Question

delphi将数据库字段的值输出

求救高手，帮我写一个程序，将所连接的数据库的一个表里面的字段如Cname，CId，Ccampaony的值输出到memo中，memo中显示是‘姓名：张三；号码：001；’这样子，高手帮忙，我自己没分给了，这事很急，要调试出来的

Answer 1

with adoquery1 do
begin
close;
sql.clear;
sql.add('select * from 表名 where cid=001');
open;
memo1.lines.add('姓名:'+adoquery1.fieldbyname('cname').asstring);
memo1.lines.add('号码:'+adoquery1.fieldbyname('cid').asstring);
memo1.lines.add('公司:'+adoquery1.fieldbyname('Ccampaony').asstring);

Answer 2

adoquery.close;
name,id,campany:string

adoquery.sql.clear;
adoquery.sql.add('select Cname,Cid,Ccampany from table1');
adoquery.open;

while not adoquery.eof do
begin
name=adoquery.fieldbyname('Cname').asstring;
id=adoquery.fieldbyname('Cid').asstring;
campany=adoquery.fieldbyname('Ccampany').asstring;
memo.lines.add('姓名：'+Cname+'；号码'+id+'；公司 '+campany);

adoquery.next;
end;