delphi mysql
Delphi2006连接Mysql5.1
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按钮就能查询到表中的数据。
Delphi的Query控件
用Delphi做过数据库编程的朋友肯定熟悉Query控件,这个控件实现的功能是执行一条SQL语句或一个SQL脚本,在我们进行数据库开发中使用的频率非常高。笔者在多年的使用过程中发现用好这个控件有两点要非常注意。 第一点是:区分好Query控件的Open方法和ExecSQL方法。这两个方法都可以实现执行SQL语句,但要根据不同情况分别使用。如果这条SQL语句将返回一个结果集,必须使用Open方法,如果不返回一个结果集,则要使用ExecSQL方法。例如: …… Query1:Tquery Query2:Tquery …… Query1.Close; Query1.SQL.Clear; Query1.SQL.Add('select * from AA'); Query1.Open; …… Query2.Close; Query2.SQL.Clear; Query2.SQL.Add('delete AA'); Query2.ExecSQL; …… 上述的例子中,Query1所执行的SQL语句将返回一个结果集,因此必须用Open方法;而Query2所执行的是一条删除表记录语句,不返回结果集,因此用ExecSQL方法。 第二点是:如果Query控件用Open方法执行SQL语句,并且所用的SQL语句访问的是一张或几张频繁使用的表,在执行完SQL语句后,一定要调用SQL的FetchAll方法,能大大地减少死锁发生的概率。例如: …… Query1:Tquery …… Query1.Close; Query1.SQL.Clear; Query1.SQL.Add('select * from AA'); Query1.Open; Query1.FetchAll; …… 在上述的例子中,如果AA是一张被频繁访问的表,在对这个表执行这一条select语句的同时,如果恰好有其他人对这张表执行删除或更新操作,便有可能发生死锁。Query1.FetchAll这条语句实现的功能是释放加在表AA上的锁,这样死锁的发生概率可以大大减少。避免死锁,对我们将来进行大型数据库开发尤为重要。"
连接 mysql 详细步骤
看你是使用什么组件了,现在Delphi连接使用mysql数据库,最简单的就是 Delphi连接mysql的一个三方控件很好用的,,Delphi盒子和很多关于Delphi下载的网站都有下载的 你跟我遇到的问题是一样,我今天才解决了这个问题
用ADOconnection,但是ADO没有mysql的驱动,你要去下载一个mysql.dll,放在bin目录,直接use connection string TADOConnection的ConnectionString = 'DRIVER={MySQL ODBC 3.51
Driver};SERVER=MySQL数据库服务器;DATABASE=数据库名字;USER=用户
名;PASSWORD=密码;OPTION=;'DRIVER={MySQL ODBC 3.51
Driver};SERVER=192.168.1.22;DATABASE=rule;USER=WJH;PASSWORD=;OPTION=; 就可以连上了,我就是这么连上的!
delphi中使用libmysql.dll连接MySQL
LIBMYSQL.DLL------------You can also access a MySQL server using the libmysql.dll library. Thisfile doesn't come with the standard MySQL installation, but you candownload it from: http://www.fichtner.net/delphi/mysql.delphi.phtmlYou should also download the mysql.pas file which is a Delphi a unitthat contains the type declarations for using this library. You need toinclude this unit in the uses clause of any unit from which you want tocall the functions contained in the library.The following example opens a connection to MySql server, opens adatabase, performs a query and stores the result in a StringGrid, andfinally closes the connection. uses ..., mysql; procedure TForm1.Button1Click(Sender: TObject); var mysqlcon: TMySQL; // MySQL-connection structure presults: pmysql_res; // Pointer to a results structure prow: pmysql_row; // Pointer to a row structure pfields: PMYSQL_FIELDS; // Pointer to a fields array i, j: Integer; // Counters begin // Connect to the server mysql_connect(@mysqlcon, 'localhost', 'root', ''); if mysqlcon.net.last_errno <> 0 then begin ShowMessage (Trim(mysqlcon.net.last_error)); exit; end; // Open the mysql database if mysql_select_db(@mysqlcon, 'mysql') <> 0 then begin mysql_close(@mysqlcon); // Disconnect ShowMessage('Couldn''t open mysql database'); exit; end; presults:= nil; try // Send the query to the server and get the results mysql_query(@mysqlcon, 'SELECT * FROM user'); presults := mysql_store_result(@mysqlcon); // Set the size of the grid StringGrid1.ColCount := presults^.field_count; StringGrid1.RowCount := presults^.row_count + 1; // Fill the grid header with the fields' names pfields := presults^.fields; for j := to presults^.field_count - do StringGrid1.Cells[j, ] := pfields^[j].name; // Fill the grid for i := 1 to presults^.row_count do begin prow := mysql_fetch_row(presults); for j := 0 to presults^.field_count -1 do StringGrid1.Cells[j, i]:= prow^[j]; end; finally mysql_free_result(presults); // Release memory mysql_close(@mysqlcon); // Disconnect end; end;As you can see, it's quite complicated, and this constitutes the main(and I would say only, but very important) disadvantage of using thelibmysql.dll library. The advantages are that you have full control,that it's faster than using ODBC, and that it doesn't requiere the BDE.It would be nice to have a TDataset descendant that encapsulates thelibmysql.dll API...
LIBMYSQL.DLL -----------您也可以访问MySQL服务器使用的libmysql.dll库。 Thisfile不标准的MySQL安装,但你candownload从http://www.fichtner.net/delphi/mysql.delphi.phtmlYou还应该下载mysql.pas的文件,这是一个Delphi一个unitthat的包含使用这个库的类型声明。您需要toinclude,这个单位的使用条款,任何单位要从其中tocall包含的功能库。下面的例子中,打开一个连接到MySQL服务器,打开adatabase,执行查询和存储的StringGrid的结果在,andfinally关闭连接。用途,mysql的程序TForm1.Button1Click(发件人TObject的)VAR mysqlcon:TMySQL的的/ / MySQL的连接结构presults:pmysql_res; / /指针业绩结构船头:pmysql_row / /行结构的指针如果mysqlcon.net.last_errno的,J:整数pfields:PMYSQL_FIELDS; / /指针的领域阵列I / /计数器开始/ /连接到服务器MYSQL_CONNECT(@ mysqlcon,'localhost'的'根',''); <> 0,然后开始'绂诲紑镞堕棿搴斿ぇ浜庡叆浣忔椂闂达紒(修剪(mysqlcon.net.last_error));退出;结束; / /打开mysql数据库mysql_select_db(@ mysqlcon,'mysql的')<> 0,则mysql_close(@ mysqlcon); / /开始不能公开的mysql数据库'断开'绂诲紑镞堕棿搴斿ぇ浜庡叆浣忔椂闂达紒()退出;结束; presults:=零; / /查询发送到服务器,并得到的结果,请求mysql_query(@ mysqlcon,“SELECT * FROM用户); presults = mysql_store_result(@ mysqlcon); / /设置电网StringGrid1.ColCount的大小:= presults ^。field_count的StringGrid1.RowCount:= presults ^。ROW_COUNT + 1 / /填充的网格头字段的名称pfields的:对于j = presults ^领域;:= 0到presults ^ -1。field_count的做的StringGrid1.Cells [J,0]:= pfields ^ [J]。名; / /填充i的网格:= 1 presults的^。ROW_COUNT开始船头:= mysql_fetch_row的(presults)在J:= 0到presults ^ -1。field_count的做StringGrid1.Cells,[J]:=船头^ [J];结束;终于了mysql_free_result(presults); / /释放内存则mysql_close(@ mysqlcon)在/ /断开年底结束,正如你可以看到,它是相当复杂,这构成了主要的(我会说,但很重要的)的缺点使用thelibmysql.dll库的。其优点是可以完全控制它的速度比使用ODBC,,它不requiere的BDE.It将是不错的一个封装thelibmysql.dll API的的TDataSet的传人,...
在delphi中设计mysql的数据连接
如何在delphi中设计mysql的数据连接
-- :使用delphi连接mysql做成一个二级服务管理系统应该是中小数据管理模式的一种比较理想的应用,
.使用delphi的客户端用户界面比采用浏览器方式的界面更可以增强客户端的易用性,功能更全面,
.使用mysql的服务器端软件可以节约开支(对不能使用盗版软件而言),功能也较强大,是现在流行的 数据库管理软件,会使用的人很多。 由于delphi本身提供的mysql连接方式只能支持mysql3.以下版本的mysql,故对于现在普遍使用的5.以 上的版本无法提供支持,在使用进将会得到“unable to load libmysql”的错误提示。 对于该问题的解决有几种方式,目前我使用的是一种用dbxopenmysql50.dll替换掉delphi本身自带的 dbexpmysql.dll。 进行替换的两种方式
1。直接将下载的dbxopenmysql50.dll改名为dbexpmysql.dll存到C:\Program Files\Borland\Delphi7 \Bin,对原文件进行替换,然后在程序设计中还要修改connction下的的GetDriverFunc改为 getSQLDriverMYSQL50。 .将dbxopenmysql50.dll拷贝到用户设计目录,然后在程序设计中将connection下的libraryname改为 dbxopenmysql50.dll,GetDriverFunc改为getSQLDriverMYSQL50。 示例程序及源代码:
先在程序中添加控件simpledataset1、datasource1、dbgrid1
edit1 输入入主机名
edit2 输入端口(此外此功能无效,因为无法对端口进行更改)
edit3 数据库名
edit4 连接mysql数据库的用户名
edit5 连接mysql数据库的密码
edit6 表名 设置button1 的caption为退出
设置button2 的caption为连接
设置datasource1的dataset为simpledataset1
设置dbgrid1的datasource为datasource1 双击连接button2输入以下代码
with simpledataset1.Connection do
begin
DriverName := 'dbxmysql';
GetDriverFunc := 'getSQLDriverMYSQL50';
LibraryName := 'dbxopenmysql50.dll';
VendorLib := 'libmysql.dll';
Params.Append('HostName=localhost'); // Params.Append('HostName='+edit1.Text+':'+edit2.Text);
// Params.Append('port='+edit2.Text );
Params.Append('Database='+edit3.Text );
Params.Append('User_Name='+edit4.Text );
Params.Append('Password='+edit5.Text ); end;
simpledataset1.DataSet.CommandText :='select * from '+edit6.Text ;
simpledataset1.Open;
双击退出button1输入以下代码
simpledataset1.close;
close; 完成后的程序代码总清单为: unit Unit1; interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DBXpress, FMTBcd, DB, Grids, DBGrids, SqlExpr, DBClient,
SimpleDS, StdCtrls; type
TForm1 = class(TForm)
DBGrid1: TDBGrid;
SimpleDataSet1: TSimpleDataSet;
DataSource1: TDataSource;
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Button2: TButton;
Label5: TLabel;
Edit5: TEdit;
Edit6: TEdit;
Label6: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end; var
Form1: TForm1;
Connection: TSQLConnection;
implementation {$R *.dfm} procedure TForm1.Button2Click(Sender: TObject);
begin
with simpledataset1.Connection do
begin
DriverName := 'dbxmysql';
GetDriverFunc := 'getSQLDriverMYSQL50';
LibraryName := 'dbxopenmysql50.dll';
VendorLib := 'libmysql.dll';
Params.Append('HostName=localhost'); // Params.Append('HostName='+edit1.Text+':'+edit2.Text);
// Params.Append('port='+edit2.Text );
Params.Append('Database='+edit3.Text );
Params.Append('User_Name='+edit4.Text );
Params.Append('Password='+edit5.Text ); end;
simpledataset1.DataSet.CommandText :='select * from '+edit6.Text ;
simpledataset1.Open;
end; procedure TForm1.Button1Click(Sender: TObject);
begin
simpledataset1.close;
close; end;
procedure TForm1.FormCreate(Sender: TObject);
begin end; end. 转载请注作者:nathen.zhang Email:nathen.zhang@gmail.com
访问mysql,using libmysql.dll ; mysql.pas从哪里下载
http://www.audio-data.de/mysql.html Deutsch
mysql.pas (Version --)
Client API for MySQL AB`s SQL Database Server using LibMySql.dll or LibMySqld.dll (Embeeded MYSQL Server). It is a Pascal translation of mysql.h and some other C header files needed for writing clients for the MySQL database server.
The unit is tested with:
Delphi Versions: (), (), , , , , .
LibMySql.dll Versions: 3.23, 4.0, 4.1, 5.0, 5.1, 6.0
MySQL-Server Versions: 3.23, 4.0, 4.1, 5.0, 5.1 Download mysql.pas The contents of the file mysql.pas are used with permission, subject to the Mozilla Public License Version 1.1 (the "License"); you may not use this file except in compliance with the License. You may obtain a copy of the License at http://www.mozilla.org/MPL/MPL-1.1.html
Other components: SimpleXML Change log -- (so) Page created -- (so) Demo application -- (so) Improved dynamic loading -- (so) Demo Delphi Added functions: mysql_autocommit, mysql_set_character_set,
mysql_commit, mysql_rollback, mysql_set_server_option,
mysql_sqlstate, mysql_warning_count, MySql_StrLen,
CharSetNameToCodepage, CodepageToCharSetName, MySqlToUTF16,
UTF16ToMySql -- (so) Added functions: mysql_server_init, mysql_server_end,
Support for prepared statements -- (so) Added records: TNET501, TMYSQL501 -- (so) Added functions mysql_thread_init, mysql_thread_end -- (so) Added functions mysql_more_results, mysql_next_result, FormatIdentifier -- (so) Added functions EscapeString, EscapeForLike, QuoteString, FullFieldname
Change FormatIdentifier to QuoteName -- (so) Bug in GetVersion fixed -- (so) ThreadDemo added LIBMYSQL.DLL ------------ You can also access a MySQL server using the libmysql.dll library. This file doesn't come with the standard MySQL installation, but you can download it from: http://www.dlldll.com/libmysql.dll_download.html You should also download the mysql.pas file which is a Delphi a unit that contains the type declarations for using this library. You need to include this unit in the uses clause of any unit from which you want to call the functions contained in the library. The following example opens a connection to MySql server, opens a database, performs a query and stores the result in a StringGrid, and finally closes the connection. uses ..., mysql; procedure TForm1.Button1Click(Sender: TObject); var mysqlcon: TMySQL; // MySQL-connection structure presults: pmysql_res; // Pointer to a results structure prow: pmysql_row; // Pointer to a row structure pfields: PMYSQL_FIELDS; // Pointer to a fields array i, j: Integer; // Counters begin // Connect to the server mysql_connect(@mysqlcon, 'localhost', 'root', ''); if mysqlcon.net.last_errno <> 0 then begin ShowMessage (Trim(mysqlcon.net.last_error)); exit; end; // Open the mysql database if mysql_select_db(@mysqlcon, 'mysql') <> 0 then begin mysql_close(@mysqlcon); // Disconnect ShowMessage('Couldn''t open mysql database'); exit; end; presults:= nil; try // Send the query to the server and get the results mysql_query(@mysqlcon, 'SELECT * FROM user'); presults := mysql_store_result(@mysqlcon); // Set the size of the grid StringGrid1.ColCount := presults^.field_count; StringGrid1.RowCount := presults^.row_count + 1; // Fill the grid header with the fields' names pfields := presults^.fields; for j := to presults^.field_count - do StringGrid1.Cells[j, ] := pfields^[j].name; // Fill the grid for i := 1 to presults^.row_count do begin prow := mysql_fetch_row(presults); for j := 0 to presults^.field_count -1 do StringGrid1.Cells[j, i]:= prow^[j]; end; finally mysql_free_result(presults); // Release memory mysql_close(@mysqlcon); // Disconnect end; end; As you can see, it's quite complicated, and this constitutes the main (and I would say only, but very important) disadvantage of using the libmysql.dll library. The advantages are that you have full control, that it's faster than using ODBC, and that it doesn't requiere the BDE. It would be nice to have a TDataset descendant that encapsulates the libmysql.dll API...
delphi mysql的更多相关文章
- Delphi+MySQL:TADOQuery使用插入中文乱码解决方法
Delphi+MySQL:TADOQuery使用插入中文乱码解决方法 with adoquery dobeginclose;sql.clear;sql.text:=' insert into test ...
- delphi+mysql做的图书管理系统,怎么把mysql数据库也一起打包进去?我用的是delphi的Express组件。
sqlconnection,sqlquery1这些组件,我连接数据库的时候是用对象编辑器里的属性进行连接的,在sqlconnection中指定了字符集utf8,有些人做的方法是利用代码连接的数据库,如 ...
- Delphi连接MySql(待测试验证,使用mysql.pas未通过)
要在一个Delphi程序中调用Mysql数据库,查到有个资料如下,待验证,验证后会给出结果.暂时做个标记 已经验证,验证日期:2018.6.18 验证结果:不可行 验证工具:XE7,mysql5.5. ...
- Delphi 7连接MySql 5.5.15
原文:http://blog.csdn.net/akof1314/article/details/6822902/ 网上有很多关于Delphi连接MySql数据库的文章,在这里,我只记录下自己测试过的 ...
- delphi 连接mysql
Delphi连接MySQL真麻烦,研究了一天,从网上找了无数文章,下载了无数插件都没解决.最后返璞归真,老老实实用ADO来连接,发现也不是很顺利,但最终还是连接成功了.多少有点心得:ADO各个组件的作 ...
- Delphi FireMonkey使用UniDAC 连接MySQL
首次用Delphi XE6 开发安卓程序,并没有在网上找到连接远程MySQL服务器的文档,自己摸索一番,发现UniDAC控件新版本也已支持了FireMonkey下的开发.遂记下连接方法和大家分享. 1 ...
- Delphi能通过SSH登录Linux,连接MYSQL取数么?像Navicat一样
百度随时就能搜,你就懒得搜下.http://tieba.baidu.com/p/671327617 Ssh tunnel通常能实现3种功能1) 加密网络传输2) 绕过防火墙3) 让位于广域网的机器连接 ...
- Delphi XE中使用dbExpress连接MySQL数据库疑难问题解决(对三层的例子配置有帮助)
Delphi IDE中包含一个Data Explorer的组件,如下图所示: 该组件基于dbExpress(包含TSQLConnection.TSQLDataSet.TSQLQuery.TSQLSto ...
- Delphi 7连接MySql 5.5.15(转)
网上有很多关于Delphi连接MySql数据库的文章,在这里,我只记录下自己测试过的方法,以备所需.系统环境:Windows XP SP3软件环境:Delphi 7 .mysql-installer- ...
随机推荐
- React 组件间传值
壹 .了解React传值的数据 一. 创建组件的方法 一 . 1 通过function声明的组件特点是: 1)function创建的组件是没有state属性,而state属性决定它是不是有生命周期 ...
- Shiro学习(19)动态URL权限限制
用过spring Security的朋友应该比较熟悉对URL进行全局的权限控制,即访问URL时进行权限匹配:如果没有权限直接跳到相应的错误页面.Shiro也支持类似的机制,不过需要稍微改造下来满足实际 ...
- spring aop的前奏,动态代理 (5)
目录 一.先看一个计算器的抽取和实现 二.使用动态代理解决以上问题. 1 设计原理 2 代码实现 2.1 接口代码 2.2 实现接口的代码 2.3 测试代码 2.3 创建动态代理类 2.4 动态代理类 ...
- C++——数据结构之链表
直接上例子 int main() { ,,}; ,,}; Listnode *head=NULL,*temp; head=(Listnode*)malloc(sizeof(Listnode));//头 ...
- MDK中问题:warning : type qualifier is meaningless on cast type return 的解决
在MDK编译代码时,有时会出现这样的警告, warning : type qualifier is meaningless on cast type return 在MDK中,作如下设置: 即添加 : ...
- 2019牛客多校第四场C-sequence(单调栈+线段树)
sequence 题目传送门 解题思路 用单调栈求出每个a[i]作为最小值的最大范围.对于每个a[i],我们都要乘以一个以a[i]为区间内最小值的对应的b的区间和s,如果a[i] > 0,则s要 ...
- 剑指offer第二版面试题3:二维数组中的查找(JAVA版)
题目: 在一个二维数组中,每一行都按照从左到右递增的顺序排序,每一列都按照从上到下递增的顺序排序.请完成一个函数,输入这样的一个二维数组和一个整数,判断数组中是否含有该整数. 1 2 8 9 2 4 ...
- pcre2 正则库
\S+ 不能匹配到字符串末尾的最后一个字段
- 解决 html5 input type='number' 类型可以输入e
当给 input 设置类型为 number 时,比如,我想限制,只能输入 0-9 的正整数,正则表达式如下: /^[-]?$/ // 匹配 0-9 的整数且只匹配 0 次或 1 次 用正则测试,小数点 ...
- String、StringBuffer、StringBuilder有什么区别?
1.在字符串不经常发生变化的业务场景优先使用String(代码更清晰简洁).如常量的声明,少量的字符串操作(拼接,删除等). 2.在单线程情况下,如有大量的字符串操作情况,应该使用StringBuil ...