delphi7连接mysql5一方法

今天开始研究mysql,在网上搜了一下资料,都是要安装这个,安装那个,很麻烦。

经过一直摸索、测试,得到一个快速的方法,很实用,只是稳定性有待发现。

先去下载:http://www.justsoftwaresolutions.co.uk/delphi/dbexpress_and_mysql_5.html

然后把下载到的dbxopenmysql5_dll.zip解压出来,再把dbxopenmysql50.dll和libmysql.dll都放到工程文件夹下。

在Form上放上TSQLConnection、TSQLQuery、TStringGrid、3个TButton、TLable。

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DBXpress, FMTBcd, StdCtrls, Grids, DB, SqlExpr;

type
  TForm1 = class(TForm)
    SQLConnection1: TSQLConnection;
    SQLQuery1: TSQLQuery;
    StringGrid1: TStringGrid;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  SQLConnection1 := TSQLConnection.Create(nil);
  SQLConnection1.DriverName := ‘dbxmysql‘;
  SQLConnection1.GetDriverFunc := ‘getSQLDriverMYSQL50‘;
  SQLConnection1.LibraryName := ‘dbxopenmysql50.dll‘;
  SQLConnection1.VendorLib := ‘libmysql.dll‘;
  SQLConnection1.LoginPrompt := false;
  SQLConnection1.Params.Append(‘Database=mysql‘);
  SQLConnection1.Params.Append(‘User_Name=root‘);
  SQLConnection1.Params.Append(‘Password=‘);
  SQLConnection1.Params.Append(‘HostName=localhost‘);
  SQLConnection1.Open;
  if SQLConnection1.Connected = true then
  begin
    SQLQuery1.SQLConnection := SQLConnection1;
    Label1.Caption := ‘success!‘;
  end
  else
    Label1.Caption := ‘failed!‘;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  i, j: Integer;
begin
  SQLQuery1.SQL.Clear;
  SQLQuery1.SQL.Add(‘SELECT * FROM user‘);
  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;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  if SQLConnection1.Connected = true then
    SQLConnection1.Close;
  SQLConnection1.Free;
end;

end.

  经测试,连接OK,查询OK。

参考:JackSun‘s 技术博客 http://www.cnblogs.com/JackSun/archive/2010/12/16/1908145.html

delphi7连接mysql5一方法

时间: 2024-11-05 11:33:03

delphi7连接mysql5一方法的相关文章

Qt5连接Mysql5.7例子

Qt5连接Mysql5.7例子 : MysqlQt数据库 C++Qt框架(30)  . [cpp] view plain copy  <pre name="code" class="cpp">#include "mainwindow.h" #include "ui_mainwindow.h" #include<QSqlDatabase> #include<QDebug> MainWindow

QTP连接MYSQL数据库方法

1.首先安装mysql数据驱动,qtp在windows系统下操作连接mysql,所以下载mysql-connector-odbc-   5.1.8-win32.msi 下载地址:http://mysql.mirrors.pair.com/Downloads/Connector-ODBC/5.1/mysqlconnector-odbc-5.1.8-win32.msi 2.安装mysql驱动 ,默认安装即可. 3. 添加默认数据源 控制面板->管理工具->数据源ODBC->系统DNS->

用C3P0获取连接对象的方法

package gxa.bj.util; import java.sql.Connection;import java.sql.SQLException; import javax.sql.DataSource; import com.mchange.v2.c3p0.ComboPooledDataSource; public class C3P0Connect { private static DataSource ds; // 在线程中创建Connection对象的副本 private sta

使用html &lt;a href=&quot;&quot;/&gt;标签连接action的方法

<a href="<s:url action="blogList"/>">XXXX</a>即可 更简单的写法是 <a href="blogDelete.action?id=XXX">直接写就行了 如果这个Action在struts里面声明的时候有命名空间如/user 那么写成<a href="user/blogDelete.action?id=XXX"> 使用stru

java程序通过jdbc连接oracle数据库方法

1.  赋予scott用户连接权限:Grant connect to scott: 2.   在Myeclipse中新建java项目导入jdbc包(classes12.jar):        右键项目 bulid path -〉add external archives 选择classes12.jar 3.   新建java文件, lianxi01.java import java.sql.Connection; import java.sql.ResultSet; import java.s

centos里mysql无法用localhost连接的解决方法

遇到这个问题可能是由于我未安装在默认路径导致的 解决方法: 由于mysql 默认的mysql.sock 是在/var/lib/mysql/mysql.sock,但linux系统总是去/tmp/mysql.sock查找,所以会报错 [[email protected] ~]# find / -name mysql.sock/var/lib/mysql/mysql.sock 1.直接指定mysql通道 [[email protected] ~]# mysql --socket=/var/lib/my

【转】WinDbg调试器:启动程序时自动连接调试器方法

当我们调试服务进程或子进程时,无法直接用调试加载进程的方式启动,此时需要在启动程序时自动连接调试器方法: 第一步:注册表展开到HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options路径下: 第二步:在Image File Execution Options上鼠标右键,新建"项",项名为你要调试的程序,比如 test.exe: 第三步:在项名上,右键,新建字符

问题:oracle LISTAGG 连接字符串;结果:Oracle 连接字符串的方法

Oracle 连接字符串的方法 方法一:wmsys.wm_concat(column) 介绍:其函数在Oracle 10g推出,在10g版本中,返回字符串类型,在11g版本中返回clob类型.括号里面的参数是列,而且可以是多个列的集合,也就是说在括号里面可以自由地用‘||’合并字符串.如下面的例子: Select u_id, wmsys.wm_concat(goods || '(' || num || '斤)' ) goods_sum   from shopping   group by u_i

asp.net 连接access数据库方法

在 Web.Config 中配置 Access 数据库驱动和数据库文件名称. 请看代码 <appSettings> <add key="DBDriver" value="Provider=Microsoft.Jet.OLEDB.4.0; Data Source ="/> <add key="DBName" value="Company.mdb"/> </appSettings>