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上放置各個控件，最終效果如下圖所示：

各控件的相關屬性與作用如下表所示：

6.         編譯并運行該服務器程序。運行該程序即注冊了一個MIDAS的服務器，也只有在服務器程序運行的條件下，才能進行下一步的客戶端的程序開發。

以DCOM方式與服務器端進行連接，

1.         建立Application。其Form取名為FormClient，Project名為PrjClient；

2.         在Form上放置各個控件，最終效果如下圖所示：

各控件的相關屬性與作用如下表所示：

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的默認端口是211，這也是scktsrvr的默認端口。為此要在服務器端的防火墻上開放該端口