DAO通過(guò)miscrosoft jet數(shù)據(jù)庫(kù)訪問(wèn)遠(yuǎn)程數(shù)據(jù)庫(kù)的方法

　　數(shù)據(jù)連接。在VB中，用microsoft jet數(shù)據(jù)庫(kù)引擎和數(shù)據(jù)訪問(wèn)對(duì)象DAO(data access object)可以創(chuàng)建功能強(qiáng)大的客戶(hù)/服務(wù)器應(yīng)用程序。對(duì)遠(yuǎn)程數(shù)據(jù)庫(kù)的訪問(wèn)是開(kāi)發(fā)這類(lèi)應(yīng)用程序的關(guān)鍵環(huán)節(jié)，本文將介紹在VB中用DAO通過(guò)miscrosoft jet數(shù)據(jù)庫(kù)引擎訪問(wèn)遠(yuǎn)程數(shù)據(jù)庫(kù)的方法。

　　用DAO訪問(wèn)遠(yuǎn)程數(shù)據(jù)庫(kù)大體上可以通過(guò)三步來(lái)實(shí)現(xiàn)，即數(shù)據(jù)連接、數(shù)據(jù)處理和斷開(kāi)連接。下面主要介紹數(shù)據(jù)連接和數(shù)據(jù)處理的具體操作。

　　數(shù)據(jù)連接

　　DAO一般通過(guò)鏈接遠(yuǎn)程表的方式來(lái)進(jìn)行數(shù)據(jù)連接。這樣，數(shù)據(jù)雖然駐留在遠(yuǎn)程數(shù)據(jù)源上，但在本地的microsoftjet數(shù)據(jù)庫(kù)中可以存儲(chǔ)與遠(yuǎn)程數(shù)據(jù)的永久性連接，同時(shí)緩存鏈接的表結(jié)構(gòu)信息，從而在下一次訪問(wèn)該表時(shí)，不用再次從服務(wù)器中檢索這些結(jié)構(gòu)信息，加快了連接速度。一旦鏈接了一個(gè)表，該鏈接便會(huì)保留在各會(huì)話(huà)期間，直到連接斷開(kāi)。鏈接遠(yuǎn)程表的具體操作是：

　　用opendatabase方法打開(kāi)將要包含該鏈接的本地microsoft jet數(shù)據(jù)庫(kù)

　　用createtabledef方法在該數(shù)據(jù)庫(kù)中創(chuàng)建一個(gè)新的tabledef對(duì)象

　　將tabledef對(duì)象的connect屬性設(shè)置為一個(gè)合法的連接字符串，標(biāo)識(shí)要訪問(wèn)的遠(yuǎn)程數(shù)據(jù)庫(kù)類(lèi)型、設(shè)為首頁(yè)數(shù)據(jù)文件的路徑以及用戶(hù)名和遠(yuǎn)程數(shù)據(jù)源密碼等。

　　將tabledef對(duì)象的sourcetablename屬性設(shè)置為遠(yuǎn)程數(shù)據(jù)庫(kù)中要訪問(wèn)的表的名稱(chēng)。

　　添加tabledef對(duì)象到tabledefs集合中。

　　實(shí)現(xiàn)鏈接遠(yuǎn)程表操作的過(guò)程如下：

　　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) ’ 鏈 接 遠(yuǎn) 程 表

　　linktdf.connect = ";database=" + strcn

　　linktdf.sourcetablename = strtdf

　　dbs.tabledefs.append linktdf

　　end sub

　　上述過(guò)程用來(lái)實(shí)現(xiàn)遠(yuǎn)程表的連接，它有5個(gè)參數(shù)，其中strrodb是要訪問(wèn)的遠(yuǎn)程數(shù)據(jù)庫(kù)名(包括路徑);strtdf是該數(shù)據(jù)庫(kù)中的表名;strdb是要鏈接的本地?cái)?shù)據(jù)庫(kù)(包括路徑);linktdfname是本地?cái)?shù)據(jù)庫(kù)的一個(gè)新表名，用來(lái)建立遠(yuǎn)程表的鏈接;strcn是指定連接信息的字符串。需要特別注意的是，除了在訪問(wèn)遠(yuǎn)程microsoft jet數(shù)據(jù)庫(kù)時(shí)，連接字符串要以分號(hào)(;)開(kāi)頭外，指定連接信息的字符串都必須以所訪問(wèn)的遠(yuǎn)程數(shù)據(jù)庫(kù)類(lèi)型開(kāi)頭。DAO可以訪問(wèn)的遠(yuǎn)程數(shù)據(jù)源有以下三類(lèi)：

　　.microsoft jet數(shù)據(jù)源，如：access數(shù)據(jù)。

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

　　.odbc數(shù)據(jù)源，如：sqlserver數(shù)據(jù)、oracle數(shù)據(jù)。

　　例如：設(shè)網(wǎng)絡(luò)服務(wù)器名為server，共享目錄為c:\sales的foxpro3.0數(shù)據(jù)庫(kù)，連接字符串應(yīng)為

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

　　此外，DAO通過(guò)microsoft jet數(shù)據(jù)庫(kù)引擎訪問(wèn)遠(yuǎn)程數(shù)據(jù)時(shí)，還可以用opendatabase方法直接打開(kāi)遠(yuǎn)程表。在本地?cái)?shù)據(jù)庫(kù)中并未存儲(chǔ)與遠(yuǎn)程數(shù)據(jù)源建立連接所需要的信息。如果使用鏈接方式訪問(wèn)數(shù)據(jù)，則不必在每次會(huì)話(huà)開(kāi)始時(shí)提供連接信息，從而可以提高效率。