在VB中利用遠(yuǎn)程數(shù)據(jù)庫(kù)的訪問之應(yīng)用舉例

　　應(yīng)用舉例

　　以上介紹了用dao訪問遠(yuǎn)程數(shù)據(jù)庫(kù)的具體操作，下面通過一個(gè)例子說明鏈接遠(yuǎn)程表和建立記錄集對(duì)象的方法。

　　首先建立一個(gè)新工程，在窗體上畫5個(gè)命令按鈕，1個(gè)數(shù)據(jù)控件和1個(gè)數(shù)據(jù)網(wǎng)格控件(dbgrid)。各對(duì)象的屬性設(shè)置見表1。

　　表1 窗體1對(duì)象屬性設(shè)置

　　對(duì) 象

　　標(biāo) 題(caption)

　　名 稱(name)

　　窗體

　　遠(yuǎn)程數(shù)據(jù)訪問

　　form1

　　命令按鈕1

　　鏈接遠(yuǎn)程表

　　cmd 鏈接

　　命令按鈕2

　　添加

　　cmdadd

　　命令按鈕3

　　刪除

　　cmddel

　　命令按鈕4

　　修改

　　cmdmodify

　　命令按鈕5

　　結(jié)束

　　cmdend

　　數(shù)據(jù)控件

　　data1

　　data1

　　數(shù)據(jù)網(wǎng)格

　　dbgrid1

　　其中dbgrid1中的datasource屬性設(shè)為data1，命令按鈕2，3，4的visible屬性設(shè)為false。

　　三、應(yīng)用舉例

　　編寫如下事件過程：

　　private sub cmdadd_click() ’ 添 加 記 錄 子 過 程

　　on error goto errhandler

　　with rst

　　.addnew

　　for i = 0 to .fields.count - 1 ’ 遍 歷 記 錄 集 中 的 每 個(gè) 字 段

　　’ 在 輸 入 框 中 輸 入 各 字 段 的 數(shù) 據(jù)

　　.fields(i).value = inputbox

　　(" 輸 入 記 錄 信 息" & vbcr + " 字 段 名：" + .fields(i).name)

　　next i

　　.update

　　end with

　　data1.refresh

　　dbgrid1.rebind

　　errhandler: ’ 錯(cuò) 誤 處 理

　　select case err

　　case 3022, 3421

　　msgbox (error + vbcr + " 輸 入 無(wú) 效")

　　exit sub

　　case else

　　response = 0

　　exit sub

　　end select

　　end sub

　　private sub cmddel_click() ’ 刪 除 記 錄 過 程

　　on error goto errhandler

　　begintrans ’ 事 務(wù) 處 理

　　with data1.recordset

　　if .bof and .eof then exit sub

　　’ 如 果 沒 有 記 錄， 退 出 過 程

　　.delete ’ 刪 除

　　if .bof and .eof then

　　’ 如 果 沒 有 記 錄， 退 出 過 程

　　exit sub

　　elseif .eof then .movelast

　　’ 如 果 刪 除 的 是 最 后 一 條 記 錄， 光 標(biāo) 移 至 最 后 一 記 錄

　　else: .movenext

　　’ 移 至 下 一 條 記 錄

　　end if

　　end with

　　if msgbox(" 確 實(shí) 要 刪 除 這 一 記 錄 ?",

　　vbquestion + vbyesno) = vbyes then

　　committrans ’ 確 認(rèn)

　　data1.refresh

　　else

　　rollback ’ 撤 消 改 動(dòng)

　　data1.refresh

　　end if

　　errhandler: ’ 錯(cuò) 誤 處 理

　　select case err

　　case 3021 ’ 無(wú) 當(dāng) 前 記 錄

　　msgbox (" 無(wú) 當(dāng) 前 記 錄， 請(qǐng) 選 擇 要 刪 除 的 記 錄")

　　exit sub

　　case else

　　msgbox (error)

　　exit sub

　　end select

　　end sub

　　private sub cmdend_click()

　　end ’ 結(jié) 束 應(yīng) 用 程 序

　　end sub

　　private sub cmdmodify_click()

　　dbgrid1.allowupdate = true ’ 允 許 修 改

　　end sub

　　privatev sub cmd 鏈 接_click()

　　form1.hide

　　form2.show

　　end sub