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

·asp列出sql数据库中(PUBS数据库)存储过·Mysql数据库向Oracle转换应注意的问题·如何远程链接Mysql数据库?·如何恢复/修复MS SQL数据库的MDF文件·动态创建MSSQL数据库表存储过程·Perl操作Mysql数据库·如何使用Jsp读取Mysql数据库·SQLserver数据库导入Mysql数据库的体验·一段php代码：备份、恢复sql数据库·Mysql数据库学习心得(5)

Delphi6新增的DBExpress专门用来对付Mysql,DB2，Interbase,Oracle等数据库，使用时注意将libmysql.dll 拷贝到当前目录或系统目录(98:system,NT:system32)下，并保证您的3306端口与远程服务器是相通的。源程序：interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, DBXpress, DB, SqlExpr, StdCtrls, ComCtrls, FMTBcd, Grids,DBGrids, Provider, DBClient, DBLocal, DBLocalS, DBTables;typeTForm1 = 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;varForm1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);beginwith SQLConnection dobeginClose;Params.Values['HostName']:=HostName.Text;Params.Values['UserName']:=User_Name.Text;Params.Values['Password']:=Password.Text;Params.Values['Database']:=Database.Text;tryConnected:=True;Statusbar1.Panels[0].Text:='Connect OK';ButtonGo.Enabled:=True;exceptMessageDlg('Connect Error',mtError,[mbyes],0);end;end;end;procedure TForm1.ButtonGoClick(Sender: TObject);beginwith SQLClientDataSet dobeginClose;CommandText:=ESQL.Text;Open;end;end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);beginSQLConnection.Close;end;end.