在vb6数据库程序开发中使用ado和sql

《在vb6数据库程序开发中使用ado和sql》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、在VB6.0数据库程序开发中使用ADO和SQL摘要：本文用实例说明了通过ADO处理数据库表中数据的实现方法,并介绍了利用SQL语句实现对数据作数学统计的方法．关键词：ADO　SQL　数据库1．引言    在VB的应用程序开发中，访问数据库的方法可归纳为两种。一种是通过DAO或ADO的数据源对表中的数据进行直接操作，另一种是通过标准的SQL语句结合Connection对象对数据库中的数据进行操作，对表中的数据进行检索和统计。DAO是VisualBasic5.0使用的数据访问技术,它在用于访问MDB文件格式的数据库时有较高的效率，

2、但访问如Oracle或SQLServer这样的非MDB文件格式的数据库时,因它基于Access/Jet数据库引擎，访问速度会大大降低。所以VisualBasic6.0推出了ADO技术。ADO中文含意是ActiveX数据对象(ActiveXDataObject),它是一种面向对象的接口。ADO访问数据库是通过访问OLEDB使用程序和OLE　DB供给程序来进行的，它在封装OLEDB的程序中使用了大量的COM接口，是一种高层的访问技术。它在继承OLEDB的同时，大大简化了OLEDB的操作。此外，ADO技术可以以ActiveX控件的形

3、式出现，被广泛应用于MicrosoftActiveX页、VisualC++和VisualBasic的编程。SQL是管理关系数据库系统的标准语言。每一种关系数据库如Access、SQLServer、Oracle等都有它自己特有的SQL语言，但它们都支持像select、insert、update、delete、create、drop等标准语句来完成几乎所有的对数据库的操作．本文就ADO和SQL的用法做一些探讨。    ２．开发原型我们为计算机产品经销商开发一个进销存的程序。用MSAccess数据库，创建的数据库名叫ware.mdb

4、.在这个数据库中，建立表１，表２，表３，表４。表1     商品明细表：     wareDetail商品编号     商品名称     单价     厂商     库存wareID(ch10)     wareName(ch30)     wPrice(Money)     manifest(ch40)     numInLib(int)表2     流水账wAccount商品编号     进货数     出货数     日期wareID(ch10)     wQuantity(int)     wSold(int)    

5、 wDate(date)表３　库存表wLib总库存数     总库存金额TotalNum(int)     TotalMoney(Money)表４　临时表wInOut进货数     出货数Quantity,     Sold３．ADO的使用方法．ADO2.0存在于VisualBasic6.0的两个独立的库中第一个称为ADODB，在References对话框中的名字是MicrosoftActiveXDataObjects2.0Library在这个库中包含了所有的ADO对象。对于那些并不需要太多加强的ADO资源工程,应该使用ADO

6、R库。在References对话框中这个库称为MicrosoftActiveXDataObjectsRecordset2.1Library这个库只包含对Recordsets的支持。VisualBASIC6.0通过ADO控件和Recordset对象两种方法来使用ADO．下面介绍一下Recordset对象的使用方法．在visualbasic中加入如下代码：    dimmyConnectstrasstrng    dimmyRecordsetasNewADODB.recordsetmyConnectstr="PROVIDER=Mi

7、crosoft.Jet.OLEDB.4.0;DataSource="&App.Path&"/ware.mdb;PersistSecurityInfo=False"myRecordset.CoursorLocation=AduseClientmyRecordset.Open“select*fromwDetail”,myConnectstr,adOpenKeyset,adLockPessimistic这样就可以对商品明细表追加纪录：myRecordset.AddNewmyRecordset.Fields("wareID")="00

8、0001"myRecordset.Fields("wareName")="Switch3500"myRecordset.Fields("wPrice")=4350myRecordset.Fields("wManufect")="Cisco"myRecordset.Update