怎么向memo写入sql里的列数据

Question

sql

Answer 1

with DataModule2.adoquery5 do
  begin
    Close;
    SQL.Clear;
    SQL.text:='select 条形码 from dbo.仓库 WHERE 单据编号 like'+#39+'%'+trim(edit1.Text)+'%'+#39;
    Open;    if recordcount = 0 then exit;
    first;
    while not eof do
    begin
      memo1.Lines.Add(DataModule2.adoquery5.FieldByName('条形码').Value);
      Next;
    end;
  end;

Answer 2

应该使用数据集Next循环代码：  with DataModule2.adoquery5 do
  begin
    SQL.Clear;
    Memo1.clear;
    Open;
    first;
    while not eof do
    begin
      memo1.Lines.Add(DataModule2.adoquery5.FieldByName('条形码').Value);    
      Next;
    end; 
    close;
  end;