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

最新推荐文章于 2023-05-14 17:12:04 发布

niochen

最新推荐文章于 2023-05-14 17:12:04 发布

阅读量563

点赞数

分类专栏： Delphi 文章标签：数据库 integer string

本文链接：https://blog.csdn.net/jfree5200/article/details/3912949

版权

Delphi 专栏收录该内容

95 篇文章 1 订阅

订阅专栏

    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;