VB5.0中数据库查询模块的实现

VB5.0中数据库查询模块的实现

摘要：查询模块是数据库管理系统中不可缺少的部分。本文介绍在VB5.0环境下四种数据库查询的实现方法，并主要介绍了使用SELECT-SQL语句来实现数据库的查询功能关键字：VB5.0数据库表查询SQLVB全称VisualBasic，是微软公司推出的基于Windows的可视化编程环境，以其简单易学、编程简洁、程序集成化高、功能强大而倍受程序员及广大电脑爱好者的青睐。它在数据库应用方面也有相当强大的功能。查询模块是数据库管理系统中不可缺少的部分。在VB中进行数据库记录查询操作，根据打开数据库的方式来确定。大概有四种查询方法：SEEK方法查询、FILTER属性查询、Find方法查询、SQL查询。本文对前三种方法只作简单说明，着重介绍第四种SQL查询方法。1、SEEK方法查询、FILTER属性查询、Find方法查询的简单说明。用SEEK方法查询：这种方法只使用于以OPENTABLE方式打开的数据表，而且在查询之前必须要对查询字段建立索引文件，由于已建立了索引文件，所以查询速度快，这种方式结果是将指针移到符合条件的第一个记录。例如：SETTB=DB.OPENTABLE(“INPUT”)TB.INDEX=”NAMEINDEX”TB.SEEK”=”，“石脑油”用FILTER属性查询：FILTER属性查询是用来过滤数据的，只要我们给定过滤条件就可以将所需的记录筛选出来。需要说明的是，我们需要将以Filter属性筛选出来的数据集打开才能对其进行操作。例如：SetDy1=db.CreateDynaset(“input”)Dy1.Filter=”物资名称like‘石*’”SetDy2.Dy1.CreateDynaset()用Find方法查询。Find查询有Findfirstfindnext两个方法，每次查询到一个记录。例如：SetDy=db.CreateDynaset(“input”)S=”到货数量>100and物资名称like‘石脑油’”Dy.FindfirstSDy.FindnextS2、用SQL查询。2．1、Select-SQL查询语句的格式：SQL（STRUCTUREQUERYLANGUAGE）即结构化查询语言，是查询关系型数据库的常用语言。由于SQL语言使用方便、功能丰富、简单易学得到很快的应用和推广，是各种关系型数据库的公用语言。使用SQL查询可以从一个表或多个表或视图中对数据库进行查询（有关SQL的更多信息，请参阅相关书籍，本文不多介绍）。它的核心语句是Select-SQL语句。Select-SQL查询语句的格式：SELECT[DICTINCT/ALL]查询目标列FROMtableexpression表名/视图名[WHERE]条件[GROUPBY...]将查询结果的记录分组[HAVING...]满足条件的分组[ORDERBY...]对查询结果进行排序下面应用笔者完成的《供应处物资管理软件》为例，。说明使用SELECT-SQL查询语句实现查询模块具体方法。2.2单项查询模块的实现：2.2.1应用的数据库in_db.mdb中包含表：input字段名：物资名称、供货单位、供货日期、到货数量、总金额…….等等。2.2.2定义窗体及控件：如下表如图（1）：单项查询模块窗体图2.2.3编写程序代码：上述设计完成后，可以对窗体及控件的事件编写代码：‘变量定义Dimmy_dbAsDatabaseDimmy_drAsRecordsetDimField_val1AsStringDimField_val3AsDateDimField_val32AsDateDimField_val4AsIntegerDimField_val42AsIntegerDimSearch_txtAsIntegerPrivateSubForm_Load()Search_txt=1Text1.Text=""Text2.Text=""Label2.Caption=""EndSubPrivateSubCommand1_Click()‘确定按钮SelectCaseSearch_txtCase1‘若选择“物资名称”Field_val1=Text1.TextSetmy_db=OpenDatabase("d:\zu_vb\in_db.mdb")Setmy_dr=my_db.OpenRecordset("input")ss1="select*frominputwhere(物资名称="&"'"&Field_val1&"')"Data1.RecordSource=ss1Data1.RefreshCase2‘若选择“供货单位”...Case3‘若选择“供货日期”Field_val3=Text1.TextField_val32=Text2.TextIfVal(DateDiff("d"，(Text1.Text)，(Text2.Text)))>=0ThenSetmy_db=OpenDatabase("d:\zu_vb\in_db.mdb")Setmy_dr=my_db.OpenRecordset("input")ss1="select*frominputwhere供货日期between"&"#"_&Field_val3&"#"_&"and"&"#"&Field_val32&"#"Data1.RecordSource=ss1Data1.RefreshElsezz=MsgBox("您输入的起始日期比终止日期大，请重新输入！"，vbCritical，"严重警告，输入无效！")EndIfCase4‘若选择“到货数量”Field_val4=Text1.TextField_val42=Text2.TextSetmy_db=OpenDatabase("d:\zu_vb\in_db.mdb")Setmy_dr=my_db.OpenRecordset("input")ss1="select*frominputwhere到货数量between"&Field_val4_&"and"&Field_val42Data1.RecordSource=ss1Data1.RefreshCase5...EndSelectEndSubPrivateSubCommand2_Click()‘取消查询Text1.Text=""Text2.Text=""如图（2）多项查询模块窗体图2.3.3编写程序代码：上述设计完成后，可以对窗体及控件的事件编写代码：下面程序可实现“物资名称”为某值，供货日期在一定范围的采购明细的查询。‘定义变量Dimmy_dbAsDatabaseDimmy_drAsRecordsetDimcom_txtAsStringDimtxt1AsDateDimtxt2AsDatePrivateSubCommand1_Click()‘判断如果输入值不是日期型的，是无效值IfNotIsDate(Text1.Text)Thenz=MsgBox("非法起始日期，请重新输入！"，vbCritical，"严重警告，输入无效！")Text1.SetFocusElseIfNotIsDate(Text2.Text)Thenz=MsgBox("非法终止日期，请重新输入！"，vbCritical，"严重警告，输入无效！")Text2.SetFocusElseIfVal(DateDiff("d"，(Text1.Text)，(Text2.Text)))>=0Then'''*****设置条件*********com_txt=Form5.Combo1.Texttxt1=Form5.Text1.Texttxt2=Form5.Text2.TextSetmy_db=OpenDatabase("d:\zu_vb\in_db.mdb")Setmy_dr=my_db.OpenRecordset("input")ww1="select*frominputwhere(物资名称="&"'"&com_txt&"'"_…&"and(供货日期between"&"#"&txt1&"#"_&"and"&"#"&txt2&"#))"Data1.RecordSource=ww1Data1.RefreshElsezz=MsgBox("您输入的起始日期比终止日期大，请重新输入！"，vbCritical，"严重警告，输入无效！")EndIfEndIfEndIfEndSubPrivateSubForm_Load()‘将项目“石脑油”、轻烃、纯苯………添加到combo1控件中Combo1.AddItem"石脑油"Combo1.AddItem"轻烃"Combo1.AddItem"纯苯"Combo1.AddItem"丙烯腈"Combo1.AddItem"甲基丙烯酸甲脂"Combo1.AddItem"聚丁二烯乳胶"Combo1.AddItem"C2"Combo1.AddItem"C3/C4"Combo1.AddItem"C5"Combo1.AddItem"盐酸"Combo1.AddItem"液碱"Combo1.Text="石脑油"‘设置combo1的初始值Text1.Text=D