国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

         我學(xué)習(xí)ＶＢ編程時(shí)，常常喜歡使用數(shù)據(jù)庫(kù)。在我的VB處女作之《學(xué)五筆多媒體教學(xué)系統(tǒng)4.00》中使用的數(shù)據(jù)庫(kù)，但那時(shí)我還不會(huì)讓程序自動(dòng)創(chuàng)建數(shù)據(jù)庫(kù)，是事先創(chuàng)建好，供VB程序調(diào)用的。后來(lái)在我寫(xiě)的《股票管理大師》中我就利用VB編程自動(dòng)創(chuàng)建一個(gè)數(shù)據(jù)庫(kù)供程序調(diào)用。

　　自從我學(xué)會(huì)了用ＶＢ程序自動(dòng)創(chuàng)建Access數(shù)據(jù)庫(kù)后，我放棄了事先創(chuàng)建，喜歡由VB程序自動(dòng)創(chuàng)建。我覺(jué)得自動(dòng)創(chuàng)建一個(gè)數(shù)據(jù)庫(kù)有如下幾點(diǎn)好處：

　　首先，安裝程序丟下了這個(gè)數(shù)據(jù)庫(kù)尾巴。事先創(chuàng)建好的數(shù)據(jù)庫(kù)，在安裝程序時(shí)一定要帶著這個(gè)數(shù)據(jù)庫(kù)，并將其安裝到用戶的電腦上，就象一個(gè)尾巴一個(gè)，走到哪里就帶到哪里。感覺(jué)是個(gè)負(fù)擔(dān)。如果由VB程序自動(dòng)來(lái)創(chuàng)建所需的數(shù)據(jù)庫(kù)，就不需要安裝程序老是帶著這個(gè)數(shù)據(jù)庫(kù)了。因?yàn)檫@個(gè)數(shù)據(jù)庫(kù)是由程序自己按照要求隨時(shí)創(chuàng)建的。

　　其次，用戶數(shù)據(jù)更加安全。由于事先創(chuàng)建的數(shù)據(jù)庫(kù)是由安裝程序帶著走的，并由其安裝到用戶的電腦上，如果用戶需要重新安裝的話，通常會(huì)先缷載，而在缷載時(shí)，這個(gè)可能保存了用戶很多重要數(shù)據(jù)的數(shù)據(jù)庫(kù)也會(huì)被刪除，重新安裝后由安裝帶著的那個(gè)原來(lái)數(shù)據(jù)庫(kù)被重新安裝到了用戶電腦上，先前的數(shù)據(jù)可能完全被丟失了。由VB程序自動(dòng)創(chuàng)建的數(shù)據(jù)庫(kù)就不會(huì)發(fā)生這種事情，缷載時(shí)也不會(huì)被刪除，重新安裝應(yīng)用程序也不會(huì)重新來(lái)創(chuàng)建這個(gè)數(shù)據(jù)庫(kù)，這只要在程序中判斷一下即可實(shí)現(xiàn)。用戶的數(shù)據(jù)不會(huì)因缷載重新安裝而丟失。

　　第三，方便程序升級(jí)。程序在用戶手中使用后，通常會(huì)反饋一些很有價(jià)值的意見(jiàn)和建議，這就需要對(duì)原程序進(jìn)行升級(jí)。有時(shí)就會(huì)對(duì)原數(shù)據(jù)庫(kù)結(jié)構(gòu)進(jìn)行一些修改，如果是事先創(chuàng)建就非常麻煩了，采用編程自動(dòng)創(chuàng)建的就比較方便。

　　VB6編程創(chuàng)建一個(gè)Access數(shù)據(jù)庫(kù)需要在工程中先引用Microsoft ADD Ext. 2.8 for DLL and Security，然后定義兩個(gè)變量，比如：

　　　　　　　　Dim cat As New ADOX.Catalog

                            Dim tbl As New ADOX.Table

　　現(xiàn)在可以用下面這句代碼來(lái)創(chuàng)建一個(gè)數(shù)據(jù)庫(kù)文件(比如文件名為abc.mdb，保存在Ｄ盤(pán)根目錄下)：

　　　　　　　　cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\abc.mdb"

　　用下面這段代碼可以創(chuàng)建一個(gè)表其及字段：

　　　　　　　　With tbl

　　　　　　　　　　　.Name="MyContacts"  '表名

　　　　　　　　　　　.Set .ParentCatalog=cat

 

　　　　　　　　　　　.Columns.Append "ContactId",adInteger   '創(chuàng)建一個(gè)字段名為ContactId的字段

　　　　　　　　　　　.Columns("ContactId").Properties("AutoIncrement")=True   '設(shè)置字段ContactId的數(shù)據(jù)類型為自動(dòng)編號(hào)

　　　　　　　　　　　.Keys.Append "kCid",adKeyPrimary,"ContactId"         '設(shè)置字段ContactId為主鍵

 

　　　　　　　　　　　.Columns.Append "CustomerID",adVarWChar        '創(chuàng)建一個(gè)字段名為CustomerID的字符型字段

　　　　　　　　　　　.Columns("CustomerID").Properties("Default")="DDDD"    '設(shè)置字段CustomerID的默認(rèn)值為"DDDD"

                                       .Indeses.Append "cID","CustomerID"            '對(duì)字段CustomerID建一個(gè)索引

 

　　　　　　　　　　　.Columns.Append "FirstName",adVarWChar

                                      .Indexes.Append "Fir","FirstName"

                                      .Kesy.Append "kFir",adKeyUnique,"FirstName"     '加上這句，即完成建立一個(gè)無(wú)重復(fù)的索引。

 

　　　　　　　End With

 

                         cat.Tables.Append tbl

 

　　至此，VB6完成了自動(dòng)創(chuàng)建數(shù)據(jù)庫(kù)。

本站僅提供存儲(chǔ)服務(wù)，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請(qǐng)點(diǎn)擊舉報(bào)。