delphi 连接mysql

Delphi连接MySQL真麻烦，研究了一天，从网上找了无数文章，下载了无数插件都没解决。最后返璞归真，老老实实用ADO来连接，发现也不是很顺利，但最终还是连接成功了。多少有点心得：ADO各个组件的作用和联系必须清楚，否则设置起来很容易混乱。总结一下用ADO连接MySQL5.1要点：

1、需要下载MySQL的ODBC支持，我用的官网mysql-connector-odbc-5.1.7-win32.msi（这个一般没问题，下载安装即可）

2、通过ODBC管理建立系统DSN（这个也简单，无非是选择MySQL的ODBC，设置服务器、用户名、密码）

3、熟悉ADO控件知道其作用和相互联系。（难点）

TADOConnection作用是通过设置ConnectionString连接字符串（例如：服务器localhost、用户名root、密码123456）连接默认数据库DefaultDatabas(mysql)。

TADOQuarry作用是执行查询语句并保存查询结果，需要设置SQL（如 select * from user;），感觉这里SQL语句只能是一条。该组件与TADOConnection联系密切，Connection属性应该设置为TADOConnection的实例（如conMySQL）。

这样有数据库连接，有查询操作，剩下的任务就是把结果显示出来。这里需要两个组件支持：

TDataSource顾名思义：数据源，是数据显示和查询结果之间连接的一个桥梁，其DataSet属性设为TADOQuarry的实例（qryMySQL）

TDBGrid是显示结果的数据组件，其DataSource属性设置为TDataSource实例即可（如dsMySQL）

4、激活连接以生效，TADOConnection的connected设置为真，另外TADOQuarry的active设置为真。

 

在实际应用中，不用建立系统DSN，只需要安装ODBC后即可用动态方式创建连接。

来源： <DelphiXE连接MySQL5.1 - Delphi7456 - 博客园>

 

procedure  TForm1 . Button1Click ( Sender :  TObject );
begin
try
     ADOConnection1 . ConnectionString :=( 'DRIVER={MySQL ODBC 3.51 Driver};' +
                   'SERVER=localhost;' +
                   'DATABASE=wm;' +
                   'USER=root;' +
                   'PASSWORD=mcncc;' +
                   'OPTION=3;' );
     ADOConnection1 . Close ;
     ADOConnection1 . Open ;
    except
     application . MessageBox ( '无法连接数据库服务器.请与管理员联系' , '提示' , MB_ICONINFORMATION );
    end  ;
      ADOQuery1 . Active := true ;
end ;

 

来自为知笔记(Wiz)

转载于:https://www.cnblogs.com/xe2011/p/3875836.html