VB5.0中數(shù)據(jù)庫查詢模塊的實現(xiàn)

1、VB5.0中數(shù)據(jù)庫查詢模塊的真現(xiàn)摘要：查詢模塊是數(shù)據(jù)庫挨面系統(tǒng)中沒有成缺少的部分。本文介紹正在vb5.0狀況下四種數(shù)據(jù)庫查詢的真現(xiàn)要發(fā)，并主要介紹了操做selet-sql語句去真現(xiàn)數(shù)據(jù)庫的查詢成效閉鍵字：vb5.0數(shù)據(jù)庫表查詢sqlvb齊稱visualbasi,是微硬公司推出的基于inds的可視化編程狀況，以其簡樸易教、編程煩瑣、程序散成化下、成效強衰而倍受程序員及寬年夜電腦愛好者的喜歡。它正在數(shù)據(jù)庫使用圓里也有相等強衰的成效。查詢模塊是數(shù)據(jù)庫挨面系統(tǒng)中沒有成缺少的部分。正在vb及第止數(shù)據(jù)庫紀錄查詢操做，根據(jù)翻開數(shù)據(jù)庫的方法去肯定。年夜要有四種查詢要發(fā)：seek要發(fā)查詢、filter屬性查詢、

2、find要發(fā)查詢、sql查詢。本文對前三種要發(fā)只做簡樸分析，側(cè)重介紹第四種sql查詢要發(fā)。1、seek要發(fā)查詢、filter屬性查詢、find要發(fā)查詢的簡樸分析。用seek要發(fā)查詢：那種要發(fā)只操做于以pentable方法翻開的數(shù)據(jù)表，而且正在查詢之前必需要對查詢字段創(chuàng)立索引文件，因為已創(chuàng)立了索引文件，所以查詢速度快，那種方法結(jié)果是將指針移到切開前提的第一個紀錄。例如：settb=db.pentable(“input)tb.index=naeindextb.seek=,“石腦油用filter屬性查詢：filter屬性查詢是用去過濾數(shù)據(jù)的，只需我們給定過濾前提便可以將所需的紀錄挑選出去。需要分析的

3、是，我們需要將以filter屬性挑選出去的數(shù)據(jù)散翻開才華對其舉止操做。例如：setdy1=db.reatedynaset(“input)dy1.filter=物質(zhì)稱號like石*用find要發(fā)查詢。find查詢有findfirstfindnext兩個要發(fā)，每次查詢到一個紀錄。例如：setdy=db.reatedynaset(“input)s=到貨數(shù)量100and物質(zhì)稱號like石腦油dy.findfirstsdy.findnexts2、用sql查詢。21、selet-sql查詢語句的格局：sqlstruturequerylanguage即規(guī)劃化查詢語止，是查詢閉連型數(shù)據(jù)庫的經(jīng)常使用語止。因為s

4、ql語止操做便當(dāng)、成效豐富、簡樸易教獲得很快的使用戰(zhàn)推行，是各種閉連型數(shù)據(jù)庫的公用語止。操做sql查詢可以從一個表或多個表或視圖中對數(shù)據(jù)庫舉止查詢有閉sql的更多疑息，請參閱相閉書籍，本文沒有多介紹。它的核心語句是selet-sql語句。selet-sql查詢語句的格局：seletditint/all-查詢目的列frtableexpressin-表名/視圖名here-前提grupby.-將查詢結(jié)果的紀錄分組having.-開意前提的分組rderby.-對查詢結(jié)果舉止排序上里使用筆者完成的?供應(yīng)處物質(zhì)挨面硬件?為例，。分析操做selet-sql查詢語句真現(xiàn)查詢模塊詳細要發(fā)。2.2單項查詢模塊的真

5、現(xiàn)：包含表：input字段名：物質(zhì)稱號、供貨單位、供貨日期、到貨數(shù)量、總金額.等等。定義窗體及控件：以下表主要控件及稱號屬性設(shè)置分析frae(frae1)aptin字段挑選ptinbuttn(ptin1)aptin物質(zhì)稱號字段挑選ptinbuttn(ptin2)aptin供貨單位ptinbuttn(ptin3)aptin供貨日期ptinbuttn(ptin4)aptin到貨數(shù)量ptinbuttn(ptin5)aptin總金額textbx(text1)text為空查詢值textbx(text2)text為空andbuttn(and1)aptin肯定肯定本次查詢andbuttn(and2)apti

6、n挨消挨消本次查詢andbuttn(and3)aptin完畢完畢查詢data(data1)aptin數(shù)據(jù)閱讀databasenaed:zu_vbin_db.dbdbgrid(dbgrid1)datasuredata1查詢結(jié)果表示如圖1：單項查詢模塊窗體圖程序代碼：上述圓案完成后，可以對窗體及控件的事變編寫代碼：變量定義diy_dbasdatabasediy_drasrerdsetdifield_val1asstringdifield_val3asdatedifield_val32asdatedifield_val4asintegerdifield_val42asintegerdisearh_t

7、xtasintegerprivatesubfr_lad()searh_txt=1text1.text=text2.text=label2.aptin=endsubprivatesuband1_lik()肯定按鈕seletasesearh_txtase1假設(shè)挑選“物質(zhì)稱號field_val1=text1.textsety_db=pendatabase(d:zu_vbin_db.db)sety_dr=y_db.penrerdset(input)ss1=selet*frinputhere(物質(zhì)稱號=field_val1)data1.rerdsure=ss1data1.refreshase2假設(shè)挑選“

8、供貨單位.ase3假設(shè)挑選“供貨日期field_val3=text1.textfield_val32=text2.textifval(datediff(d,(text1.text),(text2.text)=0thensety_db=pendatabase(d:zu_vbin_db.db)sety_dr=y_db.penrerdset(input)ss1=selet*frinputhere供貨日期beteen#_field_val3#_and#field_val32#data1.rerdsure=ss1data1.refreshelsezz=sgbx(您輸進的起初日期比截至日期年夜，請從頭輸進

9、！,vbritial,寬峻警告,輸進無效！)endifase4假設(shè)挑選“到貨數(shù)量field_val4=text1.textfield_val42=text2.textsety_db=pendatabase(d:zu_vbin_db.db)sety_dr=y_db.penrerdset(input)ss1=selet*frinputhere到貨數(shù)量beteenfield_val4_andfield_val42data1.rerdsure=ss1data1.refreshase5.endseletendsubprivatesuband2_lik()挨消查詢text1.text=text2.text

10、=endsubprivatesuband3_lik()完畢查詢unladeendsubprivatesubptin1_lik()選定“物質(zhì)稱號字段searh_txt=1text1.text=label2.aptin=text2.enabled=falsetext2設(shè)為無效text2.visible=falsetext2設(shè)為沒有表示text1.setfusendsubprivatesubptin2_lik()選定“供貨單位字段略endsubprivatesubptin3_lik()選定“供貨日期字段searh_txt=3text1.text=text1.text=date起初日期text2.te

11、xt=date截至日期label2.aptin=至text2.enabled=truetext2.visible=truetext1.setfusendsubprivatesubptin4_lik()選定“到貨數(shù)量字段searh_txt=4text1.text=text2.text=text1.text=frat(text1.text,#,#,#0.00)設(shè)置字段格局為數(shù)值型text2.text=frat(text2.text,#,#,#0.00)設(shè)置字段格局為數(shù)值型label2.aptin=至text2.enabled=truetext2.visible=truetext1.setfusen

12、dsubprivatesubptin5_lik()選定“總金額字段略endsubprivatesubtext1_lstfus()斷定假設(shè)選定的是“供貨日期字段，text1的輸進值必須是日期型的ifsearh_txt=3thenifntisdate(text1.text)thenz=sgbx(犯警日期!請從頭輸進！,vbritial,寬峻警告，輸進無效！)text1.setfusendifendifendsubprivatesubtext2_lstfus()斷定假設(shè)選定的是“供貨日期字段，text2的輸進值必須是日期型的ifsearh_txt=3thentext2.text=frat(text2

13、.text,yyyy-dd)ifntisdate(text2.text)thenz=sgbx(犯警日期!請從頭輸進！,vbritial,寬峻警告，輸進無效！)text2.setfusendifendifendsub23多項復(fù)開查查詢模塊的真現(xiàn)：包含表：input字段名：物質(zhì)稱號、供貨單位、供貨日期、到貨數(shù)量、總金額.等等。定義窗體及控件：以下表主要控件及稱號屬性設(shè)置分析frae(frae1)aptin查詢前提挑選bbxaptin為空物質(zhì)稱號挑選textbx(text1)text為空起初日期textbx(text2)text為空截至日期andbuttn(and1)aptin肯定肯定本次查詢and

14、buttn(and2)aptin完畢完畢查詢data(data1)aptin數(shù)據(jù)閱讀databasenaed:zu_vbin_db.dbdbbrid(dbgrid1)datasuredata1查詢結(jié)果表示如圖2多項查詢模塊窗體圖程序代碼：上述圓案完成后，可以對窗體及控件的事變編寫代碼：上里程序可真現(xiàn)“物質(zhì)稱號為某值，供貨日期正在一定范圍的采購明細的查詢。定義變量diy_dbasdatabasediy_drasrerdsetdi_txtasstringditxt1asdateditxt2asdateprivatesuband1_lik()斷定假設(shè)輸進值沒有是日期型的，是無效值ifntisdate

15、(text1.text)thenz=sgbx(犯警起初日期，請從頭輸進！,vbritial,寬峻警告，輸進無效！)text1.setfuselseifntisdate(text2.text)thenz=sgbx(犯警截至日期，請從頭輸進！,vbritial,寬峻警告，輸進無效！)text2.setfuselseifval(datediff(d,(text1.text),(text2.text)=0then*設(shè)置前提*sety_db=pendatabase(d:zu_vbin_db.db)sety_dr=y_db.penrerdset(input)1=selet*frinputhere(物質(zhì)稱號

16、=_txt_and(供貨日期beteen#txt1#_and#txt2#)data1.rerdsure=1data1.refreshelsezz=sgbx(您輸進的起初日期比截至日期年夜，請從頭輸進！,vbritial,寬峻警告,輸進無效！)endifendifendifendsubprivatesubfr_lad()將工程“石腦油、沉烴、雜苯增減到b1控件中b1.addite石腦油b1.addite沉烴b1.addite雜苯b1.addite丙烯腈b1.addite甲基丙烯酸甲脂b1.addite散丁兩烯乳膠b1.addite2b1.addite3/4b1.addite5b1.addite鹽酸