首頁 考試吧論壇 Exam8視線 考試商城 網(wǎng)絡課程 模擬考試 考友錄 實用文檔 求職招聘 論文下載
2011中考 | 2011高考 | 2012考研 | 考研培訓 | 在職研 | 自學考試 | 成人高考 | 法律碩士 | MBA考試
MPA考試 | 中科院
四六級 | 職稱英語 | 商務英語 | 公共英語 | 托福 | 雅思 | 專四專八 | 口譯筆譯 | 博思 | GRE GMAT
新概念英語 | 成人英語三級 | 申碩英語 | 攻碩英語 | 職稱日語 | 日語學習 | 法語 | 德語 | 韓語
計算機等級考試 | 軟件水平考試 | 職稱計算機 | 微軟認證 | 思科認證 | Oracle認證 | Linux認證
華為認證 | Java認證
公務員 | 報關員 | 銀行從業(yè)資格 | 證券從業(yè)資格 | 期貨從業(yè)資格 | 司法考試 | 法律顧問 | 導游資格
報檢員 | 教師資格 | 社會工作者 | 外銷員 | 國際商務師 | 跟單員 | 單證員 | 物流師 | 價格鑒證師
人力資源 | 管理咨詢師考試 | 秘書資格 | 心理咨詢師考試 | 出版專業(yè)資格 | 廣告師職業(yè)水平
駕駛員 | 網(wǎng)絡編輯
衛(wèi)生資格 | 執(zhí)業(yè)醫(yī)師 | 執(zhí)業(yè)藥師 | 執(zhí)業(yè)護士
會計從業(yè)資格考試會計證) | 經(jīng)濟師 | 會計職稱 | 注冊會計師 | 審計師 | 注冊稅務師
注冊資產(chǎn)評估師 | 高級會計師 | ACCA | 統(tǒng)計師 | 精算師 | 理財規(guī)劃師 | 國際內審師
一級建造師 | 二級建造師 | 造價工程師 | 造價員 | 咨詢工程師 | 監(jiān)理工程師 | 安全工程師
質量工程師 | 物業(yè)管理師 | 招標師 | 結構工程師 | 建筑師 | 房地產(chǎn)估價師 | 土地估價師 | 巖土師
設備監(jiān)理師 | 房地產(chǎn)經(jīng)紀人 | 投資項目管理師 | 土地登記代理人 | 環(huán)境影響評價師 | 環(huán)保工程師
城市規(guī)劃師 | 公路監(jiān)理師 | 公路造價師 | 安全評價師 | 電氣工程師 | 注冊測繪師 | 注冊計量師
繽紛校園 | 實用文檔 | 英語學習 | 作文大全 | 求職招聘 | 論文下載 | 訪談 | 游戲
您現(xiàn)在的位置: 考試吧(Exam8.com) > 計算機等級考試 > 計算機二級 > VB > 復習資料 > 正文

在VB中利用遠程數(shù)據(jù)庫的訪問之應用舉例

  應用舉例

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

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

  表1 窗體1對象屬性設置

  對 象

  標 題(caption)

  名 稱(name)

  窗體

  遠程數(shù)據(jù)訪問

  form1

  命令按鈕1

  鏈接遠程表

  cmd 鏈接

  命令按鈕2

  添加

  cmdadd

  命令按鈕3

  刪除

  cmddel

  命令按鈕4

  修改

  cmdmodify

  命令按鈕5

  結束

  cmdend

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

  data1

  data1

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

  dbgrid1

  其中dbgrid1中的datasource屬性設為data1,命令按鈕2,3,4的visible屬性設為false。

  三、應用舉例

  編寫如下事件過程:

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

  on error goto errhandler

  with rst

  .addnew

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

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

  .fields(i).value = inputbox

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

  next i

  .update

  end with

  data1.refresh

  dbgrid1.rebind

  errhandler: ’ 錯 誤 處 理

  select case err

  case 3022, 3421

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

  exit sub

  case else

  response = 0

  exit sub

  end select

  end sub

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

  on error goto errhandler

  begintrans ’ 事 務 處 理

  with data1.recordset

  if .bof and .eof then exit sub

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

  .delete ’ 刪 除

  if .bof and .eof then

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

  exit sub

  elseif .eof then .movelast

  ’ 如 果 刪 除 的 是 最 后 一 條 記 錄, 光 標 移 至 最 后 一 記 錄

  else: .movenext

  ’ 移 至 下 一 條 記 錄

  end if

  end with

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

  vbquestion + vbyesno) = vbyes then

  committrans ’ 確 認

  data1.refresh

  else

  rollback ’ 撤 消 改 動

  data1.refresh

  end if

  errhandler: ’ 錯 誤 處 理

  select case err

  case 3021 ’ 無 當 前 記 錄

  msgbox (" 無 當 前 記 錄, 請 選 擇 要 刪 除 的 記 錄")

  exit sub

  case else

  msgbox (error)

  exit sub

  end select

  end sub

  private sub cmdend_click()

  end ’ 結 束 應 用 程 序

  end sub

  private sub cmdmodify_click()

  dbgrid1.allowupdate = true ’ 允 許 修 改

  end sub

  privatev sub cmd 鏈 接_click()

  form1.hide

  form2.show

  end sub

1 2 3 下一頁
  相關推薦:全國計算機等級考試將于3月28日至4月1日舉行
       2009年全國計算機等級考試各科目考試大綱
       2009上半年計算機等級考試各地報名時間匯總
文章搜索
版權聲明:如果計算機等級考試網(wǎng)所轉載內容不慎侵犯了您的權益,請與我們聯(lián)系800@exam8.com,我們將會及時處理。如轉載本計算機等級考試網(wǎng)內容,請注明出處。