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

在 VB6.0 数据库程序开发中使用 ADO 和 SQL 的方法介绍 (1.呼和浩特职业学院 计算机信息学院；2.内蒙古审 计厅 计算中心，内蒙古 呼和浩特 010000) 摘 要：以实例说明了通过 ADO 处理数据库表中数据的 实 现方法，并介绍了利用 SQL 语句实现对数据作数学统计 的方法。 关键词：ADO；SQL；程序；数据库 中图分类号：TP311.13 文献标识码：A 文章编号： 10076921(XX)20007902 在 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。 740)this.width=740“ border=undefined 740)this.width=740“ border=undefined 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;Dat aSource=” 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;Dat aSource=” 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 w