VB6_0中利用ADO对象实现数据库编程

VB6_0中利用ADO对象实现数据库编程 2012-07-19#############2012-07-19######2#0#12-07-19######## VB6.0中利用ADO对象实现数据库编程 1 2 陈虹颐,何 春 ()1 . 绵阳师范学院物理与电子信息工程系 ,四川 绵阳 621000 ;2 . 西华师范大学计算机学院 ,四川 南充 637002 ( ) 摘 要 : ADO Active X Dat a O bject 是建立在 OL E DB 技术上的数据对象 ,使用 ADO 能对各种类 型数据库进行灵活而高效地访问 。本文主要介绍了 ADO 的三个核心对象 Co nnectio n , Reco r d set 和 Co mma nd ,并用这三个对象进行了编程示例和分析 。 关键 词 : ADO ; Co nnectio n ; Reco r dset ; Co mma nd ;数据库 ;编程 中图 分类号 : TP393 行使用 ,它们提供了相关字段的信息 。 引言1 ( ) ADO Active X Dat a O bject 是 Active X 数据对 象 ,是 Micro sof t 公 司开 发数 据 库应 用程 序面 向 对 ( 象的新接口 ,ADO 技术已经成为 A SP Active 服务 ) 器页技术用来访问 We b 数据库应用程序的核心 。 ADO 是 DA O/ RDO 的后继产物 ,它扩展了 DA O 和 RDO 所使用的对象模型 ,具有更加简单 ,更加灵活 的操作性能 。ADO 在 Int e r net 中使用最少的 网络流量 ,并在前端和数据源之间使用最少的层数 , ADO 对象模型结构 2 . 1 Co nne ctio n 对象提供了轻量 ,高性能的数据访问接口 ,可通过 ADO 一个 Co n nectio n 对象代了一个到指定数据 Dat a 控件非编程和利用 ADO 对象编程来访问各种 源的成功连接 。应用程序通过一个连接访问数据源 , 数据库 。 2 ADO 对象模型 也可以直接访问数据源 ,或者通过中间层间接访问数 ADO 的目标是访问 ,编辑和更新数据库资源 , 据源 。如果连接成功 , Connection 将以对象的形式存 ( 而编程模型 ADO 编程模式指访问 ,更新数据资源 在 。Connection 对象中有一个叫做 Errors 的子对象集 所必需的活动序列 , 编程模型概括了 ADO 的全部 合 ,它包含了跟连接有关的所有错误信息 。Connection ) 功能体现了为完成该目标所必需的系列活动的顺 对象在 ADO 模型中的简图如图 2 所示 。 序 。ADO 对 象 模 型 含 有 7 种 对 象 : Co nnectio n 对 象 、Co mma nd 对象 、Reco r dset 对象 、Fiel d 对象 、Pa2 ra met e r 对象 、Er ro r 对象和 Prop e r t y 对象 。 其中 Co n nectio n 、Co mma nd 和 Reco r d set 对象 是其核心对象 。ADO 对象模型结构如图 1 所示 。 各个对象的作用和对象之间的关系可以描述 为 :首先用 Co n nectio n 对象与服务器建立连接 , 然 用Recor dset 对象来操作和查看查询结果。Pa ra m2 后用 Co mma nd 对象执行命令 , 如查询 、更新等 , 再 2012-07-19#############2012-07-19######2#0#12-07-19######## 完成如下操作 : 数据源属性 。 ) ( ) ( ) 1在 打 开 连 接 前 , 需 要 设 置 Co n nectio n St ri ng Reco r dset 对象由 纪 录 行和 字 段 栏 组 成 。 属性 ,也可设置 Co nnectio n Ti meo ut 、Mo de 属性 。 利用记录组可以对一组数据进行多种操作 ,可以浏 ) 2设置 Cur so rLocatio n 属性 ,可以设置或者返 览每一条记录 ,打印它们的部分或者全部内容 ;可以 回指针位置 。 增加 、修改或删除记录 ,查找记录 ; 可以对整个记录 ) 3设置 Def a ult Dat a ba se 属性可以为连接指定 组进行过滤来生成子集 。 一个默认的数据库 。 打开 Reco r d set 对象有 3 种方式 : ? 使用现有 ) 4 设 置 Isolatio nL evel 属 性 可 以 确 定 事 务 打开的 Co nnectio n 对象 ; ? 使用现有打开的 Co m2 ( ) Tra n sactio n在连接的隔离等级 。 ( ma nd 对象 ; ? 直接传递连接字符串 指定 Active2 ) 5使用 Op e n 和 Clo se 对象来建立和关闭一个 ) Co nectio n 和 So urce 属性。 连接 。 3 ADO 编程的步骤 ) 6使用 Execut e 方法在连接上执行命令 。 使用 ADO 进行数据库编程一般分为连接数据 ) 7 使 用 Be gi n Tra n s 、Co mmit Tra n s 和 Roll2 源 、执行命令和使用记录集三个步骤 。 back Tra n s 方法 ,以及 A t t ri b ut e s 属性来管理事务 。 ) 1连接数据源 ) 8通过检查 Er ro r s 对象可以知道数据源返回 连接数据源是使用 ADO 编程的 第 一步 , 其 关 的错误 。 键是创建一个包含关键信息的连接字符串 。这可以 ) 9通过 Op e n Sc he ma 方法可以知道数据库的结 通过打开一个 Co nnectio n 对象来实现 。Co nnectio n 构信息 。 对象是使用连接字符串来为程序创建与数据库进行 2 . 2 Co mma nd 对象 数据通信的线路的 。Co n nectio n 对象不但可以为数 Co mma nd 对象是数据源将要执行的一系列操 据源提供一个网关 ,也可以把它当作通过使用 Er2 作的定义 。使用 Co mma nd 对象来查询数据库并返 ro r 集合来记录错误信息的巩固区域 。 ( ) 回数据 记 录 集 对 象 Reco r dset 形 式 的 查 询 结 果 。 ) 2执行命令 Co mma nd 对象可以指定变量 、参数或者可选项来完 建立了与数据库的连接后 ,就可以执行命令来 成对数据的操作 ,如添加记录 、修改记录和删除记录 实现对数据库的操作 。有 3 大类命令 : SQL 命令语 等 。 句 、表名 、存储过程 。命令可以通过使用一系列参数 使用 Co mma nd 对象的各种属性和方法可以完 来控制工作进程和方式 ,也可以返回包含从数据源 成如下操作 : 中检索到的一系列数据行的 Reco r dset 对象 。 ) 1设 置 Co mma nd Te xt 属 性 可 以 定 义 Co m2 ) 3使用记录集 ma nd 对象的内容 ,例如 SQL 语句 。 Reco r dset 对象是访问数据库中存储数据的一 ) 2使用 Execut e 方法执行命令并返回一个数据 种方式 ,记录集保留了一个指向当前数据行的指针 , ( ) 记录集 Reco r dset 对象 。 这个指针可以通过是用对象中不同的方法来加以控 ) 3设置 Co mma nd Typ e 属性可以优化命令的效 制 。例如 , 可 以 使 用 Mo ve Fi r st 或 Mo veL a st 方 法 率 。 使指针移到第一行或最后一行 。记录集中的每一个 ) 4设置 Co mma nd Ti meo ut 属性 可以 指定 服 务 4 程序示例及分析 单列都是由 Fiel d 对象来描述的 , 如果要访问在特 器等待命令执行的时间 。 定行中的信息 ,可以使用 Fiel d s 集合 。 程序 1 :通过 ADO 连接 SQL Sever 数据库 首) 5设 置 ActiveCo n nectio n 属 性 可 以 将 一 个 先新建工程 ,添加对【Micro sof t Active X Da2 Co mma nd 对 象 与 一 个 打 开 的 Co nnectio n 对 象 关 t a O bject s 2 . 1 L i bra r y】和【Micro sof t ADO Ext 2 . 1 联 。 fo r DDL a nd Sec urit y】对象库的引用 。 2 . 3 Re co rdset 对象 Reco r d set 对象是用于记录的程序结构 。记录 程序如下 : 组可以直接从数据库的表中获取 ,也可以由查询返 () Di m cn n1 a s Co nnectio n 据 ,并通过 De bug 窗口打印出来 。 Di m r st 1 a s Reco r d set 首先新建工程 ,添加对【Micro sof t Active X Da2 Di m st r1 a s st ri ng t a O bject s 2 . 1 L i bra r y】【、Micro sof t ADO Ext 2 . 1 ’ 建立连接对象 ,并使其连接到 SQL Seve r 数据 fo r DDL a nd Sec urit y】和【Micro sof t J et a nd Rep li2 库 catio n O bject s 2 . 1 L i bra r y】对象库的引用 。 Set c nn1 = New ADODB . Co n nectio n 在“我 的 文 档 ”下 , 即 C :/ Doc ume nt s a nd Set2 ti St r1 = " p ro vi der = SQL OL EDB . 1 ; Int e grat ed ng s/ sp ri ng/ M y Doc ume nt s 下 有 一 个 dat a1 . mdb sec urit y = SSP I ; Per si st Securit y Info = f al se ;" &_ 数据库 , 我 们 的 目 的 是 打 开 该 数 据 库 里 面 的 St u2 " U ser ID = sa ; Initial Cat alo g = No r t hwi nd ; de nt Ta ble 表 ,并将该表的每一个字段值打印出来 。 Dat a So urce = S EV ER1" ’S EV ER1 是服务器名 程序如下 : Cn n1 . op e n st r1 () Privat e su b Fo r m_loa d ’创建记录集参数 ,并设置其属性 Di m r st 1 a s Reco r dset Set r st 1 = New ADODB . Reco r dset Di m f l dMy Fiel d a s ADODB . Fiel d r st 1 . Cur so r Typ e = a dOp e n Keyset Di m st r Fo r Ro w a s st ri ng (’使用乐观锁 仅在更新过程中才锁定记录或页 Set r st 1 = New ADODB . Reco r d set )面 ’使用 Reco r dset 对象的 Op e n 方法打开数据库 r st 1 . Lock Typ e = a dLockOp ti mi stic dat a1 中的 St ude nt Ta ble 表 , 此时 St ude nt Ta ble 便 是记录组 r st 1 的数据源 。 打开记录集 ,并打印测试记录 ’r st 1 . Op e n “St ude nt Ta ble ”,“p ro vi der = Mi2 r st 1 . Op e n " Cu sto me r s" , cn n1 cro sof t . J et . OL EDB . 4 . 0 ;”&_ ( la bel1 . cap tio n = " ID :" & CSt r r st 1 . fiel d s " Dat a So urce = C :/ Docume nt s a nd Set ti ngs/ () () ) fiel d s 1. val ue 0. val ue& " 公司名 :" & r st 1 . sp ri ng/ My Doc ume nt s/ dat a1 . mdb ;" ’断开连接 ,清空记录 执行循环的条件是记录指针还没超出 Reco r d2 ’ r st 1 . clo se set 的最后一条记录 cnn1 . clo se Do until r st 1 . EO F set r st 1 = no t hi ng st r Fo r Ro w = " " set cnn1 = no t hi ng Fo r Eac h f l dMy Fiel d In r st 1 . Fiel d s End Sub st r Fo r Ro w = st r Fo r Ro w & f l dMy Fiel d. na me 参 数 设 置 为 程 序 分 析 说 明 如 下 : p ro vi der & " = " & f l dM y Fiel d. Val ue & " ;" SQL OL EDB 提供 程 序 , 这 是 专 门 为 SQL Seve r 数 Ne xt f l dMy Fiel d 据库设计的 ADO 数据提供程序 。与 SQL Seve r 数 ( ( st r Fo r Ro w = L ef t st r Fo r Ro w , L e n st r Fo r2 ) )Ro w ( ) 据库连接时 ,必须指定服务器名 本例是 li h b和数 De bug . Pri nt st r Fo r Ro w & vbCrLf 据库名 。本实例连接到 SQL 自带的 No r t hwi nd 数 ’移动记录指针到下一条记录 据库 。用户 ID 和口令取决于 SQL Sever 使用的身 r st 1 . Mo veNe xt 份验证类型 。如果使用 SQL Seve r 身份验证 ,必须 Loop 指定用户 ID 和 口 令 , 如 果 应 用 程 序 所 用 的 SQL Seve r 应用 Wi ndo w s N T 身份验证 , 就不需要在关 r st 1 . Clo se 系字符串中指定用户 ID 和口令 。Co n nectio n 对象 Set r st 1 = No t hi ng End Sub 调用 Op e n 方法将字符串作为变量 , 这使得应用程 程序分析如下 : 在 DO 循环中加入了 Fo r 序易于根据用户信息构建连接字符串 。 ( ) Societ y , 22 - 26 Ap ril 2001 , A ncho rage , A K , U SA H uff ma n co de s fo r IP t raceback . IN Proceedings. 7t h Dur resi , A . ; Pa r uchuri , V . ; Barolli , L . ; et al . Effi2 Inter natio nal Sympo sium o n Pa rallel A rchitect ure s , [ 5 ] cient and secure a uto no mo us system ba sed t raceback . Algo rit hms a nd Net wo r k s. I - SPA N’ 04 , 10 - 12 IN J o ur nal of Interco nnectio n Net wo r k s vol . 5 , no . 2 : May 2004 , Ho ng Ko ng , China Duwairi , B . ; Cha kra barti , A . ; Ma nima ran , G. . A n [ 13 ] 151 - 64 , J une 2004 Pa r uchuri , V . ; Dur re si , A . ; Kanna n , R. ; et al . A u2 efficient p ro ba bili stic p acket ma r ki ng scheme fo r IP [ 6 ] t henticated auto no mo us system t raceback. IN 18t h In2 t raceback . IN Net wo r king 2004 . Net wo r king Tech2 ter natio nal Co nf erence o n A dva nced Info r matio n Net2 nolo gie s , Services , a nd Pro tocol s ; Perfo r mance of wo r king and Applicatio ns , 29 - 31 Ma rch 2004 , Fuku2 Co mp uter and Co mmunicatio n Net wo r k s ; Mo bile and o ka , J ap a n Wireless Co mmunicatio ns. Thir d Int er natio nal IF IP Chen Kai ; H u Xiao xin ; Hao Ruibing. DDo S Sco uter : [ 7 ] - TC6 Net wo r king Co nf erence. Proceedings , 9 - 14 a simple IP t raceback scheme. IN ht tp :/ / bl rc . edu. cn/ May 2004 , At hens , Greece bl rcweb/ p ublicatio n/ kc1 . p df Chao Go ng , Ka mil Sa rac. IP Traceback wit h Packet [ 14 ] Ma r king a nd Lo gging. IN ht tp :/ / www . ut dalla s. [ 8 ] Belenky , A . ; A nsa ri , N . IP t raceback wit h deter min2 i stic p acket ma r king. IN IE E E Co mmunicatio ns L et2 edu/ , k sarac/ resea rch/ p ublicatio ns/ Chao - SCISS - ter s vol . 7 , no . 4 : 162 - 4 , Ap ril 2003 IPt raceback. p df Kiho ng Pa r k ; Heejo L ee . O n t he eff ectiveness of [ 9 ] [ 15 ] Vadim Kuznet so v , Helena Sa ndst r ? m , A ndrei p ro ba bili stic p acket ma r king fo r IP t raceback under Simkin. A n eval uatio n of diff erent IP t raceback ap2 denial of service at tack . IN Proceedings IE E E IN FO2 p roaches. IN Proceedings of t he 4t h Inter natio nal CO M 2001 . Co nf erence o n Co mp uter Co mmunica2 Co nf erence o n Info r matio n a nd Co mmunicatio ns Se2 tio ns. Twentiet h A nnual J oint Co nf erence of t he ()curit y December 2002 IE E E Co mp uter a nd Co mmunicatio ns Societ y , 22 - 26 [ 16 ] Belenky , A . ; A nsa ri , N . IP t raceback wit h deter2 Ap ril 2001 , A ncho rage , A K , U SA mini stic p acket ma r king. IN IE E E Co mmunicatio ns Drew Dea n , Mat t Fra nklin , A dam St ubblefield. A n [ 10 ] L et ter s vol . 7 , no . 4 : 162 - 4 , Ap ril 2003 algebraic app roach to IP t raceback. IN A CM Tra ns2 [ 17 ] Ma rcel Waldvo gel . GO SSIB vs. IP Traceback Ru2 actio ns o n Info r matio n and System Securit y ( 2 T ISmo r s. IN Proceedings of t he 18t h A nnual Co mp uter ) ( ) S ECMay 2002Vol ume : 5 Issue : 2 () Securit y Applicatio ns Co nf erence December 2002Ba sheer Al - Duwairi , G. Ma nimara n. A [ 11 ] No vel [ 18 ] Ioannidi s , J . ; Bello vin , S. M . Implementing Push2 Packet Ma r king Scheme fo r IP Traceback. IN Pro2 back : Ro ut er - Ba sed Def ense A gainst DDo S At2 ceedings of t he Parallel a nd Di st ributed Systems , tacks. IN Nint h A nnual Sympo si um o n Net wo r k and ( ) Tent h Inter natio nal Co nf erence o n ICPADS’ 04 Di st ributed System Securit y , 6 - 8 Feb. 2002 , Sa n ()J uly 2004 Diego , CA , U SA Choi , K. H . ; Dai , H . K. A ma r king scheme using [ 12 ] () 上接第 55 页中每个字段字段名和值的字符串时 , 个实例给出了它们最典型最基本的应用 。 参考文献 :Fo r Eac h ?Ne xt 循 环 重 复 通 过 记 录 组 中 每 行 的 [ 1 ] 李 华 飚 , 毕 宗 睿 , 李 水 根 . Vi sual Ba sic 数 据 库 编 程 Fiel d 集 合 。在 通过 行中 所 有字 段后 , 代 码应 用 了 [ M ] . 北京 :人民邮电出版社 , 2004 . 7 . L ef t 函数调用两个尾部字符 ,它们是加在 Fo r Each [ 2 ] 徐谡 ,徐立 ,吴明旺等 . Vi sual Ba sic 应用与开发案例教 ?Ne xt 循环中的字段分隔符 。在执行完循环后 ,利 程 [ M ] . 北京 :清华大学出版社 , 2005 . 4 . 用 r st 1 . Clo se 语句断开和数据库的连接 , 并用 Set [ 3 ] 张 德 强 , 李 云 岭 , 易 向 东 等 . Vi sual Ba sic 案 例 开 发 r st 1 = No t hi ng 语句清空记录组里面的数据 。 [ M ] . 北京 :中国水利水电出版社 ,2005 . 1 . [ 4 ] 5 结束语 鲁佩云 . ADO 对象模型和用 VB 实现其应用的两种方 式 [J ] . 计算机工程与设计 ,2005 ,7 . 在 VB 的几种数据库访问方法中 ,ADO 功能最 [ 5 ] 解璞 ,苏群星 , 郭利 . 利用 ADO 技术实现对数据库的 为强 大 , 而 Co nnectio n 、Co mma nd 和 Reco r d set 是 操纵 [J ] . 计算机工程与设计 ,2003 ,3 [ 6 ] ADO 中最重要应用也最灵活的三种对象 。本文重 李寿兵 ,张佑生 . ADO 数据存取技术 [ J ] . 微型电脑应 Your requestcould not be processed becauseof a configurationerror: "Could not connect to LDAPserver." For assistance,contact your network support team. file:///C|/Users/Administrator/Desktop/新建文本文档.txt 涵盖各行业最丰富完备的资料文献,最前瞻权威的行业动态,是专业人士的不二选择。 file:///C|/Users/Administrator/Desktop/新建文本文档.txt2012/8/26 12:19:58