使用Delphi6的DBExpress組件連接遠程的Mysql數據庫

Delphi6新增的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;