VB5.0中数据库查询模块的实现毕业论文.docVIP

　　VB5.0中数据库查询模块的实现毕业论文 摘要：查询模块是数据库管理系统中不可缺少的部分。本文介绍在VB5.0环境下四种数据库查询的实现方法，并主要介绍了使用SELECT-SQL语句来实现数据库的查询功能 关键字：VB5.0 数据库 表 查询 SQL VB全称Visual Basic,是微软公司推出的基于WindoEINDEX TB.SEEK =, 石脑油 用FILTER 属性查询： FILTER属性查询是用来过滤数据的，只要我们给定过滤条件就可以将所需的记录筛选出来。需要说明的是，我们需要将以Filter属性筛选出来的数据集打开才能对其进行操作。例如： Set Dy1=db.CreateDynaset (input) Dy1.Filter=物资名称 like 石* Set Dy2.Dy1.CreateDynaset () 用Find 方法查询。 Find查询有Findfirst findnext 两个方法，每次查询到一个记录。例如： SELECT [DICTINCT/ALL]----查询目标列 FROM tableexpression ----------表名/视图名 [db中包含表：input 字段名：物资名称、供货单位、供货日期、到货数量、总金额.等等 。 2.2.2定义窗体及控件：如下表 如图（1）：单项查询模块窗体图 2.2.3编写程序代码： 上述设计完成后，可以对窗体及控件的事件编写代码： 变量定义 Dim my_db As Database Dim my_dr As Recordset Dim Field_val1 As String Dim Field_val3 As Date Dim Field_val32 As Date Dim Field_val4 As Integer Dim Field_val42 As Integer Dim Search_txt As Integer Private Sub Form_Load() Search_txt = 1 Text1.Text = Text2.Text = Label2.Caption = End Sub Private Sub mand1_Click() 确定按钮 Set my_dr = my_db.OpenRecordset(input) ss1 = select * from input p; Field_val1 ) Data1.RecordSource = ss1 Data1.Refresh Case 2 若选择供货单位 . . . Case 3 若选择供货日期 Field_val3 = Text1.Text Field_val32 = Text2.Text If Val(DateDiff(d, (Text1.Text), (Text2.Text))) gt;= 0 Then Set my_db = OpenDatabase(d:\zu_vb\in_db.mdb) Set my_dr = my_db.OpenRecordset(input) ss1 = select * from input p; # _ Field_val3 # _ and # Field_val32 # Data1.RecordSource = ss1 Data1.Refresh Else zz = MsgBox(您输入的起始日期比终止日期大，请重新输入！, vbCritical, 严重警告,输入无效！) End If Case 4 若选择到货数量 Field_val4 = Text1.Text Field_val42 = Text2.Text Set my_db = OpenDatabase(d:\zu_vb\in_db.mdb) Set my_dr = my_db.OpenRecordset(input) ss1 = select * from input p; Field_val4 _ and Field_val42 Data1.RecordSource = ss1 Data1.Refresh Case 5 . . . End Select En