RSS订阅 | 匿名投稿
您的位置:网站首页 > 数据库 > 正文

Delphi FireDAC 获取MySQL 数据库databases 列表

作者:admin 来源: 日期:2018/3/13 15:03:23 人气: 标签:

procedure TfrmMain.sBitBtn1Click(Sender: TObject);
var
k: 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;

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料