delphi6新增的dbexpress专门用来对付mysql,db2，interbase,oracle等数据库，使用时注意将libmysql.dll 拷贝到当前目录或系统目录(98:system,nt:system32)下，并保证您的3306端口与远程服务器是相通的。 源程序： interface uses windows, messages, sysutils
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.