用delphiXE7 dbExpress Framework提供的功能获取数据表信息
2024-04-06 07:21:54
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?! 哎！
最新文章
- bzoj4325: NOIP2015 斗地主（爆搜+模拟）
- SQL查询中关于索引使用的笔记
- Jni的一个异常
- 一种C# TCP异步编程中遇到的问题
- JS获取按下的键盘字符
- Python 中psutil 模块的安装
- Objective-C 程序设计第四版 二
- EasyUI - DataGrid 组建 - [ 新增功能 ]
- JavaScript严格模式有什么不同
- PHP多进程消费队列
- apk文件二维码微信无法识别 APP在微信中二维码扫描无法下载的解决方案
- 【Java8】@FunctionalInterface
- DecimalFormat详解
- Makefile.am文件配置
- require.js Javascript模块化
- 新增节点NewBook并增加属性Name="WPF"
- openstack cpu pinning
- Ubuntu 12.04嵌入式交叉编译环境arm-linux-gcc搭建过程图解
- OpenACC 云水参数化方案
- JavaScript的数据类型和运算符总结