用VB查詢數(shù)據(jù)庫記錄四法

在VB中進(jìn)行數(shù)據(jù)庫記錄的查詢操作，必需根據(jù)打開數(shù)據(jù)庫的方式來確定。以VB3.0為例，數(shù)據(jù)集對(duì)象有Table、Dynaset、Snapshot三種，下面四種查詢方法分別適用于以上面不同的對(duì)象方式打開的數(shù)據(jù)庫。用SEEK方法查詢。這種方法只使用于以O(shè)pentable方式打開的Table類型的數(shù)據(jù)表，而且在查詢之前必須要以查詢字段建立索引文件，由于已建立了索引文件，所以查詢速度很快，這種方式的查詢結(jié)果是將指針移到符合條件的第一個(gè)記錄。例如：settb=db.opentable("demo")tb.index="nameindex”tb.seek"="，"張三”用FILTER屬性查詢。Filter屬性是Dynaset和Snapshot對(duì)象才具備的，所以也只能適用于這兩者，不能用于Table0Filter是用來過濾數(shù)據(jù)的，只要我們給定過濾條件就可以將所需的記錄篩選出來。需要說明的是，我們需要將以Filter屬性篩選出來的數(shù)據(jù)集打開才能對(duì)其操作。例如：setdy1=db.createDynaset("demo”)dy1.filter=”姓名like’劉*’”setdy2=dy1.createDynaset()3.用FIND方法查詢。FIND適用于Dynaset和Snapshot對(duì)象，有Findfirst和Findnext兩個(gè)方法，每次查詢到一個(gè)記錄。例如：setdy=db.createDynaset(”demo”：)、=”工資＞160and姓名like’劉火’”dy.findfirstsdy.findnexts4.用SQL查詢。SQL是一種結(jié)構(gòu)化數(shù)據(jù)查詢語言，SQL也只能適用Dynaset和Snapshot數(shù)據(jù)集對(duì)象，這種方法是根據(jù)SQL條件生成一個(gè)數(shù)據(jù)集對(duì)象。例如：s="select*fromdemowhere姓名like’劉*’”setdy=db.createDynaset(s)〖注〗：本文中的db為數(shù)據(jù)庫對(duì)象，打開方式為：例如：setdb=OpenDatabase(”C：\VB\SAMPLE.MDB”)。談?wù)刅B的數(shù)據(jù)庫編程方式成都鄭劍敏VB全稱VisualBasic,是微軟公司推出的基于Basic語言的可視化編程環(huán)境，以其簡單易學(xué)功能強(qiáng)大而倍受廣大電腦愛好者的青睞。VB的數(shù)據(jù)庫編程方面按其難易程度可分為三類(由易到難)；?使用數(shù)據(jù)庫控制項(xiàng)和綁定控制項(xiàng)?使用數(shù)據(jù)庫對(duì)象變量進(jìn)行編程?直接調(diào)用ODBC2.0API在使用VB進(jìn)行數(shù)據(jù)庫編程時(shí),通常,會(huì)首先選擇三種基本方法之一來進(jìn)行數(shù)據(jù)庫應(yīng)用程序的方案設(shè)計(jì)，現(xiàn)在就將以上三種設(shè)計(jì)方法的適應(yīng)范圍及其優(yōu)缺點(diǎn)進(jìn)行一個(gè)比較。1使用數(shù)據(jù)庫控制項(xiàng)和綁定控制項(xiàng)1.1優(yōu)點(diǎn)它是三種方法中編碼量最小的不必了解CDBC2.0API的細(xì)節(jié)允許使用標(biāo)準(zhǔn)的和第三方廠商制訂的控制項(xiàng)簡化了錯(cuò)誤處理支持所有的動(dòng)態(tài)集方法及屬性1.2缺點(diǎn)不能存取快照對(duì)象(snapshop)對(duì)象或表格對(duì)象(都屬于記錄集對(duì)象)不能存取數(shù)據(jù)庫集合，比如表定義(TableDefs)字段(Fieds),索引(Indexes)及查詢定義(QueryDefs)只能存取部分ODBC2.0管理函數(shù)不能進(jìn)行真正的事務(wù)處理有限的錯(cuò)誤診斷功能1.3應(yīng)用對(duì)中小規(guī)模的數(shù)據(jù)庫表(通常少于一千條記錄)只進(jìn)行簡章的瀏覽操作基本SQL查詢所對(duì)應(yīng)的結(jié)果集長度有限(通常結(jié)果集的記錄數(shù)小于一百，這些記錄從一個(gè)或兩個(gè)長度有限的表中檢索出來)應(yīng)用程序的數(shù)據(jù)輸入/輸出項(xiàng)較少(通常只涉及一個(gè)或兩個(gè)長度有限的表、并且表中的字段數(shù)在10個(gè)左右且不具有關(guān)系完整性限制2使用數(shù)據(jù)庫對(duì)象變量進(jìn)行編程2.1優(yōu)點(diǎn)可以在程序中存取ODBC2.0的管理函數(shù)可以控制多種記錄集類型:Dynaset、Snapshop及Table記錄集合對(duì)象可以存取存儲(chǔ)過程和查詢動(dòng)作可以存取數(shù)據(jù)庫集合對(duì)象，例如TableDefs、Fields、Indexes及QueryDefs具有真正的事務(wù)處理能力，包括啟動(dòng)事務(wù)(Begintrans)、提交事務(wù)(CommitTrans^回滾事務(wù)(Rollback)缺點(diǎn)比使用數(shù)據(jù)控制項(xiàng)的方法編碼量較大只能進(jìn)行間接的錯(cuò)誤處理和錯(cuò)誤恢復(fù)對(duì)每個(gè)數(shù)據(jù)庫操作沒有細(xì)粒度的控制對(duì)結(jié)果集和包含結(jié)果集的內(nèi)豐資源的操作受到限制同直接使用ODBC2.0API函數(shù)的方法相比性能較低應(yīng)用應(yīng)用程序需要在執(zhí)行期間動(dòng)態(tài)地建立表、字段及索引應(yīng)用程序涉及同步更新幾張表(但在邏輯上保持一致性)的復(fù)雜事務(wù)應(yīng)用程序使用結(jié)果集而不是Dynaset的窗體(FORMS)，例如Snapshots或Tables,這里是設(shè)計(jì)要考慮的關(guān)鍵應(yīng)用程序的表非常大，多于1000條記錄應(yīng)用程序具有復(fù)雜的數(shù)據(jù)輸入/輸出項(xiàng)，它涉及許多內(nèi)部相關(guān)的字段并且包括數(shù)據(jù)庫參照完整性或一致性規(guī)則應(yīng)用程序需要執(zhí)行一些額外的操作和對(duì)結(jié)果集的查詢后處理，尤其是需要很高的數(shù)據(jù)格式化顯示應(yīng)用程序需要利用復(fù)雜的ODBC管理功能以選擇、配置、校驗(yàn)及建立各種數(shù)據(jù)源應(yīng)用程序需要在執(zhí)行期間“顯示”數(shù)據(jù)庫的基本結(jié)構(gòu)應(yīng)用程序需要使用復(fù)雜的多碼索引方式來檢索或更新記錄3直接調(diào)用ODBC2.0API3.1優(yōu)點(diǎn)可以直接參與結(jié)果集的開發(fā)、管理及規(guī)范化對(duì)結(jié)果集游標(biāo)提供了更多的控制，并且提供了更多的游標(biāo)類型和執(zhí)行動(dòng)作能夠確定ODBC驅(qū)動(dòng)程序及SQL的一致性級(jí)別可以更好地控制Windows的執(zhí)行調(diào)度及資源利用其他方面同其他方法差不多，因此這種方法很可能具有最好的性能3.2缺點(diǎn)較其他兩種方法需要大量的代碼代碼復(fù)雜并且要求程序員具有編制API調(diào)用的經(jīng)驗(yàn)在網(wǎng)絡(luò)上VisualBasic運(yùn)行期間庫的錯(cuò)誤處理缺乏安全性，因此代碼運(yùn)行期間出現(xiàn)的錯(cuò)誤所造成的后果會(huì)非常嚴(yán)重3.3應(yīng)用如果系統(tǒng)環(huán)境為客戶機(jī)/服務(wù)器模式下的大規(guī)模多用戶環(huán)境，那么應(yīng)用程序必須都能夠準(zhǔn)確地解決可能出現(xiàn)的系統(tǒng)錯(cuò)誤和失敗應(yīng)用程序強(qiáng)調(diào)資源使用，這里如何對(duì)內(nèi)存、網(wǎng)絡(luò)服務(wù)器資源進(jìn)行直接控制是首要的考慮因素應(yīng)用程序使用超大規(guī)模數(shù)據(jù)庫，例如數(shù)據(jù)庫表可能包含幾萬或幾十萬條記錄VB訪問數(shù)據(jù)庫方法簡介南京河海大學(xué)陳鵬VisualBasic（簡稱VB）是一種可視化的、事件驅(qū)動(dòng)型的Windows應(yīng)用程序開發(fā)工具，它在GUI設(shè)計(jì)、繪圖、制表、運(yùn)算、通信和多媒體開發(fā)方面都具有簡單易行、功能強(qiáng)大等優(yōu)點(diǎn)，所以越來越受到開發(fā)人員的親睞。同時(shí)，VB在數(shù)據(jù)庫開發(fā)方面也具有Foxpro所遠(yuǎn)不能及的強(qiáng)大功能。VB能夠讀取和訪問Access、Excel、DbaseX、Foxpro、Btrieve和ODBC等多種數(shù)據(jù)庫，并能利用VB自身所帶的數(shù)據(jù)庫引擎創(chuàng)建Access數(shù)據(jù)庫。所以VB在管理信息系統(tǒng)（MIS）的開發(fā)和建設(shè)方面得到了是益廣泛的應(yīng)用?，F(xiàn)在，筆者就VB應(yīng)用數(shù)據(jù)庫的一些方法作一簡單的介紹。VB訪問數(shù)據(jù)庫通常有三種途徑：第一，通過數(shù)據(jù)庫控制控件DataControl訪問；第二，通過VB提供的數(shù)據(jù)庫對(duì)象變量編程訪問；第三，通過ODBC接口訪問ODBCAPI函數(shù)。在這三種方法中，第一種方法操作起來最方便、靈活、易于掌握，同時(shí)也最能體現(xiàn)VisualBasic面向?qū)ο蟮奶厣?，故這里以Foxpro2.5的數(shù)據(jù)庫為例，介紹數(shù)據(jù)庫控制控件（DataControl）訪問數(shù)據(jù)庫的方法與步驟：一、在Form窗口中加入DataControl控件用鼠標(biāo)在工具窗口的DataControl控件按鈕上雙擊左鍵，該對(duì)象即出現(xiàn)在Form窗口的中間（控件名為Datal），用鼠標(biāo)調(diào)整好控件的大小及位置。如工具箱中無此控件，可打開主菜單的Tools/Custom，在列表中選中MicrosoftDataControl復(fù)選框，確認(rèn)后即可將此控件加入到工具箱中去。二、設(shè)置聯(lián)接庫用鼠標(biāo)單擊Datal，按下F4，打開屬性窗口，設(shè)置Connect屬性為Foxpro2.5，設(shè)置DatabaseName為c:\foxprow\student.dbf（假設(shè)磁盤上已有這個(gè)文件）。三、加入字段顯示、編輯控件（數(shù)據(jù)庫捆綁控件）在Form窗口中加入DGrid控件，如不在此控件，可打開主菜單Tools/Custom，在列表中選擇ApexDataBroundGrid復(fù)選框，確認(rèn)后即可向工具箱中加入此控件。在Form窗口中單擊選中此控件（DGridl），按下F4打開屬性窗口，設(shè)置Datasource屬性為Datal，在Form窗口中用鼠標(biāo)右鍵單擊控件DGridl，選擇RetrieveFields；再用鼠標(biāo)右鍵單擊控件DGridl，選擇Edit，用鼠標(biāo)調(diào)整控件及有關(guān)字段大??；再用鼠標(biāo)右鍵單擊控件DGridl，選擇Properties（屬性），在彈出窗口中，選擇Colums標(biāo)簽，在下拉列表中選Columl，將Caption屬性改為“學(xué)號(hào)”，選擇Colum2,Caption屬性改為“姓名”，選擇Colum3、4將Caption屬性改為“性別”、“專業(yè)”，按下“確定”按鈕。再向Form窗口中加入一個(gè)按鈕控件，將Caption屬性設(shè)置為“退出”，雙擊該控件(Command!)，在代碼窗口中寫入“END”，存盤。此時(shí)，一個(gè)具備數(shù)據(jù)庫讀寫、瀏覽功能的應(yīng)用程序就建立了，按下F5運(yùn)行，通過單擊Data!的各按鈕即可看出當(dāng)前記錄的變化情況。在此基礎(chǔ)上，我們還可以借助數(shù)據(jù)庫控制控件的有關(guān)屬性和方法進(jìn)行更靈活的操作和控制。1、設(shè)置Data1.Visiable=False’將控件設(shè)為不可見2、將按鈕Command2,3,4,5,6,7的Caption屬性分別設(shè)置為“追加”、“首記錄”、“上一條”、“下一條”、“尾記錄”、“刪除”，雙擊各按鈕，分別寫入事件代碼：SubCommand1-Click()’關(guān)閉應(yīng)用程序EndEndSubSubCommand2-Click()’追加記錄Datal.Recordset.AddnewDatal.Recordset.UpdateDatal.Recordset.MoveLastEndSubSubCommand3-Click()’移向首記錄Data1.Recordset.MoveFirstEndSubSubCommand4-Click()’移向上一條記錄Datal.Recordset.MovePreviusIfDatal.Recordset.BofThenDatal.Recordset.MoveFirstEndIfEndSubSubCommand3-Click()’移向尾記錄Datal.Recordset.MoveLastEndSubSubCommand4-Click()’移向下一條記錄Datal.Recordset.MoveNextIfDatal.Recordset.EofThenDatal.Recordset.MoveLastEndIfEndSub除此之外，數(shù)據(jù)庫控制控件還有Bookmark、RecordCount等許多屬性與方法，能對(duì)數(shù)據(jù)庫進(jìn)行各種方便的操作。由此可見，數(shù)據(jù)庫控制控件具有數(shù)據(jù)庫操作方面的強(qiáng)大功能。另外，數(shù)據(jù)庫控制控件的RecordSource屬性可用一個(gè)SQL語句賦值，以此來有效地調(diào)用SQL語句，從而發(fā)揮SELECT語句強(qiáng)大的功能，更使數(shù)據(jù)庫控制控件(DataControl)錦上添花。真正刪除數(shù)據(jù)庫的記錄大家知道，缺省情況下，VB刪除記錄只是把記錄作上個(gè)刪除標(biāo)志而已，并沒有真正刪除。要真正刪除記錄，你可以使用VB提供的以下方法：BeginTrans、CommitTrans、RollBack。其中，BeginTrans方法開始記錄數(shù)據(jù)庫的變動(dòng)，CommitTrans方法確認(rèn)數(shù)據(jù)庫的變動(dòng)，而RollBack方法則可以恢復(fù)被刪除或修改的記錄。它們可以嵌套使用。因此，要恢復(fù)被刪除的記錄，應(yīng)該在使用BeginTrans方法之后及使用CommiTrans方法之前使用RollBack方法。不用DATA控件操作數(shù)據(jù)庫文件大家知道，在VB中如果使用DATA控件訪問數(shù)據(jù)庫，那么程序執(zhí)行就必須要一些大型DLL支持。這對(duì)于安裝盤的發(fā)放是一個(gè)大問題。那么，在VB中能不能不用DATA控件訪問數(shù)據(jù)庫呢？在VB中不用DATA控件而訪問數(shù)據(jù)庫，只有一法：將數(shù)據(jù)庫文件當(dāng)成2進(jìn)制文件打開。但此法最大困難就是你必須了解數(shù)據(jù)庫文件的結(jié)構(gòu)形式。比如：FoxBase的DBF文件(我不了解其它數(shù)據(jù)庫的文件結(jié)構(gòu)，大家可以去查查)它由記錄頭和記錄構(gòu)成。而記錄頭又由兩部分構(gòu)成：記錄頭=數(shù)據(jù)庫說明+字段說明。下面列出FoxBase數(shù)據(jù)庫說明：FoxBase數(shù)據(jù)庫說明起始地址字節(jié)數(shù)含義11FoxBase數(shù)據(jù)庫文件標(biāo)志2-43最后一次修改日期，3個(gè)字節(jié)分別為年、月、日5-84文件記錄總數(shù)9-102記錄頭長度11-122每個(gè)記錄長度13-2220未使用下面列出字段說明，每個(gè)字段由32個(gè)字節(jié)構(gòu)成。字段說明起始地址字節(jié)數(shù)含義1-1111字段名稱121字段類型(分別為C、N、D、L等)13-164該字段在文件中地址1字段長度1小數(shù)位數(shù)19-3214未使用知道了字段信息說明，就可以使用復(fù)合變量+2進(jìn)制文件來操作數(shù)據(jù)庫了。Text轉(zhuǎn)換為AccessMDBText文件類型在很多軟件中都為一般應(yīng)用程序與數(shù)據(jù)庫之間架起一座橋梁。你可以使用TextISAM驅(qū)動(dòng)程序和SQL來把Text文件轉(zhuǎn)換成AccessMDB數(shù)據(jù)庫文件，首先，為文本文件創(chuàng)建一個(gè)SCHEMA.INI文件。然后，你可以使用下面的代碼來實(shí)現(xiàn)轉(zhuǎn)換：DimdbAsDatabase,tblasTableDefSetdb=DBEngine.CreateDatabase(App.Path&"\mymdb.mdb",dbLangGeneral,dbVersion_0)Settbl=db.CreateTableDef("Temp")tbl.Connect="Text;database=c:\vbpj\data"tbl.SourceTableName="Customer#txt"db.TableDefs.Appendtbldb.Execute"SelectTemp.*intoNewTablefromTemp"db.TableDefs.Deletetbl.Namedb.CloseSettbl=NothingSetdb=Nothing鎖住數(shù)據(jù)庫中的表把表達(dá)式True=False放到表的ValidationRule屬性就能鎖上。HardLockTable?實(shí)現(xiàn)了該功能。聲明PublicMyDBAsDatabaseDimDummyAsInteger函數(shù)FunctionHardLockTable(ByValwhichActionAsString,?ByValaTableAsString)AsIntegerOnErrorGoToHardLockTableErrorHardLockTable=TrueSelectCasewhichActionCase"Lock"MyDB.TableDefs(aTable).VilidationRule="True=False"MyDB.TableDefs(aTable).VdidationText=?"Thistablelockedvia"&?"ValidationRuleon"&NowCase"UnLock"MyDB.TableDefs(aTable).VdidationRule=""MyDB.TableDefs(aTable).VdidationText=""Case"TestThenUnLock"IfMyDB.TableDefs(aTable).ValidationRule="True=False"ThenMyDB.TableDefs(aTable).VdidationRule=""MyDB.TableDefs(aTable).VdidationText=""EndIfEndSelectHardLockTableErrorExit:'subFlushDBEngine'optional,seenextsuggestionExitFunctionHardLockTableError:HardLockTable=FalseMsgBoxError$&"error"&"inHardLockTabletrying"&"to"&whichAction&""&aTableResumeHardLockTableErrorExitEndFunction使用例子'上鎖Dummy=HardLockTable("Lock","TestTable")'開鎖Dummy=HardLockTable("UnLock","TestTable")關(guān)閉所有的數(shù)據(jù)連接如果在代碼中使用了數(shù)據(jù)控件如DAO，RDO，或ADO，在退出時(shí)應(yīng)該關(guān)閉所有打開的recordset，database，和workspace。雖然對(duì)象能自動(dòng)注銷，但是數(shù)據(jù)連接不會(huì)馬上斷開，可能會(huì)導(dǎo)致一些內(nèi)存不能被系統(tǒng)重新分配。下面的代碼可以關(guān)閉所有打開的DAOworkspace,并釋放所占的內(nèi)存。PrivateSubForm_Unload(CancelAsInteger)OnErrorResumeNext'DimwsAsWorkspaceDimdbAsDatabaseDimrsAsRecordset'ForEachwsInWorkspacesForEachdbInws.DatabasesForEachrsIndb.Recordsetsrs.CloseSetrs=NothingNextdb.CloseSetdb=NothingNextws.CloseSetws=NothingNext'EndSub如何刪除FoxPro數(shù)據(jù)庫的數(shù)據(jù)？用VB對(duì)FOXPRO數(shù)據(jù)庫操作,經(jīng)常會(huì)遇到這樣一個(gè)問題：只能對(duì)記錄進(jìn)行DEL,也就是在該條記錄上打一個(gè)刪除標(biāo)記,但不能象在數(shù)據(jù)庫中那樣，用"PACK"把這條記錄真正刪除.當(dāng)記錄數(shù)較多時(shí)，用DBGRID等控件做的程序都會(huì)出錯(cuò).該怎樣辦呢?其實(shí),VB中無法對(duì)DBF文件進(jìn)行PACK。只能把ISAM的設(shè)置Deleted設(shè)為On。這樣相當(dāng)于FoxPro的SETDELETEDON。不信你可以試一試。VB應(yīng)用小集訪問VB外來數(shù)據(jù)庫VB最引人注目的特點(diǎn)，也是其最令程序員關(guān)心的地方，就是它訪問多種數(shù)據(jù)庫的強(qiáng)大功能。VB中將非MSAccess數(shù)據(jù)庫稱為外來數(shù)據(jù)庫(ExternalDatabase)，如dBASE、FoxPro>ODBC等。VB中使用數(shù)據(jù)控制訪問外來數(shù)據(jù)庫同訪問Access數(shù)據(jù)庫類似，這里不再贅述，現(xiàn)在主要讀一下用生成對(duì)象的方法來訪問外來數(shù)據(jù)庫。訪問外來數(shù)據(jù)庫((以dBASE為例)大致分為以下幾步：第一步：建立一個(gè)Access型數(shù)據(jù)庫，并在數(shù)據(jù)庫中創(chuàng)建新表一即為附加表。通過設(shè)置附加表的各屬性值，使其與你所要訪問的數(shù)據(jù)庫建立鏈接關(guān)系。程序代碼如下：DimDbasDatabaseDimTdasNewTabledefSetDb=OpenDatabase("MYDB.MDB")Td.Connect="dBASE:DATABASE=c:\DATADIR”Td.SourceTableName="AUTHOR"Td.Name="dBASEAuthorTa