Delphi遍历ADO数据集遍历操作

幸思无声_东莞

已于 2022-04-26 08:12:32 修改

阅读量1.5k

点赞数 2

分类专栏： Delphi 文章标签：交互

于 2022-04-22 14:44:36 首次发布

本文链接：https://blog.csdn.net/qq_45083002/article/details/124344122

版权

Delphi 专栏收录该内容

10 篇文章 1 订阅

订阅专栏

该篇博客展示了如何在Delphi中通过数据存取构件（TADOQuery）连接到数据库，并执行SQL查询来获取数据。代码示例详细说明了创建ADO对象、设置数据库连接、构造SQL查询语句以及遍历查询结果填充ComboBox的过程。

摘要由CSDN通过智能技术生成

Delphi数据库应用程序通过数据存取构件对数据库进行访问和操作非常方便

下面通过代码演示

procedure Treturn_doc_NoForm.dbcbbIssue_NoClick(Sender: TObject);
var
  str:string;
  adoQ:TADOQuery;
begin
    DBComboBox1.Items.Create;
    adoQ:=TADOQuery.Create(nil);//创建ado
    adoQ.Connection:=DataModule1.con2;//给ado制定数据库
    str:=dbcbbIssue_No.Text;//可通过str对数据进行条件查询
    adoQ.SQL.Text:='select distinct order_number from Issue where issue_id='''+str+'''';//制定sql语句
    adoQ.Open;//打开ADO
    while not adoQ.Eof do//判断查询的数据是否为空
    begin
          str:=adoQ.FieldByName('order_number').AsString;//获取第一条数据的order_number的值
          DBComboBox1.Items.add(str);
          adoQ.Next;//下一条数据
    end;
  adoQ.free;

end;