查询并逐行显示数据库表中的所有字段名

最新推荐文章于 2024-08-14 09:08:52 发布

原创最新推荐文章于 2024-08-14 09:08:52 发布 · 602 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#数据库 #integer #string

Delphi 专栏收录该内容

95 篇文章

订阅专栏

本文介绍了一段Delphi代码，该代码用于设置SQL查询命令类型为查询，并执行SQL语句来获取年龄大于26的记录。同时，展示了如何遍历数据集并显示所有字段名称。

    procedure TForm1.Fields_ShowBtnClick(Sender: TObject);
    var
       k: Integer;
       FieldsStr: String;
    Begin
      if SQLDataSet1.CommandType <> ctQuery  then
      begin
        SQLDataSet1.CommandType：=ctQuery；
        //设置命令类型为ctQuery，即执行查询
        SQLDataSet1.CommandText := 'select *  from Guyuan where age>26 ;
        //设置命令文本，查询Guyuan表年龄>26 的记录
        SQLDataSet1.Open；
        FieldsStr := 'Guyuan表共有'+IntToStr(SQLDataSet1.FieldCount)+'个字段，其各字段名如下：'+#13#10;
        for k := 0 to SQLDataSet1.FieldCount - 1 do
          //根据数据集的FieldCount属性控制循环次数，每个字段名显示一行
          FieldsStr := FieldsStr + SQLDataSet1.Fields[i].FieldName + #10;
        ShowMessage(FieldsStr);
      end;
    end;