在VB6.0数据库程序开发中使用ADO,和SQL的方法介绍
时间：2020-12-17 09:48:05 来源：柠檬阅读网 本文已影响 人 
(1.呼和浩特职业学院 计算机信息学院；
2.内蒙古审计厅 计算中心，内蒙古 呼和浩特 010000)
摘 要：以实例说明了通过ADO处理数据库表中数据的实 现方法，并介绍了利用SQL语句实现对数据作数学统计的方法。
关键词：ADO；
SQL；
程序；
数据库
中图分类号：TP311.13 文献标识码：A 文章编号：
1007—6921(2008)20—0079—02
在VB的应用程序开发中，访问数据库的方法可归纳为两种。一种是通过DAO 或ADO的数据源 对表中的数据进行直接操作，另一种是通过标准的SQL语句结合Connection 对象对数据库中 的数据进行操作，对表中的数据进行检索和统计。DAO是Visual Basic 5.0使用的数据访问 技术，它在用于访问MDB文件格式的数据库时有较高的效率，但访问如Oracle或 SQL Server 这样的非MDB文件格式的数据库时，因它基于Access/Jet数据库引擎，访问速度会大大降低 。所以Visual Basic 6.0推出了ADO 技术。ADO中文含意是ActiveX数据对象(ActiveX Data Object)，它是一种面向对象的接口。ADO访问数据库是通过访问OLEDB使用程序和OLE DB供 给程序来进行的，它在封装OLE DB的程序中使用了大量的COM接口，是一种高层的访问技术 。它在继承OLE DB的同时，大大简化了OLE DB的操作。
此外，ADO技术可以以ActiveX控件的形式出现，被广泛应用于Microsoft ActiveX页、Visua l C++ 和Visual Basic的编程。SQL是管理关系数据库系统的标准语言。每一种关系数据库 如Access、 SQL Server、 Oracle 等都有它自己特有的SQL语言，但它们都支持像select、 insert、update、delete、create、drop等标准语句来完成几乎所有的对数据库的操作。本 文就ADO 和SQL的用法做一些探讨。
1 开发原型
为计算机产品经销商开发一个进销存的程序。用MS Access 数据库，创建的数据库名叫 war e.mdb。在这个数据库中，建立表1、表2、表3、表4。
2 ADO的使用方法
ADO2.0存在于Visual Basic 6.0的两个独立的库中，第一个称为ADODB，在References对话 框 中的名字是Microsoft ActiveX Data Objects 2.0 Library。在这个库中包含了所有的ADO 对象。对于那些并不需要太多加强的ADO资源工程，应该使用ADO库。在References对话框中 这个库称为Microsoft ActiveX Data Objects Recordset 2.1 Library。这个库只包含对Re cordsets的支持。Visual BASIC 6.0通过ADO控件和Recordset对象两种方法来使用ADO。下 面介绍一下Recordset 对象的使用方法。在visual basic 中加入如下代码：
dim myConnectstr as strng
dim myRecordset as New ADODB.recordset
myConnectstr=“PROVIDER=Microsoft.Jet.OLEDB.4.0;DataSource=” & App.Path & “\ w are.mdb;Persist Security Info=False”
myRecordset.CoursorLocation=AduseClient
myRecordset.Open “select * from wDetail ”，myConnectstr，adOpenKeyset，adLockP essimistic
这样就可以对商品明细表追加纪录：
myRecordset.AddNew "添加一条新记录
myRecordset.Fields(“wareID”) =“000001” "对各字段分别赋值
myRecordset.Fields(“wareName”) = “Switch 3500”
myRecordset.Fields(“wPrice”) = 4350
myRecordset.Fields(“wManufect”) =“Cisco”
myRecordset.Update "对当前记录进行更新
获取表中的纪录数：
recordcnt=myRecordset.Recordcount
移动纪录指针：
myRecordset.MoveFirst "移动到表的第一条纪录
myRecordset.MoveLast "移动到表的最后一条纪录
myRecordset.MovePrevious "移动到表的上一条纪录
myRecordset.MoveNext "移动到表的下一条纪录
删除当前纪录：
myRecordset.Delete
myRecordset.UPDATE
最后关闭纪录集，释放纪录集变量：
myRecordset.Close
Set myRecordset=Nothing
3 SQL的使用
上面所用的方法，只适合于对单个表的简单操作。如果是对表的数据作复杂查询，或数据统 计，用上述方法就非常不方便。一般情况下用SQL 语言结合Connection 对象实现SQL 语句 中最常用的是Select语句。该语句用来从数据库表中检索数据或者完成其他一些功能。为了 使用这条语句你必须知道你要检索的字段名称，或者直接用星号来检索所有字段。
3.1 举例说明：如果希望检索商品名细表中的信息可使用如下语句
SELECT * FROM waredetial
关键字ORDER BY要求列名以确定按哪一列排序。这里可选定按wareID排序，如果你希望按列 wareID的字母顺序排列，可采用下面的代码：
SELECT wareID FROM wareDetial ORDER BY wareID
默认是按升序排列。如果想按降序排列可用如下代码：
SELECT wareID FROM wareDetial ORDER BY wareID DESC
如果你想选择多列，使用下面的语句：
SELECT wareID，wareName FROM wareDetial ORDER BY wareID
用WHERE 关键字来限制选择范围。如果你想选择wareDetial中wareName 列值为“cisco6000 ”的行。你可用下面的代码实现：
SELECT * FROM wareDetial WHERE wareName=“cisco6000” ORDER BY wareID。
除了SELECT 语句，标准SQL语句还有INSERT UPDATE DELETE等，在此不再作具体介绍．实际 的应用经常要对表中的某列或多列数据进行数学运算，这就需要如COUNT()、SUM()、AVG() 、MAX()、MIN() 等数学函数。
3.2 关于这些函数用法的具体说明：先建立一个与数据库的连接
dim myConnectstr as strng
dim myCnt as New ADODB.connection
myConnectstr=“PROVIDER=Microsoft.Jet.OLEDB.4.0;DataSource=” & App.Path & “\ w are.mdb;Persist Security Info=False”
myCnt.Open myConnectstr
若要产生某种商品的总进货数以及总出货数可用以下代码：
exeStr =“insert into wInOut select sum(wQuantity) as Quantity， sum(wSold) as S old from wAccount where wareID= "000001"”
若要产生库存的总数以及总库存金额可用以下代码：
exeStr = “insert into wLib select sum(numInlib) as totalNum，sum(numInLib*wPric e) as totalMoney from wDetail ”
运行上述代码：
myCnt.Execute exeStr
关闭连接：
myCnt.Close
在应用程序的开发中，基于数据库的不同，只在连接的数据源部分作相应的修改，其他的部 分无需改动。
4 结束语
本文所列举的仅仅是ADO和SQL用法的一小部分，实际的应用中对ADO的操作有时用ADO控件 结合DATAGRID控件等显示数据也很方便。
