Delphi2006连接Mysql5.1(二)

原创 2007年01月15日 16:43:00
2.DBExpress+dbxopenmysql50.dll
可能很多人会奇怪,dbxopenmysql50.dll是什么东东?DBExpress不就是数据库连接组件了吗,为什么还要加上这个东西?这是由于Delphi2006中的DBExpress对Mysql高版本的支持很差,从国外论坛上看到的说法似乎是根本就没实现,所以说虽然TSQLConnection组件中提供了Mysql选项,但直接使用的话是不行的(低版本的mysql可能可以),我遇到的现象是提示“Unable to Load libmysql.dll”,但其实我已经在系统目录System32下、Delphi安装目录的bin中、开发工程项目文件夹中都安放了该文件,还是找不到该dll。
dbxopenmysql50.dll是由老外开发的,而且开源,还是老外好啊,可以到如下网址去下载:
http://www.justsoftwaresolutions.co.uk/delphi/dbexpress_and_mysql_5.html
使用时需要将dbxopenmysql50.dll和libmysql.dll都放到工程文件夹下。顺便提一下,libmysql.dll在mysql安装目录下的/lib/opt目录中。
使用方法有两种,一种是直接修改Borland/BDS/4.0/dbExpress下的dbxdrivers.ini,调整其中关于mysql的各参数。
另一种就是在程序中指定,现在我以这种方式为例说明这种连接方式的开发方法。
在Form上放上TSQLConnection、TSQLQuery、TStringGrid、3个TButton、TLable。界面显示如下图。

在FormCreate事件中:
SQLConnection1 := TSQLConnection.Create(nil);
SQLConnection1.DriverName := 'dbxmysql';
SQLConnection1.GetDriverFunc := 'getSQLDriverMYSQL50';
SQLConnection1.LibraryName := 'dbxopenmysql50.dll';
SQLConnection1.VendorLib := 'libmysql.dll';
SQLConnection1.LoginPrompt := false;
在此设置TSQLConnection的各个具体参数,当然也可以直接在组件属性面板中修改,或者修改dbxdrivers.ini中的对应参数,方法是多种的。
Connect按钮的事件:
SQLConnection1.Params.Append('Database=user');
SQLConnection1.Params.Append('User_Name=mysql');
SQLConnection1.Params.Append('Password=mysql');
SQLConnection1.Params.Append('HostName=localhost');
SQLConnection1.Open;
if SQLConnection1.Connected = true then
Label1.Caption := 'success'
else
Label1.Caption := 'fail';
设置数据库连接的各参数配置后,打开数据库连接,同时显示连接是否成功。
Query按钮的事件:
var
i,j: Integer;
begin
SQLQuery1.SQL.Clear;
SQLQuery1.SQL.Add('SELECT * FROM userinfo');
SQLQuery1.Active := true;
i := 0;
SQLQuery1.First;
while not SQLQuery1.eof do
begin
for j:=0 to SQLQuery1.FieldCount-1 do
StringGrid1.cells[j,i]:=SQLQuery1.Fields[j].AsString;
SQLQuery1.next;
inc(i);
end;
SQLQuery1.Active := false;
查询表数据并在StringGrid中输出。
Disconnect按钮的事件:
if SQLConnection1.Connected = true then
SQLConnection1.Close;
FormDestroy事件:
if SQLConnection1.Connected = true then
SQLConnection1.Close;
SQLConnection1.Free;
运行程序,点击connect按钮,如果数据库连接成功可以看到success提示,然后点击query按钮就能查询到表中的数据。 
 

Delphi2006连接Mysql5.1

本文转自 http://www.cnblogs.com/JackSun/archive/2010/12/16/1908145.html
  • hksoobe
  • hksoobe
  • 2014年06月16日 03:08
  • 332

Delphi2006连接Mysql5.1(一)

这两天抽空研究了下Delphi2006如何连接Mysql5.1,过于追求新版本有时就会遇到此类问题,厂商实现不完善,有地方没实现或没考虑到的,直接用它的产品就会出问题。baidu搜了搜国内网站,好像还...

MySql5.1ODBC连接驱动

  • 2015年05月04日 11:47
  • 3.87MB
  • 下载

win7下用VC6.0连接MySQL5.1数据库

软件环境: Win7 64位 + MySQL5.1 + VC6.0   在VC中调用MySQL数据库时,需要用到MySQL5.1安装位置的include目录和lib目录,还有libmysql.lib...
  • sanqima
  • sanqima
  • 2015年12月03日 18:55
  • 844

amoeba连接mysql--ERROR 2006 (HY000): MySQL server has gone away

amoeba下载地址:http://sourceforge.net/projects/amoeba/files amoeba version:amoeba-mysql-binary-2.1.0-RC...

Delphi2006 DBexpress驱动

====================================================== 注:本文源代码点此下载 =============================...

Delphi 2006 高级控件应用

  来源:电脑报    Borland Developer Studio 2006 已于 2005 年 12 月 5 日正式发布了。 Delphi 2006 是 Borland Developer S...
  • voyan
  • voyan
  • 2011年05月12日 18:22
  • 537

Delphi 2006语言新特性

type //非引用,可直接赋值,Record不可继承,Object可继承 TRecord = record{object} const //定义了常量后影响Ctrl+Shift+...
  • cmd9x
  • cmd9x
  • 2016年12月30日 11:57
  • 113

2006毕业设计Delphi篇(五)

====================================================== 注:本文源代码点此下载 =============================...

Castalia5.1D2006

  • 2007年12月18日 09:06
  • 3.73MB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Delphi2006连接Mysql5.1(二)
举报原因:
原因补充:

(最多只允许输入30个字)