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;

end.

(T113)

上一篇： 在Delphi数据库应用程序中常见错误
下一篇： 用Delphi程序维护Paradox 数据表的索引

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有