delphi连接mysql数据库_Delphi6的DBExpress连接Mysql数据库

新增的DBExpress专门用来对付MySQL,DB2，Interbase,Oracle等数据库，使用时注意将libmysql.dll

拷贝到当前目录或系统目录(98:system,NT:system32)下，并保证您的3306端口与远程服务器是相通的。

源程序：

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, DBXpress, DB, SqlExpr, StdCtrls, ComCtrls, FMTBcd, Grids,

DBGrids, Provider, DBClient, DBLocal, DBLocalS, DBTables;

type

TForm1 = class(TForm)

SQLConnection: TSQLConnection;

StatusBar1: TStatusBar;

Label1: TLabel;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

GrouPBox1: TGroupBox;

Label2: TLabel;

Password: TEdit;

User_Name: TEdit;

HostName: TEdit;

Label3: TLabel;

Label4: TLabel;

Button1: TButton;

GroupBox2: TGroupBox;

Label5: TLabel;

ESQL: TEdit;

Label6: TLabel;

Database: TEdit;

ButtonGo: TButton;

SQLClientDataSet: TSQLClientDataSet;

procedure Button1Click(Sender: TObject);

procedure ButtonGoClick(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

with SQLConnection do

begin

Close;

Params.Values['HostName']:=HostName.Text;

Params.Values['UserName']:=User_Name.Text;

Params.Values['Password']:=Password.Text;

Params.Values['Database']:=Database.Text;

try

Connected:=True;

Statusbar1.Panels[0].Text:='Connect OK';

ButtonGo.Enabled:=True;

except

MessageDlg('Connect Error',mtError,[mbyes],0);

end;

end;

end;

procedure TForm1.ButtonGoClick(Sender: TObject);

begin

with SQLClientDataSet do

begin

Close;

CommandText:=ESQL.Text;

Open;

end;

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

SQLConnection.Close;

end;

end.

Delphi6的DBExpress连接Mysql数据库.doc

下载Word文档到电脑，方便收藏和打印[全文共1109字]

编辑推荐：

下载Word文档