实例——查询并逐行显示数据库表中的所有字段名.txt

来自「Delphi 7组件应用实例 书籍语言： 简体中文 书籍类」· 文本 代码 · 共 22 行

    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;