DBExpress组件连接远程Mysql数据库
6 Delphi6的新DBExpress专门用来处理MySQL、DB2、Interbase、Oracle等数据库。使用时,注意libmysql.dll
复制到当前目录或系统目录(98:system,NT:system32),并确保您的端口3306连接到远程服务器。
源程序:
接口
使用
窗口、消息、系统、变量、类、图形、控件、表单,
对话框,DBXpress,DB,SqlExpr,StdCtrls,ComCtrls,FMTBcd,网格,
DBGrids、Provider、DBClient、DBLocal、DBLocalS、DBTables
类型
TForm1 =类(TForm)
SQLConnection:tsql connection;
status bar 1:TStatusBar;
label 1:t label;
data source 1:tdata source;
dbgrid 1:TDBGrid;
group box 1:TGroupBox;
label 2:t label;
密码:TEdit
用户名:TEdit
主机名:TEdit
label 3:t label;
label 4:t label;
button 1:t button;
group box 2:TGroupBox;
label 5:TLabel;
ESQL:TEdit;
label 6:TLabel;
数据库:TEdit
button go:TButton;
SQLClientDataSet:TSQLClientDataSet;
过程按钮1Click(发送方:to object);
过程按钮GoClick(发送方:to object);
过程表单关闭(发送方:TObjectvar Action:TCloseAction);
私人的
{私人声明}
公众的
{公开声明}
结束;
定义变量
form 1:t form 1;
履行
{$R *。dfm}
程序TForm1。Button1Click(发件人:to object);
开始
用SQLConnection做
开始
关闭;
参数。值[' HostName ']:=主机名。文本;
参数。值['用户名']:=用户名。文本;
参数。值[' Password ']:=密码。文本;
参数。值[' Database ']:=数据库。文本;
尝试
连通:=真;
Statusbar1。面板[0]。Text:= '连接正常';
ButtonGo。enabled:= True;
除...之外
MessageDlg('连接错误',mtError,[mbyes],0);
结束;
结束;
结束;
程序TForm1。ButtonGoClick(发送方:to object);
开始
用SQLClientDataSet做
开始
关闭;
命令文本:=ESQL。文本;
开放;
结束;
结束;
程序TForm1。FormClose(发件人:TObjectvar Action:TCloseAction);
开始
SQLConnection。关闭;
结束;
结束。
0条评论