频道栏目
首页 > 程序开发 > 软件开发 > Delphi > 正文
delphi 7 连接 MySql
2014-02-19 16:07:42         来源:delphi 7 连接 MySql  
收藏   我要投稿
网上有很多关于Delphi连接MySql数据库的文章,在这里,我只记录下自己测试过的方法,以备所需。
系统环境:Windows XP SP3
软件环境:Delphi 7 、mysql-installer-5.5.15.0

1.ODBC方式
必须要先有MySql的ODBC驱动,我下载的是全安装版,包括MySql服务器、各种所支持的连接、工作台、示例数据库、文档,若是无ODBC驱动,可以到官网https://dev.mysql.com/downloads/connector/odbc/下载。
①数据源方式
首先,确认安装了MySql的ODBC驱动,打开“控制面板”→“管理工具”→“数据源”,切换到“驱动程序”页,查看“MySql ODBC 5.1 Driver",如下图所示:
\
切换到"系统DSN"→"添加"→"MySql ODBC 5.1 Driver",如下图所示:
\
弹出MySql数据源配置,数据源名称随意,TCP/IP Server为数据库地址,User用户名,Password密码,Database连接的数据库,点"Test"进行测试连接,如下图所示:
\
点击"OK"后,即可看到新增加了一个数据源。打开Delphi 7,在窗体上放置TADOConnection、TADOQuery、TDataSource和TDBGrid,相互之间关联,配置TADOConnection的连接字符串,"提供程序"选择"Microsoft OLE DB Provider for ODBC Drivers",下一步,选择"使用数据源名称",下拉选择刚才配置的数据源,其他的不用再填写,测试连接,如下图所示:

\

\

在TADOQuery写查询语句,设置Active为True,数据都显示在表格上,如下图所示:
vcq9PGJyPgogICAguPrJz8Pm0rvR+aOsz8jIt8jPsLLXsE15U3FstcRPREJDx/22r6GjtPK/qkRlbHBoaSA3o6zU2rSwzOXJz7fF1sNUQURPQ29ubmVjdGlvbqGiVEFET1F1ZXJ5oaJURGF0YVNvdXJjZbrNVERCR3JpZKOsz+C7pdauvOS52MGqo6zF5NbDVEFET0Nvbm5lY3Rpb261xMGsvdPX1rf7tK6jrM6q0tTPwsTayN2jujxicj4KCgo8dGFibGUgYm9yZGVyPQ=="0" cellspacing="8"> 1
Driver={MySQL ODBC 5.1 Driver}; Server=127.0.0.1; Database=world; User=root; Password=a123; Option=3; 在TADOQuery写查询语句,设置Active为True,数据都显示在表格上,如下图所示:
\
2.ZeosLib方式
ZeosLib是一个用于Borland开发工具的数据库中间件,包括Delphi、C++ Builder和Kylix。从https://sourceforge.net/projects/zeoslib/files/下载"ZEOSDBO-6.6.6-stable"版本,解压到文件夹。打开Delphi 7,加载工程项目包"...\ZEOSDBO\packages\delphi7\ZeosDbo.bpg",按顺序编译,或者右键选择"Compile All From Here",如下图所示:
\
编译完成后,再选择"ZComponentDesign.bpl",右键选择"Install",安装组件成功,弹出如下对话框:
\
再添加所编译完成的目录,即"...\ZEOSDBO\packages\delphi7\build",菜单"Tools"→"Environment Options"→"Library"→"Library path",添加此目录。另外,若需要在编写代码时,能进入ZeosLib源代码的话,需要添加源代码文件夹目录,包括:"...\ZEOSDBO\src\core"、"...\ZEOSDBO\src\parsesql"、"...\ZEOSDBO\src\plain"、"...\ZEOSDBO\src\dbc"和"...\ZEOSDBO\src\component"(注意:会在这些目录下再次编译单元文件)。
新建一个应用程序,在窗体上放置TZConnection、TZQuery、TDataSource和TDBGrid,在窗体创建函数里,写入以下代码:
01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
procedure TForm1.FormCreate(Sender: TObject);
begin
//---------------互相关联------------------------
zqry1.Connection := zcon1;
ds1.DataSet := zqry1;
dbgrd1.DataSource := ds1;
//---------------设置参数------------------------
zcon1.Protocol := 'mysql';
zcon1.Port := 3306;
zcon1.HostName := '127.0.0.1';
zcon1.User := 'root';
zcon1.Password := 'a123';
zcon1.Database := 'world';
zcon1.Connected := True;
//---------------查询显示------------------------
zqry1.Close;
zqry1.SQL.Text := 'SELECT * FROM City';
zqry1.Active := True;
end;
当然手动在设计器上进行设置也可以。因为这里连接的是MySql数据库,需要拷贝MySql数据库客户端所需的DLL(即:libmysql.dll,这里我安装的是在"...\MySQL\MySQL Server 5.5\lib"里面)复制到Windows系统目录(通常是"C:\WINDOWS\system32")或者工程目录下。程序如下图所示:
\
当程序发给别人使用时,需要连同"libmysql.dll"一起发送。若是显示的数据有乱码,这是因为MySQl数据库默认使用UTF-8字符集,则先在查询之前,设置字符集,如下代码所示:
1
2
3
4
5
6
7
begin
zqry1.Close;
zqry1.SQL.Text := 'set names gbk';
zqry1.ExecSQL;
zqry1.SQL.Text := 'select * from city';
zqry1.Active := True;
end;

或者在TZConnection的Properties属性添加"codepage=gbk"。

3.其他方式

另外,还有其他的第三方控件可以连接MySql等其他数据库,如:AnyDAC、MyDAC 、DAC for MySQL等等。

扩展资料:
1.MySQL with Delphi https://delphi.about.com/od/mysql/MySQL_with_Delphi.htm
2.Zeoslib Portal :: Home https://zeos.firmos.at/
3.使用ZeosDbo元件與MySQL連線及建立Master/Detail資料表 https://cdwalkman.my-php.net/_tech/mysql_ZeosLib_delphi.htm
点击复制链接 与好友分享!回本站首页
相关TAG标签
上一篇:Delphi XE5教程3:实例程序
下一篇:Delphi数据库的三层架构的问题和解决方法
相关文章
图文推荐
文章
推荐
点击排行

关于我们 | 联系我们 | 广告服务 | 投资合作 | 版权申明 | 在线帮助 | 网站地图 | 作品发布 | Vip技术培训 | 举报中心

版权所有: 红黑联盟--致力于做实用的IT技术学习网站