數據連接。在VB中，用microsoft jet數據庫引擎和數據訪問對象DAO(data access object)可以創建功能強大的客戶/服務器應用程序。對遠程數據庫的訪問是開發這類應用程序的關鍵環節，本文將介紹在VB中用DAO通過miscrosoft jet數據庫引擎訪問遠程數據庫的方法。

　　用DAO訪問遠程數據庫大體上可以通過三步來實現，即數據連接、數據處理和斷開連接。下面主要介紹數據連接和數據處理的具體操作。

　　數據連接

　　DAO一般通過鏈接遠程表的方式來進行數據連接。這樣，數據雖然駐留在遠程數據源上，但在本地的microsoftjet數據庫中可以存儲與遠程數據的永久性連接，同時緩存鏈接的表結構信息，從而在下一次訪問該表時，不用再次從服務器中檢索這些結構信息，加快了連接速度。一旦鏈接了一個表，該鏈接便會保留在各會話期間，直到連接斷開。鏈接遠程表的具體操作是：

　　用opendatabase方法打開將要包含該鏈接的本地microsoft jet數據庫

　　用createtabledef方法在該數據庫中創建一個新的tabledef對象

　　將tabledef對象的connect屬性設置為一個合法的連接字符串，標識要訪問的遠程數據庫類型、設為首頁數據文件的路徑以及用戶名和遠程數據源密碼等。

　　將tabledef對象的sourcetablename屬性設置為遠程數據庫中要訪問的表的名稱。

　　添加tabledef對象到tabledefs集合中。

　　實現鏈接遠程表操作的過程如下：

　　public sub linktable(strdb as string, strrodb as string, strcn as string, strtdf as string, _linktdfname as string)

　　dim linktdf as new tabledef

　　set dbs = opendatabase(strdb)

　　linktdf.name = linktdfname

　　100

　　temptable = ucase(linktdf.name)

　　for i = 0 to dbs.tabledefs.count - 1

　　if ucase(dbs.tabledefs(i).name) = temptable then

　　if msgbox(linktdfname + " 已 存 在， 是 否 刪 除 ?", _

　　vbquestion + vbyesno) = vbyes then

　　dbs.tabledefs.delete linktdf.name

　　exit for

　　else: msgbox " 重 新 輸 入 新 表 名"

　　linktdfname = inputbox(" 新 表 名")

　　goto 100

　　end if

　　end if

　　next i

　　set linktdf = dbs.createtabledef(linktdfname) ’ 鏈 接 遠 程 表

　　linktdf.connect = ";database=" + strcn

　　linktdf.sourcetablename = strtdf

　　dbs.tabledefs.append linktdf

　　end sub

　　上述過程用來實現遠程表的連接，它有5個參數，其中strrodb是要訪問的遠程數據庫名(包括路徑);strtdf是該數據庫中的表名;strdb是要鏈接的本地數據庫(包括路徑);linktdfname是本地數據庫的一個新表名，用來建立遠程表的鏈接;strcn是指定連接信息的字符串。需要特別注意的是，除了在訪問遠程microsoft jet數據庫時，連接字符串要以分號(;)開頭外，指定連接信息的字符串都必須以所訪問的遠程數據庫類型開頭。DAO可以訪問的遠程數據源有以下三類：

　　.microsoft jet數據源，如：access數據。

　　.iisam(可安裝的索引化順序訪問方法)格式數據源，如：foxpro、paradox、dbase數據。

　　.odbc數據源，如：sqlserver數據、oracle數據。

　　例如：設網絡服務器名為server，共享目錄為c:\sales的foxpro3.0數據庫，連接字符串應為

　　strcn="foxpro3.0;database=\\server\c$\sales\region1"

　　此外，DAO通過microsoft jet數據庫引擎訪問遠程數據時，還可以用opendatabase方法直接打開遠程表。在本地數據庫中并未存儲與遠程數據源建立連接所需要的信息。如果使用鏈接方式訪問數據，則不必在每次會話開始時提供連接信息，從而可以提高效率。