VB5.0數(shù)據(jù)庫(kù)編程經(jīng)驗(yàn)小集

2019-11-18 17:47:22

字體：大中小

供稿：網(wǎng)友

長(zhǎng)期用VB50進(jìn)行數(shù)據(jù)庫(kù)應(yīng)用軟件的編程，遇到過(guò)不少問(wèn)題,走了不少?gòu)澛罚卜e累了不少經(jīng)驗(yàn)。在此，將它們做個(gè)小結(jié)，希望對(duì)同樣從事VB50編程的朋友有所幫助。
　　1、在Form_Load事件中不能對(duì)Data控件進(jìn)行控制
　　如果確實(shí)需在窗體被打開(kāi)時(shí)使用Data控件,可在Form_Activate事件中進(jìn)行控制。由于Activate事件在窗體被激活時(shí)發(fā)生，就是說(shuō)在窗體被打開(kāi)時(shí)發(fā)生，同時(shí)在窗體得到焦點(diǎn)時(shí)也會(huì)發(fā)生。要區(qū)分是否為窗體被打開(kāi)的情況，只要設(shè)置一變量，在第一次Activate事件發(fā)生時(shí)對(duì)Data控件進(jìn)行控制，然后對(duì)此變量進(jìn)行設(shè)置，使以后的Activate事件不再執(zhí)行對(duì)Data控件進(jìn)行控制的語(yǔ)句。
　　2、DBGrid控件列寬的控制
　　在設(shè)計(jì)時(shí)可通過(guò)DefColWidth屬性來(lái)設(shè)置列寬，但這樣無(wú)法為不同的列設(shè)置不同的寬度。那么到底要怎么分別設(shè)置每一列的寬呢?這同樣可在窗體的Activate事件中實(shí)現(xiàn)。
　　Form_Activate()
　　DBGrid1Columns(0)Width=1000　′為第一列設(shè)置寬度
　　DBGrid1Columns(1)Width=2500　′為第二列設(shè)置寬度
　　DBGrid1Columns(2)Width=1000　′為第三列設(shè)置寬度
　　EndSub
　　3、IsNull函數(shù)的應(yīng)用
　　判斷一值是否為空，要用IsNull函數(shù)來(lái)實(shí)現(xiàn)，而不能用判斷語(yǔ)句來(lái)實(shí)現(xiàn)，例如：
　　IfData1RecordsetFields(1)Value=NULLThen
　　′要執(zhí)行的語(yǔ)句
　　EndIf
　　這樣無(wú)論Data1RecordsetFields(1)Value的值是否為NULL,要執(zhí)行的語(yǔ)句都執(zhí)行不了,因?yàn)?Data1RecordsetFields(1)Value=NULL)永遠(yuǎn)等于False,所有含有“NULL”的判斷式的值都是False。正確的處理方法為：
　　IfIsNull（Data1RecordsetFields(1)Value)=TrueThen
　　′要執(zhí)行的語(yǔ)句
　　EndIf
　　不明白的地方可查找關(guān)于“IsNull”函數(shù)的說(shuō)明和幫助。
　　4、使用FoxPRo數(shù)據(jù)庫(kù)
　　大家知道打開(kāi)access數(shù)據(jù)庫(kù)很簡(jiǎn)單,比如要打開(kāi)一個(gè)當(dāng)前目錄下名為“bookmdb”的數(shù)據(jù)庫(kù)文件,如下所示:
　　Dimdb1AsDatabase　′定義變量
　　Setdb1=OpenDatabase(″bookmdb″)　′打開(kāi)數(shù)據(jù)庫(kù)文件
　　如果要打開(kāi)的是FoxPro數(shù)據(jù)而不是Access數(shù)據(jù)怎么辦呢?首先要明白FoxPro中所謂的數(shù)據(jù)庫(kù)只是Access中的表而已。其打開(kāi)方法亦很簡(jiǎn)單，如下：
　　Dimdb1AsDatabase
　　Setdb1=OpenDatabase(″C:/BOOK″,False,False,″FoxPro25″)
　　′BOOK為一包含所要FoxPro數(shù)據(jù)庫(kù)文件(＊dbf)的目錄
　　在這里用FoxPro數(shù)據(jù)庫(kù)文件的目錄來(lái)代替Access中的數(shù)據(jù)庫(kù)名。在使用中，“C:/BOOK”目錄下的所有dbf文件都是db1的表,表名即為文件名除去“dbf”。其它的使用方法都和用Access數(shù)據(jù)庫(kù)時(shí)一樣。如有不明之處，請(qǐng)查閱關(guān)于“OpenDatabase”函數(shù)的說(shuō)明和幫助。->

上一篇：用VB實(shí)現(xiàn)關(guān)閉所有數(shù)據(jù)庫(kù)對(duì)象

下一篇：走進(jìn)VB6啃一塊骨頭