如何将表的某列值赋给一个字符串变量？

Question

我使用的是ado表
现在有一个表 ，其中的某列为louno，现将这列值赋给 v_louno，怎么弄？

Answer 1

v_louno:=ADOQuery1.fieldbyname('louno').astring;

Answer 2

louno是列名还是一条记录中的值

Answer 3

v_louno:=ADOQuery1.fieldbyname('louno').astring;
不行的，我试过

Answer 4

那么是要将该列的所有值都赋值给v_louno了？

Answer 5

如果是这样，只能用循环语句了
i:=adotable1.recordcount;
adotable1.first;
for j:=0 to i-1 do
begin
v_louno:=louno+adotable1.fieldvalues['louno'];
adotable1.next;
end;

Answer 6

我晕了
帖出来
procedure TForm1.FormCreate(Sender: TObject);
var
   Fathernode:Ttreenode;     fa_gname:string;
begin
  with ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select louno form louno group by louno');
  end;
  TreeView1.Items.Clear;
  while not Eof do
  begin
     fa_gname:=ADOQuery1.fieldbyname('louno').asstring;//这句话有问题，为什么会有问题呢？
     Fathernode:=TreeView1.Items.Add(nil,fa_gname);
  end;
end;end.
想要由一个表生成一个树

Answer 7

while not Eof do
  begin
     fa_gname:=ADOQuery1.fieldbyname('louno').asstring;//这句话有问题，为什么会有问题呢？
     Fathernode:=TreeView1.Items.Add(nil,fa_gname);
  end;第一行while not eof 
没有指定EOF是谁的，因为之前With AdoQuery1已结束。

Answer 8

procedure TForm1.FormCreate(Sender: TObject);
var
   Fathernode:Ttreenode;     fa_gname:string;
begin
  with ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select louno form louno group by louno');
    open;
  end;
  TreeView1.Items.Clear;
  while not ADOQuery1.Eof do
  begin
     fa_gname:=ADOQuery1.fieldbyname('louno').asstring;//这句话还是有问题，为什么会有问题呢？
     Fathernode:=TreeView1.Items.Add(nil,fa_gname);
  end;
end;