Delphi下FireDAC连接mysql数据库零起点


本文整理自网络,侵删。

 
首先我用的是Delphi XE,FireDAC是这个版本自带的。

第一步,添加组件

TFDPhyMySQLDriverLink
TFDGUIxWaitCursor
TFDConnection
TFDQuery
TDataSource
TDBGrid

第二步,设置组件属性

TFDGUIxWaitCursor,不用设置,好像是显示sql执行时的等待的鼠标样式。
TFDPhyMySQLDriverLink,BaseDriverID:=MySQL,Vendorlib的值为mysql文件夹中的libmysql.dll的路径如 D:\MySQL\lib\libmysql.dl。
TFDConnection,DriverName:=MySQL,LlginPrompt:=false,Params里面是重点。

如下:
DriverID=MySQL
Server=127.0.0.1  //数据库服务器地址
database=数据库名称
User_Name=root //用户名
password=123456//密码
characterset=gb2312 //指定数据库的字符集,否则中文乱码

还有别忘了 Connected:=true,

TFDQuery,SQL里面写sql语句,例如 select * from 表名,Connection:=TFDConnection1(上面的组件的name。)
TDataSource,DataSet:=TFDQuery1
TDBGrid,DataSource:=TDataSource1

新建个botton按钮写下如下代码:

procedure TForm1.btn1Click(Sender: TObject);
begin
fdqry1.Close;
fdqry1.Prepare;
fdqry1.Open();
end;

既可以在DBGrid里显示查询效果了。

还有就是TFDConnection.Params的内容可以在窗口新建时写。如下:

procedure TForm1.FormCreate(Sender: TObject);
begin
con1.Close;
con1.Params.Clear;
con1.Params.Add('DriverID=' + 'MySQL');
con1.Params.Add('Server=' + '127.0.0.1');
con1.Params.Add('Database=' + 'databasename');
con1.Params.Add('User_Name=' + 'username');
con1.Params.Add('Password=' + 'password');
con1.Params.Add('CharacterSet=gb2312');
con1.Connected := True;
end;

相关阅读 >>

Delphi closehandle的解释

Delphi中判断某个文件是否已经打开

什么是Delphi firemonkey

Delphi版本号检测判断

Delphi xe2 - 点点滴滴

Delphi 取得当前监视器的分辨率

Delphi 得到文件夹下所有文件名

Delphi 实现放大效果

Delphi 清空某个form的控件内容,用tag来判断

Delphi xe 关闭android应用

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...