论坛广场 › Delphi › Delphi 循环输出ADODataSet中的每一条记录

阿杰 发表于 2012-3-20 21:07:31

Delphi 循环输出ADODataSet中的每一条记录

var
sJine: string;
begin
ADODataSet1.CommandText := 'select unitName from unit';
ADODataSet1.Open;
ADODataSet1.first
    while not ADODataSet1.eof do
begin
    sJine := ADODataSet1.FieldByName('unitName').AsString;
    ShowMessage(sJine);
    ADODataSet1.Next;
end;

upring 发表于 2015-3-23 20:22:23

一段小代码{:soso_e192:}

查看完整版本: Delphi 循环输出ADODataSet中的每一条记录