第一篇：VB實(shí)訓(xùn)個(gè)人總結(jié)

VB實(shí)訓(xùn)個(gè)人總結(jié)

在這一周的實(shí)習(xí)中，使我學(xué)到了好多書本上沒有的知識，更讓我對VB有了更深一步的掌握，同時(shí)也發(fā)現(xiàn)了許多自己在學(xué)習(xí)方面的不足，取長補(bǔ)短，互相學(xué)習(xí)，共同進(jìn)步，我們不但學(xué)習(xí)了知識，更好的證明了實(shí)踐是檢驗(yàn)真理的唯一標(biāo)準(zhǔn)。培養(yǎng)和提高我們的實(shí)際操作和應(yīng)用能力，在學(xué)習(xí)VB后，具體的是使我們熟悉并使用各種類和各種VB控件的應(yīng)用，在編寫程序的過程中我們還專門編寫了注釋以便于修改程序！這些內(nèi)容使我們更加熟練的應(yīng)用這門語言，給自己以后能夠走上工作崗位打下良好的基礎(chǔ)！

實(shí)訓(xùn)的第一天接到任務(wù)時(shí)我們都覺得有點(diǎn)難度，很有挑戰(zhàn)性，畢竟學(xué)籍信息管理系統(tǒng)是一個(gè)比較系統(tǒng)、完善、功能相對較齊全的管理系統(tǒng)，即使是用戶模塊也可以完成各種操作，如對用戶的查詢、添加.刪除以及修改等。因此程序編寫也十分復(fù)雜，工作量較大，編寫一定要認(rèn)真。一個(gè)小小的失誤都可能使程序出現(xiàn)大的漏洞。而我們只是學(xué)了點(diǎn)簡單的vb程序編寫，沒有嘗試過這 種相對來說比較系統(tǒng)完善的系統(tǒng)。所以在做項(xiàng)目的時(shí)候我們倍感壓力、更加的團(tuán)結(jié)協(xié)作，可即使如此我們還是出現(xiàn)了錯(cuò)誤，我們的程序在編寫上存在一些漏洞，導(dǎo)致調(diào)試時(shí)不能正常運(yùn)行，后經(jīng)過老師的指導(dǎo)、我們的調(diào)整，終于可以完美的運(yùn)行，我做的是學(xué)籍信息管理系統(tǒng)，但是在編寫程序的時(shí)候也遇到了很多難懂的問題，有的是實(shí)踐能力差，有的是對書本上的內(nèi)容太過于模糊，有的是什么也不知道，當(dāng)中有說不出口的味道。有悔恨，后悔，自責(zé)，都是平時(shí)學(xué)的不扎實(shí)，不過通過這次的實(shí)訓(xùn)使我的VB應(yīng)用能力得到大幅度提高，從以前的不懂到懂，從模糊到運(yùn)用自如，從不知道到知道等等，一切都變的清楚簡單。善于學(xué)習(xí)和總結(jié)，勤于思考，做之前多想想，多向有經(jīng)驗(yàn)的請教，能幫你降低風(fēng)險(xiǎn)、減少投入、少走彎路，做的時(shí)候心里也才有底；做好之后再來想想就是總結(jié)，就是經(jīng)驗(yàn)和教訓(xùn)。有些事只有親自動手體會了才知道其中的道理，不是口里什么知道一到實(shí)際中卻又茫然。無論什么都有其自己的規(guī)律。通過這次對VB的程序設(shè)計(jì)和運(yùn)行，初步掌握了VB程序的規(guī)律和設(shè)計(jì)方法，并從運(yùn)行時(shí)的錯(cuò)誤中對VB有了更深一步的了解，其實(shí)只要自己用心去鉆研，VB并沒有我們想象的那么難學(xué)。

通過這次實(shí)習(xí)，使我對VB有了更深刻的了解和認(rèn)識，比起以前強(qiáng)了許多。進(jìn)一步了解對VB設(shè)計(jì)的方法和一些小技巧，還有數(shù)據(jù)庫的連接與實(shí)現(xiàn)，幫助等工具的操作與實(shí)現(xiàn)，都比以前操作更熟練了，理論和實(shí)踐聯(lián)系到了一起，學(xué)到了真正的知識,但同時(shí)也遇到不少的難題。例如，數(shù)據(jù)庫連接的正確路徑、編寫程序中的一些小問題等，不過，在老師的指導(dǎo)和組長的幫助下、還有自己付出的努力和及時(shí)查閱有關(guān)資料，最終，所有難題都一一解決了，而自己也感到了一些欣慰。

同時(shí)也使我對以后的VB學(xué)習(xí)有了信心和興趣，不過，還要繼續(xù)努力，更要懂得把理論和實(shí)踐聯(lián)系起來，多動手勤動腦，這樣才能學(xué)到更多的知識，我相信自己一定可以學(xué)好的。

第二篇：VB實(shí)訓(xùn)總結(jié)

VB實(shí)訓(xùn)總結(jié)

時(shí)間過得真快，轉(zhuǎn)眼間，一周的實(shí)訓(xùn)生活已悄然過去了，然而實(shí)訓(xùn)的過程還歷歷在目。

實(shí)訓(xùn)期間，讓我學(xué)到了很多東西，不僅使我在理論上對VB程序設(shè)計(jì)有了全新的認(rèn)識，在實(shí)踐能力上也得到了提高，真正地做到了學(xué)以致用，更學(xué)到了很多做人的道理，對我來說受益非淺。親身感受到理論與實(shí)際的相結(jié)合，讓我大開眼界。也是對以前所學(xué)知識的一個(gè)初審吧！這次實(shí)訓(xùn)對于我以后學(xué)習(xí)、找工作也真是受益菲淺，在短短的一周中相信這些寶貴的經(jīng)驗(yàn)會成為我今后成功的重要的基石。作為一名大二的學(xué)生，經(jīng)過差不多一年半的在校學(xué)習(xí)，對程序設(shè)計(jì)有了理性的認(rèn)識和理解。在校期間，一直忙于理論知識的學(xué)習(xí)，沒有機(jī)會也沒有相應(yīng)的經(jīng)驗(yàn)來參與項(xiàng)目的設(shè)計(jì)開發(fā)。所以在實(shí)訓(xùn)之前，程序設(shè)計(jì)對我來說是比較抽象的，不知道一個(gè)完整的程序要怎么完成。

這次我做的項(xiàng)目是人事管理系統(tǒng)，其中包含了登陸、員工資料庫、考勤庫、工資庫、商務(wù)信息等幾個(gè)部分。在實(shí)訓(xùn)剛開始的時(shí)候，做的只是幾個(gè)簡單的界面，覺得其實(shí)還算比較簡單的，到第三天，基本部分的代碼都編寫出來了，但是調(diào)試的時(shí)候出現(xiàn)了很多問題。而且，有時(shí)候由于考慮不周以及粗心的緣故，代碼方面也存在很大的誤差。老師們教會了我們很多簡單實(shí)用的技巧。也讓我們意識到了要想全面完整的完成一個(gè)模塊，首先要經(jīng)行程序設(shè)計(jì)，全面分析會用到的東西及

考慮可能會出現(xiàn)的情況。所以出現(xiàn)的問題也在老師的指導(dǎo)下，順利解決了。本程序的編寫，有很多不足的地方，可能有些功能不太全面也不太完善，但我覺得自己是認(rèn)認(rèn)真真的做了，而且從中學(xué)到了很多，以后，我要把自己欠缺的知識點(diǎn)補(bǔ)習(xí)好，而且要學(xué)會舉一反三，融會貫通，最重要的是改掉粗心馬虎、考慮不周的習(xí)慣。我想我以后會將此程序完善好，爭取能夠運(yùn)用到生活中去。

在實(shí)訓(xùn)期間帶給我不僅僅是一種經(jīng)驗(yàn)，更是我人生的一筆財(cái)富。俗語說:紙上得來終覺淺。沒有把理論用于實(shí)踐是學(xué)得不深刻的。當(dāng)今大學(xué)教育是以理論為主，能有機(jī)會進(jìn)行實(shí)訓(xùn)，對我來說是受益不淺的。我就快畢業(yè)走向社會了，相信這次實(shí)習(xí)對我日后參加工作有幫助。

一路的艱辛與微笑，雖有所收獲，然所學(xué)是開始，新的考驗(yàn)和抉擇要奮斗不息、礪前行，請不要讓我們年輕的時(shí)光留下太多遺憾！

第三篇：VB、SQL實(shí)訓(xùn)總結(jié)

VB、SQL實(shí)訓(xùn)總結(jié)

為期五天的實(shí)習(xí)，很快就過去了，讓我重新了解了豐富多彩的編程生活，感受到了學(xué)習(xí)的快樂，也感覺到了許許多多的專業(yè)問題，親身體驗(yàn)了窗體與工程制成之后的喜悅之情。

在實(shí)訓(xùn)期間，我學(xué)到了許多東西，遇到了一些困難，也看到了自己本身存在著許多問題。

這次實(shí)訓(xùn)給我?guī)砹宋C(jī)感和壓迫力，讓人警醒，更加清楚自己的水平和重量，心里總有種被大石頭壓著的無力感，但是又憑著一種堅(jiān)持，奮力的抗?fàn)幹Ｋ砸驳贸鰝€(gè)結(jié)論，那就是——我得好好好好的努力啊。

這已經(jīng)是我們的第四次實(shí)訓(xùn)了，在我進(jìn)入大學(xué)的這兩年多里，或多或少的學(xué)到了一些專業(yè)的東西。

我知道自己很愛玩，于是為了能夠提高鍛煉自己，我把本次為期一周的VB、SQL制作實(shí)訓(xùn)看作是一個(gè)通向社會，通向我的工作崗位的“理論與實(shí)踐相結(jié)合的橋梁”。在本周的實(shí)訓(xùn)和學(xué)習(xí)，我一直知道此次實(shí)訓(xùn)的目的，也知道我自己的目的，同時(shí)也清楚目前自己的不足——缺乏相應(yīng)的知識與經(jīng)驗(yàn)，對所學(xué)的專業(yè)知識不能夠很好地運(yùn)用于實(shí)踐操作，所以我是認(rèn)真的對待這次實(shí)訓(xùn)的。

在這次實(shí)訓(xùn)中，我也有許多收獲。首先，我體會到了作為一個(gè)VB設(shè)計(jì)師，不會將VB與SQL結(jié)合的痛苦和尷尬；然后，我發(fā)現(xiàn)了很多以前都不曾注意到的細(xì)節(jié)；其次，在實(shí)訓(xùn)中，我對作為一名編程者應(yīng)該學(xué)習(xí)的內(nèi)容做了一個(gè)更深層次的理解；最后，我還從這次實(shí)訓(xùn)中看到了自己很他人的差距，危機(jī)意識增強(qiáng)，為了不使這個(gè)差距拉大，甚至趕上前面的同學(xué)，我會努力的。

本次實(shí)訓(xùn)，給我最深刻、最刻骨銘心的感覺就是累，不僅每天白天要一整天對著一臺機(jī)器，而且到了晚上還要對著這臺機(jī)器來一個(gè)法式的“秉燭夜談”，可惜的是沒有浪漫的事前發(fā)生，我也只是對牛談情而已，不似李白的“舉杯邀明月，對影成三人”啊，我就和一部會說話的機(jī)器唧唧歪歪。我時(shí)常想，以后的日子里，如果我成為了一名編程師也會是這樣嗎？好像很無聊的樣子啊。好動的我一定坐不住吧?？墒牵乙仓?，為了衣食父母，為了生存，為了未來，現(xiàn)在我還沒有任何的資格想這個(gè)問題，時(shí)間不對，而現(xiàn)在最最應(yīng)該想的是——我要怎樣成為一個(gè)頂級的編程師。當(dāng)我終于有能力的時(shí)候，才是考慮無不無聊的問題，我還是明白這一點(diǎn)點(diǎn)。

經(jīng)過多番的努力和辛酸，我成功地完成了這次過程艱辛的實(shí)訓(xùn)，而且我從中體會到了一種叫做‘成功的喜悅’的感覺，那種小有成就的興奮是只有置身其中的人才能體會的，就好比我啊，雖然知道笑到最后的才是老大，但是偶爾阿Q一下來調(diào)節(jié)生活樂趣也是的一項(xiàng)很必要的事情吧。

總之，這次實(shí)訓(xùn)為我提供了與眾不同的學(xué)習(xí)方法和學(xué)習(xí)體會，從書本中走出來，面對現(xiàn)實(shí)，為我將來走上社會打下了扎實(shí)的基礎(chǔ)，鋪了一條五光十色的大馬路。而且，我也體會到了前人總結(jié)出的許多的實(shí)踐經(jīng)驗(yàn)，而且一直都知道技術(shù)永遠(yuǎn)是工資的基礎(chǔ)，社會是不會要一個(gè)一無是處的人的，所以，為了生活庸俗一點(diǎn)，努力一點(diǎn)，多累一點(diǎn)，好好學(xué)習(xí)技術(shù)，將來才有吃大餐的錢呀。

因此，我知道，作為在校電商專業(yè)的大專生，我能做的就是好好的吸取知識，努力的提高自己的技術(shù)水平和自身的綜合素質(zhì)，提高自己的表達(dá)能力、寫作能力和合作能力。如此，出了社會，自己有了能力，到時(shí)候才會是 “吃嘛嘛香”，并且很牛逼的是自己選公司，而不是悲慘的等待公司來選。我相信在不久的未來，會有屬于我自己的一片天空，而且這片天空會很藍(lán)很藍(lán)，沒有黑黑的烏云，只有燦爛的陽光！

在編程的過程中遇到問題，可以說得是困難重重，這畢竟是第一次編程這么多，這么認(rèn)真，難免會遇到過各種各樣的問題，同時(shí)在設(shè)計(jì)的過程中發(fā)現(xiàn)了自己的不足之處，對以前所學(xué)過的知識理解得不夠深刻，掌握得不夠牢固，比如說代碼不熟悉，還好通過老師的細(xì)心指導(dǎo)才能達(dá)到最終效果??通過這次程設(shè)計(jì)與制作實(shí)訓(xùn)，一定把以前所學(xué)過的知識重新溫故。

第四篇：VB實(shí)訓(xùn)心得

為期一周的實(shí)訓(xùn)即將結(jié)束，通過這次的實(shí)訓(xùn)使我們學(xué)到了很多，同時(shí)也讓我們意識到我們要學(xué)的更多。本次實(shí)訓(xùn)的項(xiàng)目是關(guān)于工程測量的程序設(shè)計(jì)，以小組的形式進(jìn)行分工合作，我組共3個(gè)人，任務(wù)是四等水準(zhǔn)測量的程序設(shè)計(jì)。從程序的需求分析、可行性分析、設(shè)計(jì)到編寫、調(diào)試、修改、完善、到最后的實(shí)訓(xùn)報(bào)告，每個(gè)人都付出了時(shí)間和精力去做好自己的任務(wù)并努力地去完善它。

實(shí)訓(xùn)的第一天接到任務(wù)時(shí)我們都覺得有點(diǎn)難度，很有挑戰(zhàn)性，畢竟四等水準(zhǔn)測量是一個(gè)比較系統(tǒng)、完善、功能相對較齊全的計(jì)算程序，因此程序編寫也十分復(fù)雜，工作量較大，編寫一定要認(rèn)真。一個(gè)小小的失誤都可能使程序出現(xiàn)大的漏洞。而我們只是學(xué)了點(diǎn)簡單的vb程序編寫，沒有嘗試過這種相對來說比較系統(tǒng)完善的系統(tǒng)。所以在做項(xiàng)目的時(shí)候我們倍感壓力、更加的團(tuán)結(jié)協(xié)作，可即使如此我們還是出現(xiàn)了錯(cuò)誤，我們的程序在編寫上存在一些漏洞，導(dǎo)致調(diào)試時(shí)不能正常運(yùn)行，后經(jīng)過老師的指導(dǎo)、我們的調(diào)整，終于可以完美的運(yùn)行，這里也耽誤了我們很多寶貴的時(shí)間，直接導(dǎo)致了我們在項(xiàng)目調(diào)試上速度不夠快。

本人很榮幸地?fù)?dān)任組長一職，與其他組員一起進(jìn)行任務(wù)分配以及協(xié)調(diào)等。我組做了四等水準(zhǔn)測量的計(jì)算程序、豎直角計(jì)算和視距測量三塊內(nèi)容。在實(shí)訓(xùn)過程中，老師對我們親切認(rèn)真負(fù)責(zé)，很有耐心地對我們進(jìn)行講解并指導(dǎo)我們解決遇到的難題。老師交會了我們很多簡單實(shí)用的技巧。也讓我們意識到了要想全面完整地完成一個(gè)模塊，首先要進(jìn)行程序的設(shè)計(jì)，全面分析會用到的東西以及考慮可能會出現(xiàn)的情況，理清思緒、寫出大致的要點(diǎn)后再上機(jī)編寫程序以及操作。否則像一開始的我們馬上上機(jī)編寫、想到什么就補(bǔ)什么，不僅浪費(fèi)時(shí)間也亂了之前寫好的一些程序。系統(tǒng)分析越準(zhǔn)確，設(shè)計(jì)的系統(tǒng)越精確，可以大大減少后期的修改、維護(hù)工作。當(dāng)然做好做對一個(gè)項(xiàng)目固然重要，同時(shí)美觀程度也是必不可少的，無論是從參觀者的角度還是自己看的角度都很重要。

總的來說，這次實(shí)訓(xùn)還是比較成功的。最后出來的系統(tǒng)，大家都很有成就感，這是我們一步步設(shè)計(jì)、一步步完善、辛苦付出后得到的成果。小組合作、幫助隊(duì)友，無論是團(tuán)隊(duì)合作這方面還是個(gè)人動手這方面，我們都得到了很好的鍛煉。當(dāng)然實(shí)訓(xùn)不僅使我們學(xué)到了知識，也幫助我們縮小了實(shí)踐和理論的差距，通過這次實(shí)訓(xùn)讓我們更深一步的對vb這門課程的知識有更進(jìn)一步的渴望，同時(shí)對自己的專業(yè)，對自己的能力，對自己所學(xué)的有正確的認(rèn)識，并且能在以后的學(xué)習(xí)工作中不斷提高和完善自己。

第五篇：VB綜合實(shí)訓(xùn)

VB換膚（GUI界面）

第一種方法：后綴為.she文件的皮膚

SkinSharp換膚庫不是COM組件，無需進(jìn)行系統(tǒng)注冊，僅以標(biāo)準(zhǔn)dll方式存在。

1.打開vb6開發(fā)環(huán)境，新建一個(gè)工程文件，并存檔

2.將一個(gè)名為“膚色”的文件夾和一個(gè)名為SkinH_VB6.dll的文件拷貝到工程所在的目錄

3.外部函數(shù)接口api函數(shù)原型，把這原形放在通用聲明段

Private Declare Function SkinH_AttachEx Lib “SkinH_VB6.dll”(ByVal lpSkinFile As String, ByVal lpPasswd As String)As Long

4.若需要什么樣的皮膚（即.she文件）就在相應(yīng)的事件（比喻在Form_Load()）中輸入下面的內(nèi)容：

SkinH_AttachEx App.Path & “/皮膚/vista.she”, “ ”

app.path：系統(tǒng)字串常量，返回工程所在的路徑。

皮膚：是跟工程在同一目錄下的一個(gè)文件夾

vista.she：皮膚文件，可以把網(wǎng)上下載的.she文件放在同目錄下用時(shí)，只接按上四步驟即可。

第二種方法：ActiveSkin 4.3軟件的應(yīng)用?？梢宰约焊钠つw

1.安裝ActiveSkin 4.3。同其它軟件安裝一樣。

2.漢化該軟件。直接運(yùn)行setup.exe（漢化的安裝文件）。點(diǎn)下一步直至完成

3.新建一個(gè)VB工程文件，在工具箱灰白色地方右鍵單擊，選擇[部件]，在部件對話框中勾選ActiveSkin 4.3后單擊[應(yīng)用][確定]

4.在出現(xiàn)的兩個(gè)控件中選擇拖入到窗體上。右鍵單擊，選擇[編輯皮膚]即可到ActiveSkin 4.3中編輯皮膚

5.Label控件必須使用該部件給的ab控件來替換。原本的A是不會顯示

6.選擇相應(yīng)的事件(如Form_Load())。在該事件中輸入：

Skin1.ApplySkin Me.hWnd

7.如果要移植你的程序到別的機(jī)器上運(yùn)行，請編譯打包。因?yàn)樵撈つw需要系統(tǒng)其它文件來支持。所以你可以選擇VB-PowerWrap進(jìn)行VB程序的封裝

VB與ACCESS2003數(shù)據(jù)庫連接相關(guān)步驟：

第一步：建立連接

1.引用相關(guān)組件：Microsoft ActiveX Data Objects 2.0 Library。Microsoft ADO Data Control 6.0 2.在通用聲明段申明：Dim mConn As ADODB.Connection 3.在對應(yīng)的事件（如Form_Click()）中：set mConn=New ADODB.Connection或Dim mConn As New ADODB.Connection 4.設(shè)置其連接字串（與磁盤上的MDB文件建立連接）：

mConn.ConnectionString=“Provider=Microsoft.jet.oledb.4.0;Data Source=” & App.Path & “RSData.mdb” 5.打開連接：mConn.Open 6.測試連接是否成功：if mConn.State=adStateOpen then msgbox “數(shù)據(jù)庫已經(jīng)連接成功！” else msgbox “數(shù)據(jù)庫連接不成功！” 以上連接方法是在事件里完成，也可以把連接做一個(gè)過程，需要連接時(shí)直接帶參調(diào)用也可。如在模塊中這樣定義

Public conn As New ADODB.Connection Public Function DBConnection(FileName As String)As Boolean

Set conn = New ADODB.Connection conn.ConnectionString = “provider=microsoft.jet.oledb.4.0;” & “data source=” & FileName

conn.Open

If conn.State = adStateOpen Then

DBConnection = True

Else

DBConnection = False

End If End Function 然后回事件中調(diào)該函數(shù)。其相應(yīng)代碼如下：

Private Sub Command2_Click()

CommonDialog1.ShowOpen

Text1.Text = CommonDialog1.FileName

If DBConnection(Text1.Text)Then

MsgBox “連接成功！”

Else

MsgBox “連接失??！”

End If End Sub

第二步：從數(shù)據(jù)庫中取出記錄，綁定到相對應(yīng)的控件(Microsoft DataGrid Control 6.0(SP6)(OLEDB))中

1.在通用聲明段定義記錄對象：

Dim rs As New ADODB.Recordset 2.在相應(yīng)的事件（如Form_Click()）中定義：

Set rs = New ADODB.Recordset Dim sql As String

sql = “select * from 部門表” rs.CursorLocation = adUseClient rs.Open sql, mConn, 1, 3

3.在窗體上從部件中找到Microsoft DataGrid Control 6.0(SP6)(OLEDB)并加載到工具箱上，然后產(chǎn)生一個(gè)實(shí)體對象，其名稱為DataGrid1 Set DataGrid1.DataSource = mRst.DataSource

注意：游標(biāo)與鎖

0=adopenForwardonly:僅向前游標(biāo) — 除僅允許在記錄中向前滾動之外，其行為類似動態(tài)游標(biāo)。這樣，當(dāng)需要在 Recordset 中單程移動時(shí)就可提高性能。

1=adopenkeyset:鍵集游標(biāo) — 其行為類似動態(tài)游標(biāo)，不同的只是禁止查看其他用戶添加的記錄，并禁止訪問其他用戶刪除的記錄，其他用戶所作的數(shù)據(jù)更改將依然可見。它始終支持書簽，因此允許 Recordset 中各種類型的移動。

2=adopenDynamic:動態(tài)游標(biāo) — 用于查看其他用戶所作的添加、更改和刪除，并用于不依賴書簽的 Recordset 中各種類型的移動。如果提供者支持，可使用書簽。3=adopenstatic:靜態(tài)游標(biāo) — 提供記錄集合的靜態(tài)副本以查找數(shù)據(jù)或生成報(bào)告。它始終支持書簽，因此允許 Recordset 中各種類型的移動。其他用戶所作的添加、更改或刪除將不可見。這是打開客戶端(ADOR)Recordset 對象時(shí)唯一允許使用的游標(biāo)類型。

mRst.CursorLocation = adUseClient:使用由本地游標(biāo)庫提供的客戶端游標(biāo)

mRst.CursorLocation = adUseServer 默認(rèn)值。使用數(shù)據(jù)提供者或驅(qū)動程序提供的游標(biāo)。

1=adLockReadOnly 默認(rèn)值，只讀。無法更改數(shù)據(jù)。

2=adLockPessimistic 保守式記錄鎖定（逐條）。提供者執(zhí)行必要的操作確保成功編輯記錄，通常采用編輯時(shí)立即鎖定數(shù)據(jù)源的記錄的方式。

3=adLockOptimistic 開放式記錄鎖定（逐條）。提供者使用開放式鎖定，只在調(diào)用 Update 方法時(shí)鎖定記錄。

4=adLockBatchOptimistic 開放式批更新。用于與立即更新模式相反的批更新模式。

第三步：向數(shù)據(jù)庫中寫數(shù)據(jù)（找一個(gè)相應(yīng)的事件，如Command1_Click()）

Dim bmid As String,bmmc As String,sql As String Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset bmid = Text1.Text:bmmc = Text2.Text conn.ConnectionString = “provider=microsoft.jet.oledb.4.0;data source=” & App.Path & “rsdata.mdb” conn.Open

On Error GoTo cancel: sql = “insert into 部門表(部門ID,部門名稱)values('” + bmid + “','” + bmmc + “')” rs.Open sql, conn

cancel:

If conn.Errors.Count = 0 Then

Else

MsgBox “寫數(shù)據(jù)有問題，主鍵重復(fù)”

End If 除了用SQL語句增加庫記錄以外，也可以用下面的方法來增加庫記錄

rs.CursorType = adOpenKeyset rs.LockType = adLockOptimistic rs.Open “部門表”, conn, , , adCmdTable rs.AddNew rs.Fields(0)= bmid rs.Fields(1)= bmmc rs.Update 第四步：刪除數(shù)據(jù)庫中的一條記錄（找一個(gè)相應(yīng)的事件，如Command2_Click()）

Private Sub command2_click()Dim sql As String Dim conn As New ADODB.Connection Set rst = New ADODB.Recordset

Dim bmid As String bmid = Trim(DataGrid1.Columns(0))conn.ConnectionString = “provider=microsoft.jet.oledb.4.0;data source=” & App.Path & “rsdata.mdb” conn.Open

sql = “delete from 部門表 where 部門ID='” + bmid + “'” rst.Open sql, conn, 1, 3

sql = “select * from 部門表”

rst.CursorLocation = adUseClient

rst.Open sql, conn, 1, 3 if not rst.eof()then

rst.movenext end if

Set DataGrid1.DataSource = rst.DataSource set rst=nothing set conn=nothing End sub 第五步：更改數(shù)據(jù)庫中的信息（找一個(gè)相應(yīng)的事件，如Command1_Click()）Private Sub Command1_Click()Dim sql As String Dim conn As New ADODB.Connection Set rst = New ADODB.Recordset Dim s As String

s = “實(shí)驗(yàn)中心”

conn.ConnectionString = “provider=microsoft.jet.oledb.4.0;data source=” & App.Path & “rsdata.mdb” conn.Open

sql = “update 部門表 set 部門名稱='” + s + “' where 部門ID='001'” rst.Open sql, conn End Sub

第一步：建立連接

1.引用相關(guān)組件：Microsoft ActiveX Data Objects 2.0 Library。Microsoft ADO Data Control 6.0 Dim mConn As ADODB.Connection Private Sub Form_Click()set mConn=New ADODB.Connection或Dim mConn As New ADODB.Connection mConn.ConnectionString=“Provider=Microsoft.jet.oledb.4.0;Data Source=” & App.Path & “Police Information.mdb” mConn.Open if mConn.State=adStateOpen then msgbox “數(shù)據(jù)庫已經(jīng)連接成功！” else msgbox “數(shù)據(jù)庫連接不成功！” End Sub 以上連接方法是在事件里完成，也可以把連接做一個(gè)過程，需要連接時(shí)直接帶參調(diào)用也可。如在模塊中這樣定義

Public conn As New ADODB.Connection Public Function DBConnection(FileName As String)As Boolean

Set conn = New ADODB.Connection

conn.ConnectionString = “provider=microsoft.jet.oledb.4.0;” & “data source=” & FileName

conn.Open

If conn.State = adStateOpen Then

DBConnection = True

Else

DBConnection = False

End If End Function 然后回事件中調(diào)該函數(shù)。其相應(yīng)代碼如下：

Private Sub Command2_Click()

CommonDialog1.ShowOpen

Text1.Text = CommonDialog1.FileName

If DBConnection(Text1.Text)Then

MsgBox “連接成功！”

Else

MsgBox “連接失??！”

End If End Sub