Delphi 连接 Mysql

本文讲一下Delphi 使用ADO方式连接 MySql 的方式。

软件环境准备：

1. Delphi XE3(任何版本都可以)。

2. BDE 的安装。(如果安装成功，可以在 控制面板（小项目表示）看见  BDE Administrator )

3. MySQL的安装。(MySQL 初始安装成功的用户名是root。密码是空。)

4. MySQL connector / ODBC 的安装。（如果安装成功，可以在控制面板-〉管理工具-〉数据源中 看见）

数据的准备：

1.通过 MySQL 做成数据库  TEST 。 数据库  TEST 里边新建一张表 PEOPLE。这个表有三个字段

( 字段id(类型 integer)， 字段name(类型 varchar(20))，  字段age(类型 integer)) 。

往表中插入下边三组数据。

1,xiaoming,15

2,xiaoli,20

3,xiaowang,30

数据的连接：（这是这篇文章的重点）

1. 确认安装了MySql的ODBC驱动，打开“控制面板”→“管理工具”→“数据源”，切换到“驱动程序”页，查看“MySql ODBC 5.1 Driver"，如下图所示：

切换到"系统DSN"→"添加"→"MySql ODBC 5.1 Driver"，如下图所示：

弹出MySql数据源配置，数据源名称随意，TCP/IP Server为数据库地址，User用户名，Password密码，Database连接的数据库，点"Test"进行测试连接，如下图所示：

点击"OK"后，即可看到新增加了一个数据源。

2.打开Delphi ，在窗体上放置TADOConnection、TADOQuery、TDataSource和TDBGrid。

把这些控件 相互之间关联。注意ADOQuery的active设置成true。

配置TADOConnection的连接字符串

连接建立好之后，可以写一下相关的查询语句。

//增
procedure TForm5.AddClick(Sender: TObject);
begin
   ADOQuery.SQL.Clear;
   ADOQuery.SQL.Add('insert into people values(4,"xiaolan",40)');
   ADOQuery.ExecSQL;
end;
//删
procedure TForm5.DeleteClick(Sender: TObject);
begin
   ADOQuery.SQL.Clear;
   ADOQuery.SQL.Add('delete from people where name= "xiaolan"');
   ADOQuery.ExecSQL;
end;
//改
procedure TForm5.ModifyClick(Sender: TObject);
begin
   ADOQuery.SQL.Clear;
   ADOQuery.SQL.Add('update people set age=10 where name= "xiaoming"');
   ADOQuery.ExecSQL;
end;
//查
procedure TForm5.SearchClick(Sender: TObject);
begin
   ADOQuery.SQL.Clear;
   ADOQuery.SQL.Add('select * from people');
   ADOQuery.Open;
end;

上边按钮依次点击，结果如果所示。