| 三、应用举例 编写如下事件过程： private sub cmdadd_click() ’ 添 加 记 录 子 过 程 on error goto errhandler with rst .addnew for i = 0 to .fields.count - 1 ’ 遍 历 记 录 集 中 的 每 个 字 段 ’ 在 输 入 框 中 输 入 各 字 段 的 数 据 .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 |
正在阅读：VB中远程数据库的访问(3) 应用举例VB中远程数据库的访问(3) 应用举例
2004-02-14 09:34
出处：eNet学院
责任编辑：pjl
键盘也能翻页，试试“← →”键
