正在阅读：VB中远程数据库的访问(3) 应用举例VB中远程数据库的访问(3) 应用举例

2004-02-14 09:34 出处：eNet学院作者：许蔓舒责任编辑：pjl

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 private sub dbgrid1_aftercolupdate(byval colindex as integer) ’ 数据修改后触发该事件 on error goto err1 data1.refresh err1: select case err case 0 response = 0 case else exit sub end select end sub private sub dbgrid1_beforecolupdate (byval colindex as integer, oldvalue as variant, cancel as integer) ’ 数据修改前触发该事件 on error goto errhandler: begintrans if msgbox(" 确实要修改这一内容？", vbquestion + vbyesno) = vbyes then committrans else rollback data1.refresh end if errhandler: select case err case 0 response = 0 case else msgbox (error) exit sub end select end sub private sub form_load() ’ 在窗体装入时，网格中的数据不可添加，修改 dbgrid1.allowaddnew = false dbgrid1.allowupdate = false end sub private sub form_resize() on error resume next ’ 当窗体调整时会调整网格 dbgrid1.height = me.scaleheight - data1.height - cmd 删除.height - 30 end sub 在工程中添加一个窗体，在窗体上画6个标签，1个命令按钮（标题为“ 确认”，名称为cmd 确认），3个文本框和1个组合框。在窗体的声明部份输入以下代码： ’ 声明窗体层变量 dim rodbs as database dim strdb as string, strrodb as string, strcn as string, strtdf as string dim linktdfname as string 编写如下事件过程： private sub cmd 确认_click() on error goto errhandler: strdb = text2.text ’ 本地数据库名及路径 linktdfname = text3.text ’ 本地数据库中新建的链接远程表的表名 strcn = strrodb ’ 连接字符串 strtdf = combo1.text ’ 指定远程数据库中要访问的表 ’ 调用linktable 过程 call linktable(strdb, strrodb, strcn, strtdf, linktdfname) ’ 调用rst_display 过程 call rst_display(strdb, linktdfname, form1) form2.hide form1.show form1.caption = " 远程数据：" + strcn + "-" + strtdf ’ 显示“ 添加”，“ 删除”，“ 修改” 控件 form1.cmdadd.visible = true form1.cmddel.visible = true form1.cmdmodify.visible = true errhandler: select case err case 0 response = 0 case else msgbox (error + vbr + " 重新输入") exit sub end select end sub private sub combo1_gotfocus() strrodb = text1.text ’ 指定远程数据库名及路径 set rodbs = opendatabase(strrodb) ’ 打开远程数据库 ’ 删除combo1 中的内容 if combo1.listcount >= 1 then for i = combo1.listcount - 1 to 0 step -1 combo1.removeitem i next i end if ’ 把数据库中的表名加到combo1 中 for i = 0 to rodbs.tabledefs.count - 1 combo1.additem rodbs.tabledefs(i).name next i end sub