- 人气:
- 放大
- 缩小
- 二维码
- 赞赏
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;