软件下载 | 资讯教程 | 最近更新 | 下载排行 | 一键转帖 | 发布投稿
您的位置:最火下载站 > 电脑教程 > 编程开发 > delphi编程 > Delphi利用ADOQuery将SQL查询结果存放到数组

Delphi利用ADOQuery将SQL查询结果存放到数组

最近在用Delphi做交换机存活测试软件~因为要将Access数据库中的IP地址表等导入数组~研究了一下~大家分享一下~~

比如 select B from A ,把查询的字段B放到一个数组中(假设是字符型的):

procedure TForm1.Button1Click(Sender: TObject);
var
A: Array of String;//定义动态数组
Index: Integer;//定义数组下标变量
begin ADOQuery.SQL.Clear;
ADOQuery.SQL.Add('Select B from A');
ADOQuery.Open;
Setlength(A,ADOQuery.RecordCount); //设置数组宽度
Index := 0;//初始化下标
ADOQuery.First;
While Not ADOQuery.Eof Do //数据集循环
begin
A[Index] := ADOQuery.FieldByName('B').asString;//数据添加到数组中 Inc(Index);
ADOQuery.Next;
end;
end;
    相关阅读
    网友评论