使用Delphi6的DBExpress组件连接远程的Mysql数据库-先飞网电脑教程文章

>> 我们从网络和杂志上收集了近100000余篇各类电脑技术、网络技术、软件技术等方面的文章教程,我们的收录原则:不是精华拒不收录!

使用Delphi6的DBExpress组件连接远程的Mysql数据库

［作者：佚名转贴自：网络转载阅读次数：0 更新时间：2006-9-9 17:33:00 录入：刘光勇］

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;

end.

上一篇:Delphi菜单如何做成word2000的可停靠样子下一篇: 用Delphi编制趣味动画鼠标