VB中远程数据库的访问(3) 应用举例

• 三、应用举例
  
  　　以上介绍了用dao访问远程数据库的具体操作，下面通过一个例子说明链接远程表和建立记录集对象的方法。
  
  　　首先建立一个新工程，在窗体上画5个命令按钮，1个数据控件和1个数据网格控件（dbgrid）。各对象的属性设置见表1。
  
  表1 窗体1对象属性设置
  
  

  对 象

  标 题（caption）

  名 称（name）

  窗体

  远程数据访问

  form1

  命令按钮1

  链接远程表

  cmd 链接

  命令按钮2

  添加

  cmdadd

  命令按钮3

  删除

  cmddel

  命令按钮4

  修改

  cmdmodify

  命令按钮5

  结束

  cmdend

  数据控件

  data1

  data1

  数据网格

  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 ’ 遍 历 记 录 集 中 的 每 个 字 段
  
  

  ’ 在 输 入 框 中 输 入 各 字 段 的 数 据
  
  .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() ’ 删 除 记 录 过 程
  
• [1] [2] [3] [4] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• VB中远程数据库的访问(3) 应用举例 相关文章：
• ·VB中远程数据库的访问(3) 应用举例
• VB中远程数据库的访问(3) 应用举例 相关软件

上一篇:VB中远程数据库的访问(1) 数据连接

下一篇:vb应用程序访问sql server方法探讨（1）

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐