在VB6.0数据库程序开发中使用ADO,和SQL的方法介绍

(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。

除

推荐访问:程序开发 数据库 方法 介绍 VB6