在VB中，用microsoftjet數據庫引擎和數據訪問對象DAO（dataaccessobject）可以創建功能強大的客戶/服務器應用程序。對遠程數據庫的訪問是開發這類應用程序的關鍵環節，本文將介紹在VB中用DAO通過miscrosoftjet數據庫引擎訪問遠程數據庫的方法。
用DAO訪問遠程數據庫大體上可以通過三步來實現，即數據連接、數據處理和斷開連接。下面主要介紹數據連接和數據處理的具體操作。
一、數據連接
DAO一般通過鏈接遠程表的方式來進行數據連接。這樣，數據雖然駐留在遠程數據源上，但在本地的microsoftjet數據庫中可以存儲與遠程數據的永久性連接，同時緩存鏈接的表結構信息，從而在下一次訪問該表時，不用再次從服務器中檢索這些結構信息，加快了連接速度。一旦鏈接了一個表，該鏈接便會保留在各會話期間，直到連接斷開。鏈接遠程表的具體操作是：
用opendatabase方法打開將要包含該鏈接的本地microsoftjet數據庫
用createtabledef方法在該數據庫中創建一個新的tabledef對象
將tabledef對象的connect屬性設置為一個合法的連接字符串，標識要訪問的遠程數據庫類型、數據文件的路徑以及用戶名和遠程數據源密碼等。
將tabledef對象的sourcetablename屬性設置為遠程數據庫中要訪問的表的名稱。
添加tabledef對象到tabledefs集合中。
實現鏈接遠程表操作的過程如下：
publicsublinktable(strdbasstring,strrodbasstring,strcnasstring,strtdfasstring,_linktdfnameasstring)
dimlinktdfasnewtabledef
setdbs=opendatabase(strdb)
linktdf.name=linktdfname
100
temptable=ucase(linktdf.name)
fori=0todbs.tabledefs.count-1
ifucase(dbs.tabledefs(i).name)=temptablethen
ifmsgbox(linktdfname "已存在，是否刪除？",_
vbquestion vbyesno)=vbyesthen
dbs.tabledefs.deletelinktdf.name
exitfor
else:msgbox"重新輸入新表名"
linktdfname=inputbox("新表名")
goto100
endif
endif
nexti
setlinktdf=dbs.createtabledef(linktdfname)'鏈接遠程表
linktdf.connect=";database=" strcn
linktdf.sourcetablename=strtdf
dbs.tabledefs.appendlinktdf
endsub
上述過程用來實現遠程表的連接，它有5個參數，其中strrodb是要訪問的遠程數據庫名（包括路徑）；strtdf是該數據庫中的表名；strdb是要鏈接的本地數據庫（包括路徑）；linktdfname是本地數據庫的一個新表名，用來建立遠程表的鏈接；strcn是指定連接信息的字符串。需要特別注意的是，除了在訪問遠程microsoftjet數據庫時，連接字符串要以分號（；）開頭外，指定連接信息的字符串都必須以所訪問的遠程數據庫類型開頭。DAO可以訪問的遠程數據源有以下三類：
.microsoftjet數據源，如：access數據。
.iisam（可安裝的索引化順序訪問方法）格式數據源，如：foxpro、paradox、dbase數據。
.odbc數據源，如：sqlserver數據、oracle數據。
例如：設網絡服務器名為server，共享目錄為c:sales的foxpro3.0數據庫，連接字符串應為
strcn="foxpro3.0;database=serverc$sales
egion1"
此外，DAO通過microsoftjet數據庫引擎訪問遠程數據時，還可以用opendatabase方法直接打開遠程表。在本地數據庫中並未存儲與遠程數據源建立連接所需要的信息。如果使用鏈接方式訪問數據，則不必在每次會話開始時提供連接信息，從而可以提高效率。->
