Delphi FireDAC 获取MySQL 数据库databases 列表

本文整理自网络，侵删。

 procedure TfrmMain.sBitBtn1Click(Sender: TObject);vark: integer;begin
   FDQuery1.SQL.Clear;   FDQuery1.SQL.Text := 'SHOW DATABASES';   FDQuery1.Open;   DataSource1.DataSet:=FDQuery1;
while NOT FDQuery1.EOF do    Begin      ShowMessage(FDQuery1.FieldByName('database').AsString);      sComboBox1.items.add(FDQuery1.FieldByName('database').AsString);      FDQuery1.Next;    End;end; 

相关阅读 >>

Delphi xe5下安卓开发技巧

Delphi xe5开发android程序调用电话相关功能(短信息和电话)

Delphi 获取windows系统网卡mac地址

Delphi tclientdataset用法详解

cvcode.pas

Delphi 如何让程序在按了 android 的 back 键后不关闭当前 from 或者不 app 退出

Delphi 获取安卓手机wifi信息(xe8)

Delphi pagecontrol.ttabsheet与drivecombobox.items同步

Delphi 清除ie缓存 internet临时文件 cookie 历史记录 表单记录 上网密码

Delphi简单读取网上的文本文件

更多相关阅读请进入《Delphi》频道 >>