上一期我們嘗試了一個編程的小例子，旨在希望能夠給大家?guī)碜罨镜膸椭蛦l(fā)。

今天我們要使用VB程序來逆天操縱Access數(shù)據(jù)庫，讓還在使用Excel的各路大神汗顏，話不多說，直入主題。

跟昨天一樣，我們先來創(chuàng)建一個空的VB程序，當然也可以用昨天做好現(xiàn)成的，只不過我們在旁邊再加一個'按鈕控件'而已，我們按照昨天的設置，對今天新加的這個按鈕顯示的內(nèi)容'Caption'改成'逆天操縱Access'，和背景色'BackColor'改成'粉色'，以及字體改成'楷體'和字體大小改成'小四'號，完成了相應的設置之后，就是下面這個樣子：

下面再加一個'按鈕控件'

可以看到這個窗體多了一個按鈕，就是'逆天操縱Access'，來吧，雙擊它進入到編寫代碼窗口:

進入到編寫代碼窗口

可以看到，上面的代碼就是我們昨天編寫的存取Excel文件數(shù)據(jù)用的代碼，下面這個模塊是空的：

Private Sub Command2_Click()

End Sub

我們需要編寫程序代碼，前半部分是固定模式的代碼：

Dim conn As New ADODB.Connection【定義一個數(shù)據(jù)庫連接】

Dim strConn As String【定義一個字符串變量存放數(shù)據(jù)庫所在路徑】

前半部分一切搞定，再來看后半部分：

Set conn = Nothing【工作完成后釋放數(shù)據(jù)庫連接】

MsgBox '您的程序運行完畢'【彈出消息框示意工作已經(jīng)完成】

固定模式的代碼準備好

好啦，中間開始寫我們要實現(xiàn)具體工作的代碼吧，今天我們先來個簡單的熱熱身，日后再逐漸加深難度。

我們現(xiàn)在就對下面這個學生成績表，求三門成績的總分放在新的字段中：

用程序自動加字段求總分

來，開工，寫代碼：

Dim sql1, sql2 As String【定義兩個字符串，用來裝查詢語句】

strConn = 'Provider=microsoft.ace.oledb.12.0;Data Source=F:\1頭條文章\個人數(shù)據(jù)庫.accdb'【讀取數(shù)據(jù)庫所在路徑】

sql1 = 'alter table xscj add column 總分數(shù) float'【增加一個'總分數(shù)'字段的語句】

sql2 = 'update xscj set 總分數(shù)=yy+yw+sx'【算三門總分的語句】

conn.Open strConn【打開數(shù)據(jù)庫】

conn.Execute (sql1)【執(zhí)行語句1】

conn.Execute (sql2)【執(zhí)行語句2】

conn.Close【關(guān)閉數(shù)據(jù)庫】

好了，寫完了，放在程序里面就是這樣的：

程序一氣呵成

運行之后，就是這樣了：

點擊下面的按鈕

點擊下面我們新增加的這個按鈕，就是剛剛我們編寫代碼的控件，程序就開始運行啦：

程序瞬間完成，并且看到提示信息

可以看到，我們剛剛編寫的程序瞬間運行完成，點擊確定，來看看我們的數(shù)據(jù)庫里面有什么變化吧：

打開數(shù)據(jù)庫，發(fā)現(xiàn)完全按照程序來走的

總分算出來了，并且還在我們的數(shù)據(jù)庫里面增加了一個字段，就是我們在程序里面已經(jīng)添加的，大功告成啦。

其實，這是最簡單的，只有更復雜的工作才會動用我們?nèi)ゾ幊绦?，所以先把簡單的學會，復雜的自然而然慢慢就學會啦，大家別著急，一步一步來，腳踏實地的來干工作吧。

小伙伴們，你們學會了嗎？