admin 管理员组文章数量: 1086019
2024年3月19日发(作者：二郎神的天眼)
第２０期总第１７４期
２００８年１０月
内蒙古科技与经济
ＩｎｎｅｒＭｏｎｇｏｌｉａ ＳｃｉｅｎｃｅＴｅｃｈｎｏｌｏｇｙ＆Ｅｃｏｎｏｍｙ
Ｎｏ．２０，ｔｈｅ １７４ｔｈ ｉｓｓｕｅ
Ｏｃｔ．２００８
在ＶＢ６．０数据库程序开发中使用ＡＤＯ和ＳＱＬ的方法介绍
王瑾瑜 ，时塞汉
（１．呼和浩特职业学院计算机信息学院；２．内蒙古审计厅计算中心，内蒙古呼和浩特０１００００）
摘 要：以实例说明了通过ＡＤＯ处理数据库表中数据的实现方法，并介绍了利用ＳＯＬ语句实现对
数据作数学统计的方法。
关键词：ＡＤｏ；ＳＱＬ；程序；ａｔ据库
中图分类号：ＴＰ３１１．１３ 文献标识码：Ａ 文章编号：１００７－－－６９２１（２ｏ０８）２０—００７９—０２
在ＶＢ的应用程序开发中，访问数据库的方法
可归纳为两种。一种是通过 或 ）ｏ的数据
表２ 流水账（ｗＡｃｃｏｕｎｔ）
源对表中的数据进行直接操作，另一种是通过标准
的ＳＱＬ语句结合Ｃｏｎｎｅｃｔｉｏｎ对象对数据库中的数
据进行操作，对表中的数据进行检索和统计。ＤＡＯ
是Ｖｉｓｕａｌ Ｂａｓｉｃ ５．０使用的数据访问技术，它在用于
访问ＭＤＢ文件格式的数据库时有较高的效率，但
访问如Ｏｒａｃｌｅ或ＳＱＬ Ｓｅｒｖｅｒ这样的非ＭＤＢ文件格
式的数据库时，因它基于Ａｃｃｅｓｓ／Ｊｅｔ数据库引擎，访
问速度会大大降低。所以Ｖｉｓｕａｌ Ｂａｓｉｃ ６．０推出了
含义
总库存数
总库存金额
ＡＤＯ技术。ＡＤＯ中文含意是ＡｃｔｉｖｅＸ数据对象
字段名
ＴｏｔａｌＮｕｒｎ ＴｏｔａｌＭｏｎｅｙ
（ＡｃｔｉｖｅＸ Ｄａｔａ Ｏｂｊｃｅｔ），它是一种面向对象的接口。
（类型宽度） （ｉｎｔ） （Ｍｏｎｅｙ）
ＡＩ：Ｘ３访问数据库是通过访问ＯＬＥＤＢ使用程序和
ＯＬＥ ＤＢ供给程序来进行的，它在封装ＯＬＥ ＤＢ的
程序中使用了大量的∞Ｍ接口，是一种高层的访
问技术。它在继承ＯＬＥ ＤＢ的同时，大大简化了
ｏＬＥ ＤＢ的操作。
此外，ＡＤＯ技术可以以ＡｃｔｉｖｅＸ控件的形式出
字段名（类型宽度） Ｑｕａｎｔｉｔｙ， Ｓｏｌｄ
现，被广泛应用于Ｍｉｃｒｏｓｏｆｔ ＡｃｔｉｖｅＸ页、Ｖｉｓｕａｌ Ｃ＋
＋和Ｖｉｓｕａｌ Ｂａｓｉｃ的编程。ＳＱＬ是管理关系数据库
系统的标准语言。每一种关系数据库如Ａｃｃｅｓｓ、
２ ＡＤｏ的使用方法
ＳＱＬ Ｓｅｒｖｅｒ、Ｏｒａｃｌｅ等都有它自己特有的ＳＱＬ语
ＡＤＯ２．０存在于Ｖｉｓｕａｌ Ｂａｓｉｃ ６．０的两个独立的
言，但它们都支持像ｓｅｌｅｃｔ、ｉｎｓｅｒｔ、ｕｐｄａｔｅ、ｄｅｌｅｔｅ、ｃｒｅ—
库中，第一个称为ＡＥＸ３ＤＢ，在Ｒｅｆｅｒｅｎｃｅｓ对话框中
ａｔｅ、ｄｒｏｐ等标准语句来完成几乎所有的对数据库的
的名字是Ｍｉｃｒｏｓｏｆｔ ＡｃｔｉｖｅＸ Ｄａｔａ ０ｂｊｅｃｔｓ ２．０ Ｌｉ—
操作。本文就ＡＤＯ和ＳＱＬ的用法做一些探讨。
ｂｒａｒｙ。在这个库中包含了所有的ＡＤＯ对象。对于
１开发原型
那些并不需要太多加强的ＡＤＯ资源工程，应该使
为计算机产品经销商开发一个进销存的程序。
用 ６∞库。在Ｒｅｆｅｒｅｎｃｅｓ对话框中这个库称为
用ＭＳ Ａｃｃｅｓｓ数据库，创建的数据库名叫ｗａｒｅ．
Ｍｉｃｒｏｓｏｆｔ ＡｃｔｉｖｅＸ Ｄａｔａ Ｏｂｊｅｃｔｓ Ｒｅｃｏｒｄｓｅｔ ２．１ Ｌｉ—
ｍｄｂ。在这个数据库中，建立表１、表２、表３、表４。
ｂｒａｒｙ。这个库只包含对Ｒｅｃｏｒｄｓｅｔｓ的支持。ｖｉｓｕａｌ
表ｌ 商品明细表（ｗａｒｅＤｅｔａｉｌ）
ＢＡＳＩＣ ６．０通过ＡＤＯ控件和Ｒｅｃｏｒｄｓｅｔ对象两种方
法来使用ＡＤＯ。下面介绍一下Ｒｅｃｏｒｄｓｅｔ对象的使
用方法。在ｖｉｓｕａｌ ｂａｓｉｃ中加入如下代码：
ｄｉｍ ｍｙＣｏｎｎｅｃｔｓｔｒ ａｓ ｓｔｒｎｇ
ｄｉｍ ｍｙＲｅｃｏｒｄｓｅｔ ａｓ Ｎｅｗ ＡＤＯＤＢ．ｒｅｃｏｒｄｓｅｔ
收稿日期：２００８—０４—１２
・
７９・
总第１７４期
ｍｙＣｏｎｎｅｃｔｓｔｒ＝“ＰＲＯＶＩＤＥＲ＝Ｍｉｃｒｏｓｏｆｔ．Ｊｅｔ．
ＯＬＥＤＢ．４．０：ＤａｔａＳｏｕｒｃｅ＝”＆Ａｐｐ．Ｐａｔｈ＆“
ＢＹ ｗａｒｅｌＤ
内蒙古科技与经济
ｗａｒｅ．ｍｄｂ；Ｐｅｒｓｉｓｔ Ｓｅｃｕｒｉｔｙ Ｉｎｆｏ＝蹦ｓｅ”
ｍｙＲｅｃｏｒｄｓｅｔ．ＣｏｕｒｓｏｒＬｏｃ￣ｔｉｏｎ＝ＡｄｕｓｅＣｌｉｅｎｔ
ｍｙＲｅｃｏｒｄｓｅｔ．Ｏｐｅｎ“ｓｅｌｅｃｔ＊ｆｒｏｍ ｗＤｅｔａｉｌ”．
默认是按升序排列。如果想按降序排列可用如
下代码：
ＳＥＬＥｃＴ ｗａｒｅＩＤ ＦＲｏＭ ｗａｒｅＤｅｔｉａｌ ＯＲＤＥＲ
ＢＹ ｗａｒｅｌＤＤＥＳｃ
ｍｙＣｏｎｎｅｃｔｓｔｒ，ａｄＯｐｅｎＫｅｙｓｅｔ，ａｄＬｏｃｋＰｅｓｓｉｍｉｓｔｉｃ
如果你想选择多列，使用下面的语句：
ＳＥＬＥＣＴ ｗａｒｅｌＤ．ｗ＆ｒｅＮａｎ３．ｅ ＦＲ０Ｍ ｗａｒｅＤｅｔｉａｌ
０ＲＤＥＲ ＢＹ ｗａｒｅｌＤ
这样就可以对商品明细表追加纪录：
ｍｙＲｅｃｏｒｄｓｅｔ．ＡｄｄＮｅｗ’添加一条新记录
ｍｙＲｅｃｏｒｄｓｅｔ．Ｆｉｅ１ｄｓ（“ｗａｒｅｌＤ”）＝“０００００１”’
用ＷＨＥＲＥ关键字来限制选择范围。如果你
对各字段分别赋值
ｍｙＲｅｃｏｒｄｓｅｔ．Ｆｉｅｌｄｓ（“ｗａｒｅＮ＆ｒｎｅ”）＝“Ｓｗｉｔｃｈ
３５０ｏ”
ｍｙＲｅｃｏｒｄｓｅｔ．Ｆｉｅｌｄｓ（“ｗＰｒｉｃｅ”）＝４３５０
ｍｙＲｅｃｏｒｄｓｅｔ．Ｆｉｅｌｄｓ（“ｗＭａｎｕｆｅｃｔ”）＝“Ｃｉｓｏｃ＇’
ｍｙＲｅｃｏｒｄｓｅｔ．Ｕｐｄａｔｅ’对当前记录进行更新
获取表中的纪录数：
ｒｅｃｏｒｄｅｎｔ＝ｍｙＲｅｃｏｒｄｓｅｔ．Ｒｅｃｏｒｄｃｏｕｎｔ
移动纪录指针：
ｍｙＲｅｃｏｒｄｓｅｔ．ＭｏｖｅＦｉｓｒｔ’移动到表的第一条纪
录
ｍｙＲｅｃｏｒｄｓｅｔ．ＭｏｖｅＬａｓｔ’移动到表的最后一条
纪录
ｍｙＲｅｃｏｒｄｓｅｔ．ＭｏｖｅＰｒｅｖｉｏｕｓ’移动到表的上一
条纪录
ｍｙＲｅｃｏｒｄｓｅｔ．ＭｏｖｅＮｅｘｔ’移动到表的下一条纪
录
删除当前纪录：
ｍｙＲｅｃｏｒｄｓｅｔ．Ｄｅｌｅｔｅ
ｍｙＲｅｃｏｒｄｓｅｔ．ＵＰＤＡ１Ｅ
最后关闭纪录集，释放纪录集变量：
ｍｙＲｅｃｏｒｄｓｅｔ．Ｃｌｏｓｅ
Ｓｅｔ ｍｙＲｅｃｏｒｄｓｅｔ＝Ｎｏｔｈｉｎｇ
３ ＳＱＬ的使用
上面所用的方法，只适合于对单个表的简单操
作。如果是对表的数据作复杂查询，或数据统计，用
上述方法就非常不方便。一般情况下用ｓＱＬ语言
结合Ｃｏｎｎｅｃｔｉｏｎ对象实现ＳＱＬ语句中最常用的是
ｅＳｌｃｅｔ语句。该语句用来从数据库表中检索数据或
者完成其他一些功能。为了使用这条语句你必须知
道你要检索的字段名称，或者直接用星号来检索所
有字段。
３．１举例说明：如果希望检索商品名细表中的信息
可使用如下语句
ＳＥＬＥＣＴ＊ＦＲｏＭ ｗａｒｅｄｅｔｉａｌ
关键字ＯＲＤＥＲ ＢＹ要求列名以确定按哪一列
排序。这里可选定按ｗａｒｅｌＤ排序，如果你希望按列
ｗａｒｅｌＤ的字母顺序排列，可采用下面的代码：
ＳＥＬＥＣＴ ｗａｒｅｌＤ ＦＲ０Ｍ ｗａｒｅＤｅｔｉａｌ ０ＲＤＥＲ
・
８０・
想选择ｗａｒｅＤｅｔｉａｌ中ｗａｒｅＮｓ＿ｒｎｅ列值为“ｅｉｓｃｏ６０００”
的行。你可用下面的代码实现：
ＳＥＬＥＣＴ＊ＦＲ０Ｍ ｗａｒｅＤｅｔｉａｌ Ｗ ＲＥ ｗａｒｅ．
Ｎａｍｅ＝“ｃｉｓｃｏ６０００”０ＲＤＥＲ ＢＹ ｗａｒｅｌＤ。
除了ＳＥＬＥＣＴ语句，标准ＳＱＬ语句还有ＩＮ．
ｓＥＲＴ ＵＰＤＡＴＥ ＤＥＬＥＴＥ等，在此不再作具体介
绍．实际的应用经常要对表中的ｇｙ，Ｊ或多列数据进
行数学运算，这就需要如Ｃ（）Ｉ Ｔ（）、ＳＵＭ（）、ＡＶＧ
（）、 （）、ＭＩＮ（）等数学函数。
３．２关于这些函数用法的具体说明：先建立一个与
数据库的连接
ｄｉｍ ｍｙＣｏｎｎｅｃｔｓｔｒ ａｓ ｓｔｒｎｇ
ｄｉｍ ｍｙＣｎｔ ａｓ Ｎｅｗ ＡＤｏＤＢ．ｃｏｎｎｅｃｔｉｏｎ
ｍｙＣｏｎｎｅｃｔｓｔｒ＝“ＰＲＯＶＩＤＥＲ＝Ｍｉｃｒｏｓｏｆｔ．Ｊｅｔ．
ＯＬＥＤＢ．４．０：ＤａｔａＳｏｕｒｃｅ＝”＆Ａｐｐ．Ｐａｔｈ＆“
ｗａｘ＇ｅ．ｍｄｂ：Ｐｅｒｓｉｓｔ Ｓｅｃｕｒｉｔｙ Ｉｎｆｏ＝Ｆａｌｓｅ”
ｍｙＣｎｔ．Ｏｐｅｎ ｍｙＣｏｎｎｅｃｔｓｔｒ
若要产生某种商品的总进货数以及总出货数可
用以下代码：
ｅｘｅＳｔｒ ＝“ｉｎｓｅｒｔ ｉｎｔｏ ｗＩｎＯｕｔ ｓｅｌｅｃｔ ｓｕｍ
（ｗＱｕａｎｔｉｔｙ）ａｓ Ｑｕａｎｔｉｔｙ，ｓｕｍ（ｗＳｏｌｄ）ａｓ Ｓｏｌｄ ｆｒｏｍ
ｗＡｃｃｏｕｎｔ ｗｈｅｒｅ ｗａｒｅｌＤ＝’０００００１’’’
若要产生库存的总数以及总库存金额可用以下
代码：
ｅｘｅＳｔｒ “ｉｎｓｅｒｔ ｉｎｔｏ ｗＬｉｂ ｓｅｌｅｃｔ ｓｕｍ（ｎｕ．
ｍｌｎｌｉｂ）ａｓ ｔｏｔａｌＮｕｍ，ｓａｍ（ｎｕｍｌｎＬｉｂ＊ｗＰｒｉｃｅ）ａｓ ｔｏ—
ｔａｌＭｏｎｅｙ ｆｒｏｍ ｗＤｅｔａｉｌ”
运行上述代码：
ｍｙＣｎｔ．Ｅｘｅｃｕｔｅ ｅｘｅＳｔｒ
关闭连接：
ｍｙＣｎｔ．Ｃｌｏｓｅ
在应用程序的开发中，基于数据库的不同，只在
连接的数据源部分作相应的修改，其他的部分无需
改动。
４结束语
本文所列举的仅仅是ＡＤＯ和ＳＱＬ用法的一小
部分，实际的应用中对ＡＤＯ的操作有时用ＡＤＯ控
件结合ＤＡＴＡＧＲＩＤ控件等显示数据也很方便。
版权声明：本文标题：在VB6.0数据库程序开发中使用ADO和SQL的方法介绍 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/p/1710854718a576427.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论