用delphiXE7 dbExpress Framework提供的功能获取数据表信息
浏览数：17 /
时间：2015年06月12日
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?! 哎！
郑重声明：本站内容如果来自互联网及其他传播媒体，其版权均属原媒体及文章作者所有。转载目的在于传递更多信息及用于网络分享，并不代表本站赞同其观点和对其真实性负责，也不构成任何其他建议。
