VB中遠程數據庫的訪問（1）－數據連接

2019-11-18 17:48:13

字體：大中小

來源：轉載

供稿：網友

在VB中，用microsoftjet數據庫引擎和數據訪問對象DAO（data accessobject）可以創建功能強大的客戶/服務器應用程序。對遠程數據庫的訪問是開發這類應用程序的關鍵環節，本文將介紹在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=//server/c$/sales/region1"

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

上一篇：VB中遠程數據庫的訪問（2）－數據處理

下一篇：菜鳥的數據庫入門