使用 MIDAS 访问远程 Access 数据库 Allen Tao( http://blog.csdn.net/allentao/ ) 2005-5-3 本文源码下载 访问远程数据库常用的办法是使用大型数据库自带的客户端工具，如 SQL Server 和 Oracle 等都带有这样的工具。带对于 Access 这样的小型数据库，这种
使用 MIDAS 访问远程 Access 数据库
Allen Tao( http://blog.csdn.net/allentao/ )
2005-5-3
本文源码下载
访问远程数据库常用的办法是使用大型数据库自带的客户端工具，如 SQL Server 和 Oracle 等都带有这样的工具。带对于 Access 这样的小型数据库，这种方法就无法使用了，因为 Access 不提供这样的客户端工具。但我们可以通过 MIDAS 实现访问远程 Access 数据库。
MIDAS 是 Delphi 提出的三层架构的解决方案。我提供的用 MIDAS 访问远程 Access 数据库方法的基本思路是在服务器端建立供远程访问的数据模块，而在客户端通过 MIDAS 组件与其建立连接，并在客户端发送 SQL 语句给服务器，服务器执行后返回数据集给客户端。
具体做法为：
服务器端
服务器使用 ADO 控件访问 Access 数据库，具体是 ADOConnection 控件建立连接， ADOQuery 执行相关操作。使用 Data Access 的 ClientDataSet 控件向客户端返回数据集。并将以上控件放在 Remote Data Module 的容器中，供由客户端进行连接。
有如下步骤：
1. 建立 Application 。其 Form 取名为 FormServer ， Project 名为 PrjServer ；
2. File à New à Other… ，在弹出的 New Items 对话框中选择 Multitier 页，在该页中选择 Remote Data Module ，确定；
3. 在弹出的 Remote Data Module Wizard 对话框中，在 coclass 一栏中填入 AccessServer ， Instancing 与 Threading Model 保持默认，即表示不同线程之间互相独立，确定后即生成一个 RemoteDataModule 的派生类 AccessServer （在 View à Type Library 中可以查看该类的详细信息）；
4. 在程序所在的文件夹中新建一个名为 data 的文件夹，在其下放入一个名为 my.mdb 的 Access 数据库文件，其中有一个名为 person 的表，该表中只有两个字段，分别为 name 和 age ，都是文本类型；
5. 远程数据模块 AccessServer 上放置各个控件，最终效果如下图所示：
各控件的相关属性与作用如下表所示：
控件类型
所属页面
属性
值
作用
ADOConnection
name
ADOConnection1
连接 Access 文件
ConnectionString
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=./data/my.mdb;Persist Security Info=False
ADOQuery
name
ADOQuery1
执行相关查询操作
Connection
ADOConnection1
ClientDataSet
Data Access
name
DataSetProvider1
向客户端提供数据接口
DataSet
ADOQuery1
Options. poAllowCommandText
true
6. 编译并运行该服务器程序。运行该程序即注册了一个 MIDAS 的服务器，也只有在服务器程序运行的条件下，才能进行下一步的客户端的程序开发。
客户端
以 DCOM 方式与服务器端进行连接，
1. 建立 Application 。其 Form 取名为 FormClient ， Project 名为 PrjClient ；
2. 在 Form 上放置各个控件，最终效果如下图所示：
各控件的相关属性与作用如下表所示：
控件类型
所属页面
属性
值
作用
Edit
Stardard
name
txtQuery
接收查询语句
Text
select * from person
Button
Stardard
name
btnQuery
DCOMConnection
DataSnap
name
DCOMConnection1
通过 DCOM 方式连接服务器
ServerName
PrjServer.AccessServer
ClientDataSet
Data Access
name
ClientDataSet1
向远端发出 SQL 语句，并取得数据集
RemoteServer
DCOMConnection1
ProviderName
DataSetProvider1
DataSource
Data Access
name
DataSource1
作为数据呈现控件的数据源
DataSet
ClientDataSet1
DBGrid
Data Controls
name
DBGrid1
显示从远端取回的数据集
DataSource
DataSource1
说明：
l DCOMConnection1 的 ServerName 属性是由列表中选取的，该列表是所有注册的 MIDAS 服务器列表
l ClientDataSet1 的 ProviderName 属性指定的是服务器上的一个控件
3. 在 Form 上双击按钮 btnQuery ，在其 Click 处理函数下加入如下一段代码：
self.ClientDataSet1.Close;
self.ClientDataSet1.CommandText:=self.txtQuery.Text;
self.ClientDataSet1.Open;
说明：
如果给出的是无返回的 SQL 语句，最后一句由 Open 改为 Execute 。
运行后，效果如下图所示：
改变客户端的连接方式
在上面的例子中是用 DCOM 方式连接服务器，这一般只能在局域网内使用。如果要在广域网内使用，可以改用 Socket 方式连接服务器。为此需做如下改动：
1. 在服务器端运行 Delphi 自带的 scktsrvr.exe 程序，该程序在 Borland/Delphi7/Bin/ 文件夹下
2. 在客户端上用 SocketConnection 控件替换 DCOMConnection 控件，有关属性的改动如下表所示：
控件类型
所属页面
属性
值
作用
SocketConnection
DataSnap
name
SocketConnection1
通过 Socket 方式连接服务器
Address
127.0.0.1 （本机）
ServerName
PrjServer.AccessServer
ClientDataSet
Data Access
RemoteServer
SocketConnection1
向远端发出 SQL 语句，并取得数据集
注意：
SocketConnection 的默认端口是 211 ，这也是 scktsrvr 的默认端口。为此要在服务器端的防火墙上开放该端口
查看更多关于使用MIDAS访问远程Access数据库的详细内容...