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

《在vb6.0数据库程序开发中使用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的程序中使用了大量的接口，是一种高层的访问技术。它在继承OLEDB的同时，大大简化了OLEDB的操作。此外，ADO技术可以以Active

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

4、b.在这个数据库中，建立表１，表２，表３，表４。表1商品明细表：e(ch30)anifest(ch40)numInLib(int)表2流水账(int)TotalMoney(Money)表４　临时表myConnectstrasstrngdimmyRecordsetasNeyConnectstr="PROVIDER=Microsoft.Jet.OLEDB.4.0;DataSource="App.Path"db;PersistSecurityInfo=False"myRecordset.CoursorLocation=

5、AduseClientmyRecordset.Open“select*fromyConnectstr,adOpenKeyset,adLockPessimistic这样就可以对商品明细表追加纪录：myRecordset.AddNeyRecordset.Fields("yRecordset.Fields("e")="SyRecordset.Fields("yRecordset.Fields("yRecordset.Update获取表中的纪录数：recordt=myRecordset.Recordcount移动纪录指针m

6、yRecordset.MoveFirst‘移动到表的第一条纪录myRecordset.MoveLast‘移动到表的最后一条纪录myRecordset.MovePrevious‘移动到表的上一条纪录myRecordset.MoveNext‘移动到表的下一条纪录删除当前纪录myRecordset.Delete最后关闭纪录集，释放纪录集变量myRecordset.CloseSetmyRecordset=Nothing４．SQL的使用上面所用的方法，只适合于对单个表的简单操作。如果是对表的数据作复杂查询，或数据统计，用上述

7、方法就非常不方便。一般情况下我们用SQL语言结合Connection对象实现SQL语句中最常用的是Select语句。该语句用来从数据库表中检索数据或者完成其他一些功能。为了使用这条语句你必须知道你要检索的字段名称，或者直接用星号来检索所有字段。下面是Select语句的基本语法：SELECT[ALL

8、DISTINCT][TOPxx[PERCENT]]select_listFROMtable_name[eFROMe列值为“cisco6000”的行。你可用下面的代码实现：SELECT*FROMe=”cisco6000”O

9、RDERBYmyConnectstrasstrngdimmyCntasNeyConnectstr="PROVIDER=Microsoft.Jet.OLEDB.4.0;DataSource="App.Path"db;PersistSecurityInfo=False"myCnt.OpenmyConnectstr若要产生某种商品的总进货数以及总出货数可用以下代