數(shù)據(jù)連接。在VB中，用microsoft jet數(shù)據(jù)庫引擎和數(shù)據(jù)訪問對象DAO（data access object）可以創(chuàng)建功能強(qiáng)大的客戶/服務(wù)器應(yīng)用程序。對遠(yuǎn)程數(shù)據(jù)庫的訪問是開發(fā)這類應(yīng)用程序的關(guān)鍵環(huán)節(jié)，本文將介紹在VB中用DAO通過miscrosoft jet數(shù)據(jù)庫引擎訪問遠(yuǎn)程數(shù)據(jù)庫的方法。
用DAO訪問遠(yuǎn)程數(shù)據(jù)庫大體上可以通過三步來實現(xiàn)，即數(shù)據(jù)連接、數(shù)據(jù)處理和斷開連接。下面主要介紹數(shù)據(jù)連接和數(shù)據(jù)處理的具體操作。
數(shù)據(jù)連接
DAO一般通過鏈接遠(yuǎn)程表的方式來進(jìn)行數(shù)據(jù)連接。這樣，數(shù)據(jù)雖然駐留在遠(yuǎn)程數(shù)據(jù)源上，但在本地的microsoftjet數(shù)據(jù)庫中可以存儲與遠(yuǎn)程數(shù)據(jù)的永久性連接，同時緩存鏈接的表結(jié)構(gòu)信息，從而在下一次訪問該表時，不用再次從服務(wù)器中檢索這些結(jié)構(gòu)信息，加快了連接速度。一旦鏈接了一個表，該鏈接便會保留在各會話期間，直到連接斷開。鏈接遠(yuǎn)程表的具體操作是：
用opendatabase方法打開將要包含該鏈接的本地microsoft jet數(shù)據(jù)庫
用createtabledef方法在該數(shù)據(jù)庫中創(chuàng)建一個新的tabledef對象
將tabledef對象的connect屬性設(shè)置為一個合法的連接字符串，標(biāo)識要訪問的遠(yuǎn)程數(shù)據(jù)庫類型、設(shè)為首頁數(shù)據(jù)文件的路徑以及用戶名和遠(yuǎn)程數(shù)據(jù)源密碼等。
將tabledef對象的sourcetablename屬性設(shè)置為遠(yuǎn)程數(shù)據(jù)庫中要訪問的表的名稱。
添加tabledef對象到tabledefs集合中。
實現(xiàn)鏈接遠(yuǎn)程表操作的過程如下：
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
上述過程用來實現(xiàn)遠(yuǎn)程表的連接，它有5個參數(shù)，其中strrodb是要訪問的遠(yuǎn)程數(shù)據(jù)庫名（包括路徑）；strtdf是該數(shù)據(jù)庫中的表名；strdb是要鏈接的本地數(shù)據(jù)庫（包括路徑）；linktdfname是本地數(shù)據(jù)庫的一個新表名，用來建立遠(yuǎn)程表的鏈接；strcn是指定連接信息的字符串。需要特別注意的是，除了在訪問遠(yuǎn)程microsoft jet數(shù)據(jù)庫時，連接字符串要以分號（；）開頭外，指定連接信息的字符串都必須以所訪問的遠(yuǎn)程數(shù)據(jù)庫類型開頭。DAO可以訪問的遠(yuǎn)程數(shù)據(jù)源有以下三類：
.microsoft jet數(shù)據(jù)源，如：access數(shù)據(jù)。
.iisam（可安裝的索引化順序訪問方法）格式數(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ù)庫，連接字符串應(yīng)為
strcn="foxpro3.0;database=\\server\c$\sales\region1"
此外，DAO通過microsoft jet數(shù)據(jù)庫引擎訪問遠(yuǎn)程數(shù)據(jù)時，還可以用opendatabase方法直接打開遠(yuǎn)程表。在本地數(shù)據(jù)庫中并未存儲與遠(yuǎn)程數(shù)據(jù)源建立連接所需要的信息。如果使用鏈接方式訪問數(shù)據(jù)，則不必在每次會話開始時提供連接信息，從而可以提高效率。
用DAO訪問遠(yuǎn)程數(shù)據(jù)庫大體上可以通過三步來實現(xiàn)，即數(shù)據(jù)連接、數(shù)據(jù)處理和斷開連接。下面主要介紹數(shù)據(jù)連接和數(shù)據(jù)處理的具體操作。
數(shù)據(jù)連接
DAO一般通過鏈接遠(yuǎn)程表的方式來進(jìn)行數(shù)據(jù)連接。這樣，數(shù)據(jù)雖然駐留在遠(yuǎn)程數(shù)據(jù)源上，但在本地的microsoftjet數(shù)據(jù)庫中可以存儲與遠(yuǎn)程數(shù)據(jù)的永久性連接，同時緩存鏈接的表結(jié)構(gòu)信息，從而在下一次訪問該表時，不用再次從服務(wù)器中檢索這些結(jié)構(gòu)信息，加快了連接速度。一旦鏈接了一個表，該鏈接便會保留在各會話期間，直到連接斷開。鏈接遠(yuǎn)程表的具體操作是：
用opendatabase方法打開將要包含該鏈接的本地microsoft jet數(shù)據(jù)庫
用createtabledef方法在該數(shù)據(jù)庫中創(chuàng)建一個新的tabledef對象
將tabledef對象的connect屬性設(shè)置為一個合法的連接字符串，標(biāo)識要訪問的遠(yuǎn)程數(shù)據(jù)庫類型、設(shè)為首頁數(shù)據(jù)文件的路徑以及用戶名和遠(yuǎn)程數(shù)據(jù)源密碼等。
將tabledef對象的sourcetablename屬性設(shè)置為遠(yuǎn)程數(shù)據(jù)庫中要訪問的表的名稱。
添加tabledef對象到tabledefs集合中。
實現(xiàn)鏈接遠(yuǎn)程表操作的過程如下：
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
上述過程用來實現(xiàn)遠(yuǎn)程表的連接，它有5個參數(shù)，其中strrodb是要訪問的遠(yuǎn)程數(shù)據(jù)庫名（包括路徑）；strtdf是該數(shù)據(jù)庫中的表名；strdb是要鏈接的本地數(shù)據(jù)庫（包括路徑）；linktdfname是本地數(shù)據(jù)庫的一個新表名，用來建立遠(yuǎn)程表的鏈接；strcn是指定連接信息的字符串。需要特別注意的是，除了在訪問遠(yuǎn)程microsoft jet數(shù)據(jù)庫時，連接字符串要以分號（；）開頭外，指定連接信息的字符串都必須以所訪問的遠(yuǎn)程數(shù)據(jù)庫類型開頭。DAO可以訪問的遠(yuǎn)程數(shù)據(jù)源有以下三類：
.microsoft jet數(shù)據(jù)源，如：access數(shù)據(jù)。
.iisam（可安裝的索引化順序訪問方法）格式數(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ù)庫，連接字符串應(yīng)為
strcn="foxpro3.0;database=\\server\c$\sales\region1"
此外，DAO通過microsoft jet數(shù)據(jù)庫引擎訪問遠(yuǎn)程數(shù)據(jù)時，還可以用opendatabase方法直接打開遠(yuǎn)程表。在本地數(shù)據(jù)庫中并未存儲與遠(yuǎn)程數(shù)據(jù)源建立連接所需要的信息。如果使用鏈接方式訪問數(shù)據(jù)，則不必在每次會話開始時提供連接信息，從而可以提高效率。