2024年3月19日发(作者：)
电子科技 2005
年第
年第
1
1
期（总第
期（总第
184
184
期）
期）
电子科技 2005
ＴＬ１６Ｃ７５０在异步串行通信中的应用
ＶＢ６．０中数据库查询模块的实现
张巧玲
（内蒙古大学 职业技术学院，内蒙古 呼和浩特市０１００２０）
摘 要 本文以ＳＥＬＥＣＴ－ＳＱＬ语句为主，介绍在ＶＢ６．０环境下数据库查询的多种实现方法。
关键字 ＶＢ６．０ 数据库 查询 ＳＱＬ
中图分类号 ＴＰ３１１．１３
ＶＢ（Ｖｉｓｕａｌ Ｂａｓｉｃ）是微软公司推出的基于
Ｗｉｎｄｏｗｓ的可视化编程环境，以其简单易学、编
程简洁、程序集成化高、功能强大而倍受程序员及
广大电脑爱好者的青睐。它在数据库应用方面也有
相当强大的功能。
查询模块是数据库管理系统中不可缺少的部
分。在ＶＢ中进行数据库记录查询操作，根据打开
数据库的方式来确定。主要有４种查询方法：ＳＥＥＫ
方法查询、ＦＩＬＴＥＲ 属性查询、Ｆｉｎｄ 方法查询、
ＳＱＬ查询。本文对前３种方法只作简单说明，着重
介绍第４种ＳＱＬ查询方法。
Ｓｅｔ Ｄｙ１＝ｄｂ．ＣｒｅａｔｅＤｙｎａｓｅｔ （“ｉｎｐｕｔ”）
Ｄｙ１．Ｆｉｌｔｅｒ＝”产品名称 ｌｉｋｅ ‘冰＊’”
Ｓｅｔ Ｄｙ２．Ｄｙ１．ＣｒｅａｔｅＤｙｎａｓｅｔ （）
（３）用Ｆｉｎｄ 方法查询
Ｆｉｎｄ查询有Ｆｉｎｄｆｉｒｓｔ ｆｉｎｄｎｅｘｔ 两个方法，
每次查询到一个记录。例如：
Ｓｅｔ Ｄｙ＝ｄｂ．ＣｒｅａｔｅＤｙｎａｓｅｔ （“ｉｎｐｕｔ”）
Ｓ＝”到货数量＞１００ ａｎｄ 产品名称ｌｉｋｅ ‘冰
美人’”
Ｄｙ．Ｆｉｎｄｆｉｒｓｔ Ｓ
Ｄｙ．Ｆｉｎｄｎｅｘｔ Ｓ
１ 关于ＳＥＥＫ方法查询、ＦＩＬＴＥＲ 属性查询、
Ｆｉｎｄ 方法查询的简单说明
（１）用ＳＥＥＫ方法查询
这种方法只使用于以ＯＰＥＮＴＡＢＬＥ 方式打开
的数据表，而且在查询之前必须要对查询字段建立
索引文件，由于已建立了索引文件，所以查询速度
快，这种方式结果是将指针移到符合条件的第一个
记录。例如：
ＳＥＴ ＴＢ＝ＤＢ．ＯＰＥＮＴＡＢＬＥ（“ＩＮＰＵＴ”）
ＴＢ．ＩＮＤＥＸ＝”ＮＡＭＥＩＮＤＥＸ”
ＴＢ．ＳＥＥＫ”＝”，“冰美人”
（２）用ＦＩＬＴＥＲ 属性查询
ＦＩＬＴＥＲ属性查询是用来过滤数据的，只要我
们给定过滤条件就可以将所需的记录筛选出来。需
要说明的是，需要将以Ｆｉｌｔｅｒ属性筛选出来的数据
集打开才能对其进行操作。例如：
收稿日期：2004-09-21
２ 用ＳＱＬ查询
（１）Ｓｅｌｅｃｔ－ＳＱＬ查询语句的格式
ＳＱＬ（ＳＴＲＵＣＴＵＲＥ ＱＵＥＲＹ ＬＡＮＧＵＡＧＥ）
即结构化查询语言，是查询关系型数据库的常用语
言。由于ＳＱＬ语言使用方便、功能丰富、简单易
学得到很快的应用和推广，是各种关系型数据库的
公用语言。使用ＳＱＬ查询可以从一个表或多个表
或视图中对数据库进行查询（有关ＳＱＬ的更多信
息，请参阅相关书籍，本文不多介绍）。它的核心
语句是Ｓｅｌｅｃｔ－ ＳＱＬ语句。
Ｓｅｌｅｃｔ－ＳＱＬ查询语句的格式：
ＳＥＬＥＣＴ ［ＤＩＣＴＩＮＣＴ／ＡＬＬ］－－－－查询目标列
ＦＲＯＭ ｔａｂｌｅｅｘｐｒｅｓｓｉｏｎ －－－－－－－－－－表名／视图
名 ［ＷＨＥＲＥ］－－－－－－－－－－－－－－－－－－－－－－－－－－－条件
［ＧＲＯＵＰ ＢＹ．．． ］－－－－－－－－－－－－－－－－－－－－将查询结
果的记录分组 ［ＨＡＶＩＮＧ．．． ］－－－－－满足条件的分组
［ＯＲＤＥＲ ＢＹ．．． ］－－－－－－－－－－－－－－对查询结果进行
排序
60
ＶＢ６．０中数据库查询模块的实现
下面以笔者完成的《产品供应资源管理软件》为例，
说明使用ＳＥＬＥＣＴ－ＳＱＬ查询语句实现查询模块具
体方法。
（２）单项查询模块的实现：
主要控件及名称
字段选择
Ｔｅｘｔｂｏｘ（ｔｅｘｔ１）
Ｔｅｘｔｂｏｘ（ｔｅｘｔ２）
属性
Ｆｒａｍｅ（ｆｒａｍｅ１）
① 应用的数据库ｉｎ＿ｄｂ．ｍｄｂ中包含表：
ｉｎｐｕｔ 字段名：产品名称、供货单位、供货日期、
到货数量、总金额……．等等 。
② 定义窗体及控件如表１所示。
表１ 单项查询定义窗体及控件
设置
ｃａｐｔｉｏｎ
ｃａｐｔｉｏｎ
ｃａｐｔｉｏｎ
ｃａｐｔｉｏｎ
ｃａｐｔｉｏｎ
ｃａｐｔｉｏｎ
为空
为空
确定
取消
结束
Ｃａｐｔｉｏｎ
Ｄａｔａ１
说明
字段选择
产品名称
供货单位
供货日期
到货数量
总金额
查询值
确定本次查询
取消本次查询
结束查询
数据浏览
ｄ：＼ｚｕ＿ｖｂ＼ｉｎ＿ｄｂ．ｍｄｂ
查询结果显示
Ｏｐｔｉｏｎｂｕｔｔｏｎ（Ｏｐｔｉｏｎ１）
Ｏｐｔｉｏｎｂｕｔｔｏｎ（Ｏｐｔｉｏｎ２）
Ｏｐｔｉｏｎｂｕｔｔｏｎ（Ｏｐｔｉｏｎ３）
Ｏｐｔｉｏｎｂｕｔｔｏｎ（Ｏｐｔｉｏｎ４）
Ｏｐｔｉｏｎｂｕｔｔｏｎ（Ｏｐｔｉｏｎ５）
Ｔｅｘｔ
Ｔｅｘｔ
Ｃｏｍｍａｎｄｂｕｔｔｏｎ（ｃｏｍｍａｎｄ１） ｃａｐｔｉｏｎ
Ｃｏｍｍａｎｄｂｕｔｔｏｎ（ｃｏｍｍａｎｄ２） ｃａｐｔｉｏｎ
Ｃｏｍｍａｎｄｂｕｔｔｏｎ（ｃｏｍｍａｎｄ３） ｃａｐｔｉｏｎ
ｄａｔａｂａｓｅｎａｍｅ
Ｄｂｇｒｉｄ（ｄｂｇｒｉｄ１）
Ｄａｔａ（ｄａｔａ１）
ｄａｔａｓｏｕｒｃｅ
③ 编写程序代码上述设计完成后，可以对窗
体及控件的事件编写代码。
变量定义
Ｄｉｍ ｍｙ＿ｄｂ Ａｓ Ｄａｔａｂａｓｅ Ｄｉｍ ｍｙ＿ｄｒ Ａｓ
Ｒｅｃｏｒｄｓｅｔ Ｄｉｍ Ｆｉｅｌｄ＿ｖａｌ１ Ａｓ Ｓｔｒｉｎｇ Ｄｉｍ
Ｆｉｅｌｄ＿ｖａｌ３ Ａｓ Ｄａｔｅ
Ｄｉｍ Ｆｉｅｌｄ＿ｖａｌ３２ Ａｓ Ｄａｔｅ
Ｄｉｍ Ｆｉｅｌｄ＿ｖａｌ４ Ａｓ Ｉｎｔｅｇｅｒ
Ｄｉｍ Ｆｉｅｌｄ＿ｖａｌ４２ Ａｓ Ｉｎｔｅｇｅｒ
Ｄｉｍ Ｓｅａｒｃｈ＿ｔｘｔ Ａｓ Ｉｎｔｅｇｅｒ
Ｐｒｉｖａｔｅ Ｓｕｂ Ｆｏｒｍ＿Ｌｏａｄ（） Ｓｅａｒｃｈ＿ｔｘｔ ＝ １
Ｔｅｘｔ１．Ｔｅｘｔ ＝ ＂＂ Ｔｅｘｔ２．Ｔｅｘｔ ＝
＂＂Ｌａｂｅｌ２．Ｃａｐｔｉｏｎ ＝ ＂＂Ｅｎｄ Ｓｕｂ
Ｐｒｉｖａｔｅ Ｓｕｂ Ｃｏｍｍａｎｄ１＿Ｃｌｉｃｋ（） ’确定按钮
Ｓｅｌｅｃｔ Ｃａｓｅ Ｓｅａｒｃｈ＿ｔｘｔ
Ｃａｓｅ １ ‘若选择“产品名称”’
Ｆｉｅｌｄ＿ｖａｌ１ ＝ Ｔｅｘｔ１．Ｔｅｘｔ
Ｓｅｔ ｍｙ＿ｄｂ ＝ ＯｐｅｎＤａｔａｂａｓｅ（＂ｄ：＼ｚｕ＿ｖｂ
＼ｉｎ＿ｄｂ．ｍｄｂ＂）
Ｓｅｔ ｍｙ＿ｄｒ ＝ ｍｙ＿ｄｂ．ＯｐｅｎＲｅｃｏｒｄｓｅｔ（＂ｉｎｐｕｔ＂）
ｓｓ１ ＝ ＂ｓｅｌｅｃｔ ＊ ｆｒｏｍ ｉｎｐｕｔ ｗｈｅｒｅ （产品名称
＝＂ ＆ ＂＇＂ ＆ Ｆｉｅｌｄ＿ｖａｌ１ ＆ ＂＇）＂
Ｄａｔａ１．ＲｅｃｏｒｄＳｏｕｒｃｅ ＝ ｓｓ１
Ｄａｔａ１．Ｒｅｆｒｅｓｈ
Ｃａｓｅ ２‘若选择“供货单位”
． ． ．
Ｃａｓｅ ３ Ｊ‘若选择“供货日期”
Ｆｉｅｌｄ＿ｖａｌ３ ＝ Ｔｅｘｔ１．Ｔｅｘｔ
Ｆｉｅｌｄ＿ｖａｌ３２ ＝ Ｔｅｘｔ２．Ｔｅｘｔ
Ｉｆ Ｖａｌ（ＤａｔｅＤｉｆｆ（＂ｄ＂，（Ｔｅｘｔ１．Ｔｅｘｔ）， （Ｔｅｘｔ２．Ｔｅｘｔ）））
＞＝ ０ Ｔｈｅｎ
Ｓｅｔ ｍｙ＿ｄｂ ＝ ＯｐｅｎＤａｔａｂａｓｅ（＂ｄ：＼ｚｕ＿ｖｂ＼
ｉｎ＿ｄｂ．ｍｄｂ＂）
Ｓｅｔ ｍｙ＿ｄｒ ＝ ｍｙ＿ｄｂ．ＯｐｅｎＲｅｃｏｒｄｓｅｔ（＂ｉｎｐｕｔ＂）
ｓｓ１ ＝ ＂ｓｅｌｅｃｔ ＊ ｆｒｏｍ ｉｎｐｕｔ ｗｈｅｒｅ 供货日期
ｂｅｔｗｅｅｎ ＂ ＆ ＂＃＂ ＿
＆ Ｆｉｅｌｄ＿ｖａｌ３ ＆ ＂＃＂ ＿ ＆ ＂ ａｎｄ ＂ ＆ ＂＃＂ ＆
Ｆｉｅｌｄ＿ｖａｌ３２ ＆ ＂＃＂ Ｄａｔａ１．ＲｅｃｏｒｄＳｏｕｒｃｅ ＝ ｓｓ１
Ｄａｔａ１．Ｒｅｆｒｅｓｈ Ｅｌｓｅ ｚｚ ＝ ＭｓｇＢｏｘ（＂您输入的起
始日期大于终止日期，请重新输入！＂， ｖｂＣｒｉｔｉｃａｌ，
＂严重警告，输入无效！＂）
61
电子科技/2005年1月15日
ＶＢ６．０中数据库查询模块的实现
Ｅｎｄ Ｉｆ
Ｃａｓｅ ４ ‘若选择“到货数量”
Ｆｉｅｌｄ＿ｖａｌ４ ＝ Ｔｅｘｔ１．Ｔｅｘｔ
Ｆｉｅｌｄ＿ｖａｌ４２ ＝ Ｔｅｘｔ２．Ｔｅｘｔ
Ｓｅｔ ｍｙ＿ｄｂ ＝ ＯｐｅｎＤａｔａｂａｓｅ（＂ｄ： ＼ｚｕ＿ｖｂ＼
ｉｎ＿ｄｂ．ｍｄｂ＂）
Ｓｅｔ ｍｙ＿ｄｒ ＝ｍｙ＿ｄｂ．ＯｐｅｎＲｅｃｏｒｄｓｅｔ （＂ｉｎｐｕｔ＂）
ｓｓ１ ＝ ＂ｓｅｌｅｃｔ ＊ ｆｒｏｍ ｉｎｐｕｔ ｗｈｅｒｅ 到货数量
ｂｅｔｗｅｅｎ ＂ ＆ Ｆｉｅｌｄ＿ｖａｌ４ ＿
＆ ＂ ａｎｄ ＂ ＆ Ｆｉｅｌｄ＿ｖａｌ４２
Ｄａｔａ１．ＲｅｃｏｒｄＳｏｕｒｃｅ ＝ ｓｓ１
Ｄａｔａ１．Ｒｅｆｒｅｓｈ
Ｃａｓｅ ５
． ． ．
Ｅｎｄ Ｓｅｌｅｃｔ
Ｅｎｄ Ｓｕｂ
Ｐｒｉｖａｔｅ Ｓｕｂ Ｃｏｍｍａｎｄ２＿Ｃｌｉｃｋ（）取消查询
Ｔｅｘｔ１．Ｔｅｘｔ ＝ ＂＂
Ｔｅｘｔ２．Ｔｅｘｔ ＝ ＂＂
Ｅｎｄ Ｓｕｂ
Ｐｒｉｖａｔｅ Ｓｕｂ Ｃｏｍｍａｎｄ３＿Ｃｌｉｃｋ（）结束查询
Ｕｎｌｏａｄ Ｍｅ
Ｅｎｄ Ｓｕｂ
Ｐｒｉｖａｔｅ Ｓｕｂ Ｏｐｔｉｏｎ１＿Ｃｌｉｃｋ（） ‘选定“产品
名称”字段
Ｓｅａｒｃｈ＿ｔｘｔ ＝ １
Ｔｅｘｔ１．Ｔｅｘｔ ＝ ＂＂
Ｌａｂｅｌ２．Ｃａｐｔｉｏｎ ＝ ＂＂
Ｔｅｘｔ２．Ｅｎａｂｌｅｄ ＝ Ｆａｌｓｅ ‘ｔｅｘｔ２ 设为无效
Ｔｅｘｔ２．Ｖｉｓｉｂｌｅ ＝ Ｆａｌｓｅ ‘ｔｅｘｔ２ 设为不显示
Ｔｅｘｔ１．ＳｅｔＦｏｃｕｓ
Ｅｎｄ Ｓｕｂ
Ｐｒｉｖａｔｅ Ｓｕｂ Ｏｐｔｉｏｎ２＿Ｃｌｉｃｋ（） ‘选定“供货
单位”字段
（略）
Ｅｎｄ Ｓｕｂ
Ｐｒｉｖａｔｅ Ｓｕｂ Ｏｐｔｉｏｎ３＿Ｃｌｉｃｋ（） ‘选定“供货
日期”字段Ｓｅａｒｃｈ＿ｔｘｔ ＝ ３Ｔｅｘｔ１．Ｔｅｘｔ ＝
＂＂Ｔｅｘｔ１．Ｔｅｘｔ ＝ Ｄａｔｅ ‘起始日期Ｔｅｘｔ２．Ｔｅｘｔ ＝
Ｄａｔｅ ‘终止日期’
62
IT Age/ Jan. 15, 2005
Ｌａｂｅｌ２．Ｃａｐｔｉｏｎ ＝ ＂至＂
Ｔｅｘｔ２．Ｅｎａｂｌｅｄ ＝ Ｔｒｕｅ
Ｔｅｘｔ２．Ｖｉｓｉｂｌｅ ＝ ＴｒｕｅＴｅｘｔ１．ＳｅｔＦｏｃｕｓ
Ｅｎｄ Ｓｕｂ
Ｐｒｉｖａｔｅ Ｓｕｂ Ｏｐｔｉｏｎ４＿Ｃｌｉｃｋ（） ‘选定“到货
数量”字段
Ｓｅａｒｃｈ＿ｔｘｔ ＝ ４
Ｔｅｘｔ１．Ｔｅｘｔ ＝ ＂＂
Ｔｅｘｔ２．Ｔｅｘｔ ＝ ＂＂
Ｔｅｘｔ１．Ｔｅｘｔ＝Ｆｏｒｍａｔ（Ｔｅｘｔ１．Ｔｅｘｔ， ＂＃＃＃，＃＃＃，
＃＃０．００＂）‘设置字段格式为数值型
Ｔｅｘｔ２．Ｔｅｘｔ＝Ｆｏｒｍａｔ（Ｔｅｘｔ２．Ｔｅｘｔ， ＂＃＃＃，＃＃＃，
＃＃０．００＂）‘设置字段格式为数值型
Ｌａｂｅｌ２．Ｃａｐｔｉｏｎ ＝ ＂至＂
Ｔｅｘｔ２．Ｅｎａｂｌｅｄ ＝ Ｔｒｕｅ
Ｔｅｘｔ２．Ｖｉｓｉｂｌｅ ＝ Ｔｒｕｅ
Ｔｅｘｔ１．ＳｅｔＦｏｃｕｓ
Ｅｎｄ Ｓｕｂ
Ｐｒｉｖａｔｅ Ｓｕｂ Ｏｐｔｉｏｎ５＿Ｃｌｉｃｋ（） ‘选定“总金
额”字段
（略）
Ｅｎｄ Ｓｕｂ
Ｐｒｉｖａｔｅ Ｓｕｂ Ｔｅｘｔ１＿ＬｏｓｔＦｏｃｕｓ（）
‘判断如果选定的是“供货日期”字段，ｔｅｘｔ１
的输入值必须是日期型的 Ｉｆ Ｓｅａｒｃｈ＿ｔｘｔ ＝ ３ Ｔｈｅｎ
Ｉｆ Ｎｏｔ ＩｓＤａｔｅ（Ｔｅｘｔ１．Ｔｅｘｔ） Ｔｈｅｎ
ｚ ＝ ＭｓｇＢｏｘ（＂ 非法日期！请重新输入 ！＂，
ｖｂＣｒｉｔｉｃａｌ， ＂严重警告，输入无效 ！＂）
Ｔｅｘｔ１．ＳｅｔＦｏｃｕｓ
Ｅｎｄ Ｉｆ
Ｅｎｄ Ｉｆ
Ｅｎｄ Ｓｕｂ
Ｐｒｉｖａｔｅ Ｓｕｂ Ｔｅｘｔ２＿ＬｏｓｔＦｏｃｕｓ（）
‘判断如果选定的是“供货日期”字段，ｔｅｘｔ２
的输入值必须是日期型的
Ｉｆ Ｓｅａｒｃｈ＿ｔｘｔ ＝ ３ Ｔｈｅｎ
Ｔｅｘｔ２．Ｔｅｘｔ＝Ｆｏｒｍａｔ（Ｔｅｘｔ２．Ｔｅｘｔ，
＂ｙｙｙｙ－ｍｍ－ｄｄ＂）
Ｉｆ Ｎｏｔ ＩｓＤａｔｅ（Ｔｅｘｔ２．Ｔｅｘｔ） Ｔｈｅｎｚ ＝
ＭｓｇＢｏｘ（＂ 非法日期！请重新输入 ！＂，
ＶＢ６．０中数据库查询模块的实现
ｖｂＣｒｉｔｉｃａｌ， ＂严重警告，输入无效 ！＂）
Ｔｅｘｔ２．ＳｅｔＦｏｃｕｓ
Ｅｎｄ Ｉｆ
Ｅｎｄ Ｉｆ
Ｅｎｄ Ｓｕｂ
主要控件及名称
ＣｏｍｂｏＢｏｘ
ＴｅｘｔＢｏｘ（ｔｅｘｔ１）
ＴｅｘｔＢｏｘ（ｔｅｘｔ２）
ＣｏｍｍａｎｄＢｕｔｔｏｎ（ｃｏｍｍａｎｄ１）
ＣｏｍｍａｎｄＢｕｔｔｏｎ（ｃｏｍｍａｎｄ２）
ＤｂＢｒｉｄ（ｄｂｇｒｉｄ１）
属性
Ｆｒａｍｅ（ｆｒａｍｅ１）
ｃａｐｔｉｏｎ
Ｔｅｘｔ
Ｔｅｘｔ
ｃａｐｔｉｏｎ
ｃａｐｔｉｏｎ
Ｄａｔａ（ｄａｔａ１）
ｄａｔａｓｏｕｒｃｅ
（３）多项复合查查询模块的实现：
① 应用的数据库ｉｎ＿ｄｂ．ｍｄｂ中包含表：
ｉｎｐｕｔ 字段名：产品名称、供货单位、供货日期、
到货数量、总金额……．等等 。
② 定义窗体及控件如表２所示。
表２ 多项复合查询定义窗体及控件
设置
ｃａｐｔｉｏｎ
为空
为空
为空
确定
结束
Ｃａｐｔｉｏｎ
ｄａｔａｂａｓｅｎａｍｅ
Ｄａｔａ１
说明
查询条件选择
产品名称选择
起始日期
终止日期
确定本次查询
结束查询
数据浏览
ｄ：＼ｚｕ＿ｖｂ＼ｉｎ＿ｄｂ．ｍｄｂ
查询结果显示
③ 编写程序代码
上述设计完成后，可以对窗体及控件的事件编
写代码：
下面程序可实现“产品名称”为某值，供货日
期在一定范围的采购明细的查询。
定义变量
Ｄｉｍ ｍｙ＿ｄｂ Ａｓ Ｄａｔａｂａｓｅ Ｄｉｍ ｍｙ＿ｄｒ Ａｓ
Ｒｅｃｏｒｄｓｅｔ Ｄｉｍ ｃｏｍ＿ｔｘｔ Ａｓ Ｓｔｒｉｎｇ Ｄｉｍ ｔｘｔ１ Ａｓ
Ｄａｔｅ Ｄｉｍ ｔｘｔ２ Ａｓ Ｄａｔｅ Ｐｒｉｖａｔｅ Ｓｕｂ Ｃｏｍｍａｎｄ１＿
Ｃｌｉｃｋ（）
‘判断如果输入值不是日期型的，是无效值 Ｉｆ
Ｎｏｔ ＩｓＤａｔｅ（Ｔｅｘｔ１．Ｔｅｘｔ） Ｔｈｅｎ ｚ ＝ ＭｓｇＢｏｘ（＂非法
起始日期，请重新输入！＂， ｖｂＣｒｉｔｉｃａｌ， ＂严重警告，
输入无效！＂）
Ｔｅｘｔ１．ＳｅｔＦｏｃｕｓ
Ｅｌｓｅ
Ｉｆ Ｎｏｔ ＩｓＤａｔｅ（Ｔｅｘｔ２．Ｔｅｘｔ） Ｔｈｅｎ
ｚ ＝ ＭｓｇＢｏｘ（＂非法终止日期，请重新输入！＂，
ｖｂＣｒｉｔｉｃａｌ， ＂严重警告，输入无效！＂）
Ｔｅｘｔ２．ＳｅｔＦｏｃｕｓ
Ｅｌｓｅ
Ｉｆ Ｖａｌ（ＤａｔｅＤｉｆｆ（＂ｄ＂， （Ｔｅｘｔ１．Ｔｅｘｔ）， （Ｔｅｘｔ２．Ｔｅｘｔ）））
＞ ＝ ０ Ｔｈｅｎ
＇＇＇＊＊＊＊＊设置条件＊＊＊＊＊＊＊＊＊
ｃｏｍ＿ｔｘｔ ＝ Ｆｏｒｍ５．Ｃｏｍｂｏ１．Ｔｅｘｔ
ｔｘｔ１ ＝ Ｆｏｒｍ５．Ｔｅｘｔ１．Ｔｅｘｔ
ｔｘｔ２ ＝ Ｆｏｒｍ５．Ｔｅｘｔ２．Ｔｅｘｔ
Ｓｅｔ ｍｙ＿ｄｂ ＝ ＯｐｅｎＤａｔａｂａｓｅ（＂ｄ：＼ｚｕ＿ｖｂ＼
ｉｎ＿ｄｂ．ｍｄｂ＂）
Ｓｅｔ ｍｙ＿ｄｒ ＝ ｍｙ＿ｄｂ．ＯｐｅｎＲｅｃｏｒｄｓｅｔ（＂ｉｎｐｕｔ＂）
ｗｗ１ ＝ ＂ｓｅｌｅｃｔ ＊ ｆｒｏｍ ｉｎｐｕｔ ｗｈｅｒｅ （产品名
称＝＂ ＆ ＂＇＂ ＆ ｃｏｍ＿ｔｘｔ ＆ ＂＇＂ ＿
… ＆ ＂ ａｎｄ （供货日期 ｂｅｔｗｅｅｎ ＂ ＆ ＂＃＂ ＆
ｔｘｔ１ ＆ ＂＃＂ ＿
＆ ＂ ａｎｄ ＂ ＆ ＂＃＂ ＆ ｔｘｔ２ ＆ ＂＃））＂
Ｄａｔａ１．ＲｅｃｏｒｄＳｏｕｒｃｅ ＝ ｗｗ１
Ｄａｔａ１．Ｒｅｆｒｅｓｈ
Ｅｌｓｅ
ｚｚ ＝ ＭｓｇＢｏｘ（＂您输入的起始日期大于终止日
期，请重新输入！＂， ｖｂＣｒｉｔｉｃａｌ， ＂严重警告，输入无
效！＂）
Ｅｎｄ Ｉｆ
Ｅｎｄ Ｉｆ
Ｅｎｄ Ｉｆ
Ｅｎｄ Ｓｕｂ
Ｐｒｉｖａｔｅ Ｓｕｂ Ｆｏｒｍ＿Ｌｏａｄ（）
‘将项目“冰美人”、雅芳、羽西………添加
63
电子科技/2005年1月15日
ＶＢ６．０中数据库查询模块的实现
到ｃｏｍｂｏ１控件中
Ｃｏｍｂｏ１．ＡｄｄＩｔｅｍ ＂冰美人＂
Ｃｏｍｂｏ１．ＡｄｄＩｔｅｍ ＂羽西”
Ｃｏｍｂｏ１．ＡｄｄＩｔｅｍ ＂雅芳＂
Ｃｏｍｂｏ１．ＡｄｄＩｔｅｍ ＂旁氏＂
Ｃｏｍｂｏ１．ＡｄｄＩｔｅｍ ＂美宝莲＂
Ｃｏｍｂｏ１．ＡｄｄＩｔｅｍ ＂欧伯莱＂
Ｃｏｍｂｏ１．ＡｄｄＩｔｅｍ ＂琪雅＂
Ｃｏｍｂｏ１．ＡｄｄＩｔｅｍ ＂宇航人＂
Ｃｏｍｂｏ１．ＡｄｄＩｔｅｍ ＂仙妮雷德＂
Ｃｏｍｂｏ１．ＡｄｄＩｔｅｍ ＂欧莱雅＂
Ｃｏｍｂｏ１．ＡｄｄＩｔｅｍ ＂玉兰油”
Ｃｏｍｂｏ１．Ｔｅｘｔ ＝ ＂冰美人”设置 ｃｏｍｂｏ１的
初始值
Ｔｅｘｔ１．Ｔｅｘｔ ＝ Ｄａｔｅ ‘设置ｔｅｘｔ１ ｔｅｘｔ２ 为日
期形式，执行时并显示当前日期。
Ｔｅｘｔ２．Ｔｅｘｔ ＝ Ｄａｔｅ
Ｅｎｄ Ｓｕｂ
３ 结束语
对ＶＢ６．０数据库查询功能做了简单的说明，
特别对Ｓｅｌｅｃｔ－ＳＱＬ语句进行了详细的介绍，给出
了窗体控件的属性和代码的核心部分，并去掉了许
多修饰性的内容，也可以在此基础上稍加扩充或修
改，便可得到更完善的通用查询模块。
作者简介
张巧玲（１９６１—），女，内蒙古大学职业技术学院。
研究方向：交通运输理管。
Realizations of Medium database Search Mold Piece of VB 6.0
Zhang Qiaoling
(University of Inner Mongolia Occupation Technical College, Inner Mongolia 010020, China)
Abstract This paper introduces the various realizations of database search under the VB6.0 environment with SELECT- SQL as
the language sentence.
Keyword VB6.0; database; search SQL
关于 ＣＳＲ
英国 ＣＳＲ ｐｌｃ 公司 （Ｃａｍｂｒｉｄｇｅ Ｓｉｌｉｃｏｎ Ｒａｄｉｏ） 是供应短距离无线通讯单芯片无线电装置的领先厂商。ＣＳＲ提供以
ＢｌｕｅＣｏｒｅ（蓝牙芯片组）为基础的先进硬件／软件解决方案、完全整合的 ２．４ ＧＨｚ 无线电、基频及微控制器。在所有通过
认证并列在蓝牙网站上使用蓝牙 ｖ１．１ 和 ｖ１．２ 的产品和模件中，６０％ 使用 ＢｌｕｅＣｏｒｅ。诺基亚、戴尔、松下，夏普、摩托
罗拉、ＩＢＭ、苹果、ＮＥＣ、东芝、ＲＩＭ 及索尼等行业领先公司，已在６０００多万蓝牙产品中使用 ＢｌｕｅＣｏｒｅ 装置。
ＣＳＲ 正在生产其第四代 ＢｌｕｅＣｏｒｅ 装置，支持最近推出的改进型数据速率标准。２００４年１１月９日，ＣＳＲ 公布了专门针对
移动电话和消费电子品市场的第一个内嵌 ＩＥＥＥ８０２．１１ａ、ｂ、ｇ 单芯片的解决方案。
（有关蓝牙的详细资料请查看 ＳＩＧ 的网站 ｗｗｗ．ｂｌｕｅｔｏｏｔｈ．ｃｏｍ ）
64
IT Age/ Jan. 15, 2005
发布评论