第一篇：vb實(shí)訓(xùn)心得

Vb實(shí)訓(xùn)心得

這次實(shí)訓(xùn)，我覺(jué)得我真收獲挺多的，以前愚昧無(wú)知，現(xiàn)在感覺(jué)是豁然開朗，VisualBasic程序設(shè)計(jì)，剛開始學(xué)vb時(shí)不知道是干啥用的，我覺(jué)得很新鮮，于是乎很認(rèn)真的聽講，我發(fā)現(xiàn)這門課程很有趣，老師幽默而卻講課生動(dòng)，很吸引人，就這樣，喜歡上VB了，感覺(jué)挺有用的，剛開始就想著還可以自己編軟件，多好啊！其實(shí)真沒(méi)那么容易啊，要學(xué)好VB也是一件不容易的事，經(jīng)過(guò)這次實(shí)訓(xùn)，我覺(jué)得我的vb有大大的提升，總而言之，最重要的是多做例題多實(shí)踐多鍛煉多操

作。下面在介紹一下VB的發(fā)展過(guò)程：

VisualBasic(簡(jiǎn)稱VB)是Microsoft公司于1998年推出的可視化開發(fā)工具。Visual意為“可視化”，它是指開發(fā)圖形用戶界面（GUI）時(shí)，無(wú)須編寫大量代碼去描述界面元素的位置和外觀。Basic是指BASIC語(yǔ)言，這是一種面向初學(xué)者的語(yǔ)言。VisualBasic是基于Ｂasic的可視化程序設(shè)計(jì)語(yǔ)言，它繼承了Basic語(yǔ)言簡(jiǎn)單易懂的特點(diǎn)，采用面相對(duì)對(duì)象、事件驅(qū)動(dòng)的編程機(jī)制，提供了直觀的可視化程序設(shè)計(jì)方法。VisualBasic是目前面向?qū)ο箝_發(fā)的主要語(yǔ)言之一，是最簡(jiǎn)單、最容易使用的語(yǔ)言，因此它是初學(xué)者學(xué)習(xí)可視化編程語(yǔ)言的最佳選擇。在以Windows操作系統(tǒng)為平臺(tái)的眾多可視化編程工具中，VisualBasic具有易用性、通用性和開發(fā)效率高等特點(diǎn)，這使得VisualBasic特別適合于一般應(yīng)用程序的開發(fā)，成為最流行的Windows應(yīng)用程序開發(fā)語(yǔ)言。VisualBasic6.0現(xiàn)有三種版本：學(xué)習(xí)

版、專業(yè)版和企業(yè)版。

VB集成了一系列功能，在VB程序設(shè)計(jì)環(huán)境中能夠完成程序的編寫、調(diào)試、查錯(cuò)、運(yùn)行、編譯、保存等基本操作，同時(shí)還提供了大量程序

設(shè)計(jì)的“零部件”（在VB中稱為函數(shù)、控件），能夠很方便的根據(jù)

需要“組裝”成一個(gè)復(fù)雜的程序。

vb開發(fā)的應(yīng)用程序的運(yùn)行采用事件驅(qū)動(dòng)原理。程序設(shè)計(jì)人

員不僅在程序設(shè)計(jì)時(shí)不需要考慮程序代碼執(zhí)行的先后問(wèn)題，而且同一

個(gè)對(duì)象可以因用戶的不同操作而產(chǎn)生不同的結(jié)果。

vb中提供的編輯器不僅提供了典型的windows文字處理應(yīng)

用程序的各種功能，如剪切、復(fù)制、粘貼等，使得程序的輸入和修改

非常方便。而且在vb代碼窗口輸入代碼時(shí)，對(duì)于vb中的對(duì)象的屬性、方法，內(nèi)置的函數(shù)、已定義的自定義函數(shù)、過(guò)程，已定義的變量等，能自動(dòng)給出拼寫提示。這樣可大大減少編程人員的記憶量。

在vb開發(fā)環(huán)境下，通過(guò)api(application program interface)

函數(shù)調(diào)用，可充分使用windows提供的各種系統(tǒng)資源，來(lái)擴(kuò)充所開發(fā)的應(yīng)用程序的功能。

vb全面支持windows系統(tǒng)的ole（object linking and

embedding）技術(shù)，因此可以方便、快捷地實(shí)現(xiàn)不同應(yīng)用程序之間的動(dòng)態(tài)數(shù)據(jù)交換。

另外，在vb中，可以開發(fā)出包括標(biāo)準(zhǔn)exe（標(biāo)準(zhǔn)windows應(yīng)

用程序）、activex控件、activex exe(對(duì)象的嵌入和鏈接)等多種

類型的應(yīng)用程序。

Visual Basic 語(yǔ)言的特點(diǎn)：

1、面向?qū)ο蟮目梢暬O(shè)計(jì)平臺(tái)

2、事件驅(qū)動(dòng)的編程機(jī)制

3、結(jié)構(gòu)化的程序設(shè)計(jì)語(yǔ)言

4、強(qiáng)大的數(shù)據(jù)庫(kù)功能和網(wǎng)絡(luò)開發(fā)功能

5、充分利用Windows資源

6、方便實(shí)用的程序指導(dǎo)

我們已經(jīng)學(xué)了一學(xué)期VB了，大家知道VB都能做什么呢？記事

本、畫圖、做一些小游戲等等，其實(shí)還有好多好多東西都能用VB編

出來(lái)，世界著名的三大軟件之一---SPSS就是用VB開發(fā)的?，F(xiàn)代社

會(huì)，隨著計(jì)算機(jī)科學(xué)技術(shù)飛速發(fā)展，VB也不斷改進(jìn)，他已經(jīng)徹底擺

脫了“玩具語(yǔ)言”的形象，成為編制通用Windows應(yīng)用程序、數(shù)據(jù)庫(kù)

應(yīng)用程序、多媒體應(yīng)用程序以及網(wǎng)絡(luò)應(yīng)用程序的理想工具。VB不僅

是一種編程語(yǔ)言，而且是集應(yīng)用程序開發(fā)、調(diào)試和測(cè)試于一體的集成開發(fā)環(huán)境。

作為當(dāng)代大學(xué)生，我們?cè)谝钥萍紴橹鲗?dǎo)的新世紀(jì)里，一定要掌握

vb這門課程，有利的發(fā)揮我們的才能和智慧，輝煌我們的人生！

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

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

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

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

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

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

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

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

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

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

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

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

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

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

VB換膚（GUI界面）

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

SkinSharp換膚庫(kù)不是COM組件，無(wú)需進(jìn)行系統(tǒng)注冊(cè)，僅以標(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)用。可以自己更改皮膚

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

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

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

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

5.Label控件必須使用該部件給的ab控件來(lái)替換。原本的A是不會(huì)顯示

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

Skin1.ApplySkin Me.hWnd

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

VB與ACCESS2003數(shù)據(jù)庫(kù)連接相關(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.在對(duì)應(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.測(cè)試連接是否成功：if mConn.State=adStateOpen then msgbox “數(shù)據(jù)庫(kù)已經(jīng)連接成功！” else msgbox “數(shù)據(jù)庫(kù)連接不成功！” 以上連接方法是在事件里完成，也可以把連接做一個(gè)過(guò)程，需要連接時(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 “連接失?。　?/p>

End If End Sub

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

1.在通用聲明段定義記錄對(duì)象：

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í)體對(duì)象，其名稱為DataGrid1 Set DataGrid1.DataSource = mRst.DataSource

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

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

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

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

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

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

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

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

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

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

第三步：向數(shù)據(jù)庫(kù)中寫數(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ù)有問(wèn)題，主鍵重復(fù)”

End If 除了用SQL語(yǔ)句增加庫(kù)記錄以外，也可以用下面的方法來(lái)增加庫(kù)記錄

rs.CursorType = adOpenKeyset rs.LockType = adLockOptimistic rs.Open “部門表”, conn, , , adCmdTable rs.AddNew rs.Fields(0)= bmid rs.Fields(1)= bmmc rs.Update 第四步：刪除數(shù)據(jù)庫(kù)中的一條記錄（找一個(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ù)庫(kù)中的信息（找一個(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ù)庫(kù)已經(jīng)連接成功！” else msgbox “數(shù)據(jù)庫(kù)連接不成功！” End Sub 以上連接方法是在事件里完成，也可以把連接做一個(gè)過(guò)程，需要連接時(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

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

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

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

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

這次實(shí)訓(xùn)給我?guī)?lái)了危機(jī)感和壓迫力，讓人警醒，更加清楚自己的水平和重量，心里總有種被大石頭壓著的無(wú)力感，但是又憑著一種堅(jiān)持，奮力的抗?fàn)幹?。所以也得出個(gè)結(jié)論，那就是——我得好好好好的努力啊。

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

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

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

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

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

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

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

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