本文整理自网络,侵删。
首先我用的是Delphi XE,FireDAC是这个版本自带的。
第一步,添加组件
TFDPhyMySQLDriverLinkTFDGUIxWaitCursorTFDConnectionTFDQueryTDataSourceTDBGrid
第二步,设置组件属性
TFDGUIxWaitCursor,不用设置,好像是显示sql执行时的等待的鼠标样式。TFDPhyMySQLDriverLink,BaseDriverID:=MySQL,Vendorlib的值为mysql文件夹中的libmysql.dll的路径如 D:\MySQL\lib\libmysql.dl。TFDConnection,DriverName:=MySQL,LlginPrompt:=false,Params里面是重点。
如下:DriverID=MySQLServer=127.0.0.1 //数据库服务器地址database=数据库名称User_Name=root //用户名password=123456//密码characterset=gb2312 //指定数据库的字符集,否则中文乱码
还有别忘了 Connected:=true,
TFDQuery,SQL里面写sql语句,例如 select * from 表名,Connection:=TFDConnection1(上面的组件的name。)TDataSource,DataSet:=TFDQuery1TDBGrid,DataSource:=TDataSource1
新建个botton按钮写下如下代码:
procedure TForm1.btn1Click(Sender: TObject);beginfdqry1.Close;fdqry1.Prepare;fdqry1.Open();end;
既可以在DBGrid里显示查询效果了。
还有就是TFDConnection.Params的内容可以在窗口新建时写。如下:
procedure TForm1.FormCreate(Sender: TObject);begincon1.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 winapi: loadstring - 从资源中载入字符串
Delphi+access错误"不正常地定义参数对象。提供了不一致或不完整的信息。"
更多相关阅读请进入《Delphi》频道 >>