您好,欢迎访问一九零五行业门户网

Delphi7连接MySql5.5.15_MySQL

delphi 7连接mysql 5.5.151.odbc方式
必须要先有mysql的odbc驱动,我下载的是全安装版,包括mysql服务器、各种所支持的连接、工作台、示例数据库、文档,若是无odbc驱动,可以到官网http://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,数据都显示在表格上,如下图所示:
②驱动方式
跟上面一样,先确认安装mysql的odbc驱动。打开delphi 7,在窗体上放置tadoconnection、tadoquery、tdatasource和tdbgrid,相互之间关联,配置tadoconnection的连接字符串,为以下内容:
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。从http://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 http://delphi.about.com/od/mysql/mysql_with_delphi.htm
2.zeoslib portal :: home http://zeos.firmos.at/
3.使用zeosdbo元件
其它类似信息

推荐信息