VB5.0中數(shù)據(jù)庫查詢模塊

VB5.0中數(shù)據(jù)庫查詢模塊

摘要：查詢模塊是數(shù)據(jù)庫管理系統(tǒng)中不可缺少的部分。本文介紹在環(huán)境下四種數(shù)據(jù)庫查詢的實現(xiàn)方法，并主要介紹了使用SELECT-SQL語句來實現(xiàn)數(shù)據(jù)庫的查詢功能

關(guān)鍵字：數(shù)據(jù)庫表查詢SQL

VB全稱VisualBasic,是微軟公司推出的基于Windows的可視化編程環(huán)境，以其簡單易學(xué)、編程簡潔、程序集成化高、功能強大而倍受程序員及廣大電腦愛好者的青睞。它在數(shù)據(jù)庫應(yīng)用方面也有相當(dāng)強大的功能。

查詢模塊是數(shù)據(jù)庫管理系統(tǒng)中不可缺少的部分。在VB中進(jìn)行數(shù)據(jù)庫記錄查詢操作，根據(jù)打開數(shù)據(jù)庫的方式來確定。大概有四種查詢方法：SEEK方法查詢、FILTER屬性查詢、Find方法查詢、SQL查詢。本文對前三種方法只作簡單說明，著重介紹第四種SQL查詢方法。

1、SEEK方法查詢、FILTER屬性查詢、Find方法查詢的簡單說明。

用SEEK方法查詢：

這種方法只使用于以O(shè)PENbr方式打開的數(shù)據(jù)表，而且在查詢之前必須要對查詢字段建立索引文件，由于已建立了索引文件，所以查詢速度快，這種方式結(jié)果是將指針移到符合條件的第一個記錄。例如：

SETTB=

=”NAMEINDEX”

”=”,“石腦油”

用FILTER屬性查詢：

FILTER屬性查詢是用來過濾數(shù)據(jù)的，只要我們給定過濾條件就可以將所需的記錄篩選出來。需要說明的是，我們需要將以Filter屬性篩選出來的數(shù)據(jù)集打開才能對其進(jìn)行操作。例如：

SetDy1=

=”物資名稱like‘石*’”

用Find方法查詢。

Find查詢有Findfirstfindnext兩個方法，每次查詢到一個記錄。例如：

SetDy=

S=”到貨數(shù)量>100and物資名稱like‘石腦油’”

2、用SQL查詢。

2．1、Select-SQL查詢語句的格式：

SQL即結(jié)構(gòu)化查詢語言，是查詢關(guān)系型數(shù)據(jù)庫的常用語言。由于SQL語言使用方便、功能豐富、簡單易學(xué)得到很快的應(yīng)用和推廣，是各種關(guān)系型數(shù)據(jù)庫的公用語言。使用SQL查詢可以從一個表或多個表或視圖中對數(shù)據(jù)庫進(jìn)行查詢。它的核心語句是Select-SQL語句。

Select-SQL查詢語句的格式：

SELECT[DICTINCT/ALL]----查詢目標(biāo)列

FROMbrexpression----------表名/視圖名

[WHERE]---------------------------條件

[GROUPBY...]--------------------將查詢結(jié)果的記錄分組

[HAVING...]------------------------滿足條件的分組

[ORDERBY...]---------------------對查詢結(jié)果進(jìn)行排序

下面應(yīng)用筆者完成的《供應(yīng)處物資管理軟件》為例，。說明使用SELECT-SQL查詢語句實現(xiàn)查詢模塊具體方法。

單項查詢模塊的實現(xiàn)：

應(yīng)用的數(shù)據(jù)庫in_中包含表：input字段名：物資名稱、供貨單位、供貨日期、到貨數(shù)量、總金額…….等等。

定義窗體及控件：如下表

如圖：單項查詢模塊窗體圖

編寫程序代碼：

上述設(shè)計完成后，可以對窗體及控件的事件編寫代碼：

‘變量定義

Dimmy_dbAsDatabaseDimmy_drAsRecordsetDimField_val1AsStringDimField_val3AsDate

DimField_val32AsDate

DimField_val4AsInteger

DimField_val42AsInteger

DimSearch_txtAsInteger

PrivateSubForm_LoadSearch_txt==""=""=""EndSub

PrivateSubCommand1_Click‘確定按鈕

SelectCaseSearch_txt

Case1‘若選擇“物資名稱”

Field_val1=

Setmy_db=OpenDatabase

Setmy_dr=my_

ss1="select*frominputwhere"

=ss1

Case2‘若選擇“供貨單位”

...

Case3‘若選擇“供貨日期”

Field_val3=

Field_val32=

IfVal,))>=0Then

Setmy_db=OpenDatabase

Setmy_dr=my_

ss1="select*frominputwhere供貨日期between"&"#"_

&Field_val3&"#"_&"and"&"#"&Field_val32&"#"==MsgBox

EndIf

Case4‘若選擇“到貨數(shù)量”

Field_val4=

Field_val42=

Setmy_db=OpenDatabase

Setmy_dr=my_

ss1="select*frominputwhere到貨數(shù)量between"&Field_val4_

&"and"&Field_val42

=ss1

Case5

...

EndSelect

EndSub

PrivateSubCommand2_Click‘取消查詢

=""

=""

EndSub

PrivateSubCommand3_Click‘結(jié)束查詢

UnloadMe

EndSub

PrivateSubOption1_Click‘選定“物資名稱”字段

Search_txt=1

=""

=""

=False‘text2設(shè)為無效

=False‘text2設(shè)為不顯示

EndSub

PrivateSubOption2_Click‘選定“供貨單位”字段

EndSub

PrivateSubOption3_Click‘選定“供貨日期”字段Search_txt==""=Date‘起始日期=Date‘終止日期

="至"

=True

=True

EndSub

PrivateSubOption4_Click‘選定“到貨數(shù)量”字段

Search_txt=4

=""

=""

=Format‘設(shè)置字段格式為數(shù)值型

=Format‘設(shè)置字段格式為數(shù)值型

="至"

=True

=True

EndSub

PrivateSubOption5_Click‘選定“總金額”字段

EndSub

PrivateSubText1_LostFocus

‘判斷如果選定的是“供貨日期”字段，text1的輸入值必須是日期型的IfSearch_txt=3Then

IfNotIsDateThen

z=MsgBox

EndIf

EndIf

EndSub

PrivateSubText2_LostFocus

‘判斷如果選定的是“供貨日期”字段，text2的輸入值必須是日期型的

IfSearch_txt=3Then

=Format

IfNotIsDateThen

z=MsgBox

EndIf

EndIf

EndSub

2．3多項復(fù)合查查詢模塊的實現(xiàn)：

應(yīng)用的數(shù)據(jù)庫in_中包含表：input字段名：物資名稱、供貨單位、供貨日期、到貨數(shù)量、總金額…….等等。

定義窗體及控件：如下表如圖多項查詢模塊窗體圖

編寫程序代碼：

上述設(shè)計完成后，可以對窗體及控件的事件編寫代碼：

下面程序可實現(xiàn)“物資名稱”為某值，供貨日期在一定范圍的采購明細(xì)的查詢。

‘定義變量

Dimmy_dbAsDatabaseDimmy_drAsRecordsetDimcom_txtAsStringDimtxt1AsDateDimtxt2AsDatePrivateSubCommand1_Click

‘判斷如果輸入值不是日期型的，是無效值IfNotIsDateThenz=MsgBox

Else

IfNotIsDateThen

z=MsgBox

Else

IfVal,))>=0Then

''''''''''''*****設(shè)置條件*********

com_txt=

txt1=

txt2=

Setmy_db=OpenDatabase

Setmy_dr=my_

ww1="select*frominputwhere)"

=ww1

Else

zz=MsgBox

EndIf

EndIf

EndIf

EndSub

PrivateSubForm_Load

‘將項目“石腦油”、輕烴、純苯………添加到combo1控件中

"石腦油"

"輕烴"

"純苯"

"丙烯腈"

"甲基丙烯酸甲脂"

"聚丁二烯乳膠"

"C2"

"C3/C4"

"C5"

"鹽酸"

"液堿"

="石腦油"‘設(shè)置comb