使用midas访问远程access数据库

来源：作者：发布时间：2007-12-27

使用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 ADO name ADOConnection1 连接Access文档
                  ConnectionString Provider=Microsoft.Jet.OLEDB.4.0;Data Source=./data/my.mdb;Persist Security Info=False
ADOQuery ADO 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服务器列表
2. 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的默认端口。为此要在服务器端的防火墙上开放该端口