使用DELPHI6的DBEXPRESS组件连接远程的MYSQL数据库-会员卡,广州印刷,深圳印刷,印刷公司,名片,彩页,名片设计,设计教程,名片制作,彩色名片,名片模板,贵宾卡,pvc卡,设计欣赏,深圳名片,广州名片,business card design

首页	名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash

» 彩色名片
» PVC卡
» 彩色磁性卡
» 彩页/画册
» 个性印务
» 彩色不干胶
» 明信片
   » 明信片
   » 彩色书签
   » 门挂
» 其他产品与服务
   » 创业锦囊
   » 办公用品
   » 信封、信纸
   » 便签纸、斜面纸砖
   » 无碳复印纸
   » 海报
   » 大篇幅印刷
   » KT板
   » 海报
   » 横幅

使用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.

返回类别: 教程
上一教程: 数据库相关问题
下一教程: 游标操作时进行UPDATE应注重的一个问题

您可以阅读与"使用DELPHI6的DBEXPRESS组件连接远程的MYSQL数据库"相关的教程:
· 远程连接ACCESS数据库的方式
· ASP使用MYSQL数据库全攻略
· 如何使用ERWIN进行基于MYSQL的数据库设计
· 使用链接服务器执行远程数据库上的存储过程
· 样设置为使用OLEDB连接我的ACCESS数据库


	快精灵印艺坊版权所有	首页会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店网站地图关于我们友情链接