jjw

写给自己的博客。 记录学习的点滴以备查。
posts - 43, comments - 6, trackbacks - 0, articles - 0
  博客园 :: 首页 :: 新随笔 :: 联系 :: 订阅 订阅 :: 管理

公告

用delphiXE7 dbExpress Framework提供的功能获取数据表信息

Posted on 2014-10-15 22:46 jjw 阅读(...) 评论(...) 编辑 收藏

uses +  Data.DBXMetaDataNames

procedure TMainForm.Button2Click(Sender: TObject);
var
  Cmd: TDBXCommand;
  R: TDBXReader;
begin
  DBCon.Open;
  Cmd := DBCon.DBXConnection.CreateCommand;
  Cmd.CommandType := TDBXCommandTypes.DbxMetaData;
  Cmd.Text := TDBXMetaDataCommands.GetColumns + ' ' + 'SysFields';
  R := Cmd.ExecuteQuery;
  while R.Next do
  begin
    if R.Value[TDBXColumnsColumns.IsAutoIncrement].AsBoolean then
      Memo1.Lines.Add(R.Value['ColumnName'].AsString);
  end;
  R.Free;
  Cmd.Free;
end;

 

dbExpress Framework 很好用啊! 为啥搞个FireDAC?! 哎!