在vb6.0数据库程序开发中使用ado 和sql的方法介绍

《在vb6.0数据库程序开发中使用ado 和sql的方法介绍》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、在VB6.0数据库程序开发中使用ADO和SQL的方法介绍　　(1.呼和浩特职业学院计算机信息学院；2.内蒙古审计厅计算中心，内蒙古呼和浩特010000) 　　摘要：以实例说明了通过ADO处理数据库表中数据的实现方法，并介绍了利用SQL语句实现对数据作数学统计的方法。 关键词：ADO；SQL；程序；数据库 　　中图分类号：TP311.13文献标识码：A文章编号：1007—6921(XX)20—0079—02 　　在VB的应用程序开发中，访问数据库的方法可归纳为两种。一种是通过DAO或ADO

2、的数据源对表中的数据进行直接操作，另一种是通过标准的SQL语句结合Connection对象对数据库中的数据进行操作，对表中的数据进行检索和统计。DAO是VisualBasic5.0使用的数据访问技术，它在用于访问MDB文件格式的数据库时有较高的效率，但访问如Oracle或SQLServer这样的非MDB文件格式的数据库时，因它基于Access/Jet数据库引擎，访问速度会大大降低。所以VisualBasic6.0推出了ADO技术。ADO中文含意是ActiveX数据对象(ActiveXDataObjec

3、t)，它是一种面向对象的接口。ADO访问数据库是通过访问OLEDB使用程序和OLEDB供给程序来进行的，它在封装OLEDB的程序中使用了大量的COM接口，是一种高层的访问技术。它在继承OLEDB的同时，大大简化了OLEDB的操作。 　　此外，ADO技术可以以ActiveX控件的形式出现，被广泛应用于MicrosoftActiveX页、VisualC++和VisualBasic的编程。SQL是管理关系数据库系统的标准语言。每一种关系数据库如Access、SQLServer、Oracle等都有它自己特

4、有的SQL语言，但它们都支持像select、insert、update、delete、create、drop等标准语句来完成几乎所有的对数据库的操作。本文就ADO和SQL的用法做一些探讨。 1开发原型 　　为计算机产品经销商开发一个进销存的程序。用MSAccess数据库，创建的数据库名叫ware.mdb。在这个数据库中，建立表1、表2、表3、表4。 　　740)this.width=740"border=undefined> 　　740)this.width=740"border=undefin

5、ed> 2ADO的使用方法 　　ADO2.0存在于VisualBasic6.0的两个独立的库中，第一个称为ADODB，在References对话框中的名字是MicrosoftActiveXDataObjects2.0Library。在这个库中包含了所有的ADO对象。对于那些并不需要太多加强的ADO资源工程，应该使用ADO库。在References对话框中这个库称为MicrosoftActiveXDataObjectsRecordset2.1Library。这个库只包含对Recordsets的支持

6、。VisualBASIC6.0通过ADO控件和Recordset对象两种方法来使用ADO。下面介绍一下Recordset对象的使用方法。在visualbasic中加入如下代码： 　　dimmyConnectstrasstrng 　　dimmyRecordsetasNewADODB.recordset 　　myConnectstr=“PROVIDER=Microsoft.Jet.OLEDB.4.0;DataSource=”App.Path“ware.mdb;PersistSecurityInfo=

7、False” 　　myRecordset.CoursorLocation=AduseClient 　　myRecordset.Open“select*fromwDetail”，myConnectstr，adOpenKeyset，adLockPessimistic 这样就可以对商品明细表追加纪录： 　　myRecordset.AddNew'添加一条新记录 　　myRecordset.Fields(“wareID”)=“000001”'对各字段分别赋值 　　myRecordset.Fields

8、(“wareName”)=“Switch3500” 　　myRecordset.Fields(“wPrice”)=4350 　　myRecordset.Fields(“wManufect”)=“Cisco” 　　myRecordset.Update'对当前记录进行更新 获取表中的纪录数： 　　recordcnt=myRecordset.Recordcount 移动纪录指针： 　　myRecordset.MoveFirst'移动到表的第一条纪