??????? 對初學者來說,做一個具有數據庫功能的VB程序也許并不簡單,我是一個初學者,永遠的初學者,我也深深地感受到學習的困難,為了能摸索出一條學習VB數據庫的方法,我找了很多例題,查閱了很多的資料,也嘗試過了很多,甚至幾天幾夜沒有睡過.盡管成就很小但是我體會到了從痛苦到快樂的過程.痛苦很長很長,轉變為快樂其實也就在一瞬間.下面我簡單做了一個VB小程序,希望對你們有幫助.

(1)文件-新建-標準.exe?????

(2)工程-部件? 找出并選中:Microsoft ADO Data Control6.0(OLEDB)和Microsoft DataGrid Control6.0 (OLEDB)?

(3)添加如圖所示控件

????? "姓名"--對應Text1,其他是:性別--Combo1,院系--Comobo2,高等數學--Text2,體育--Text3,計算機--Text4

???? 添加,刪除,查詢,修改,保存,退出?

再添加:Adodc1和DataGrid1?

對adodc1,在其屬性欄中找出:ConnectionString 使用連接字符串.連接到你的數據庫中.(如果你對數據庫Asscess不熟悉,我建議你應該先去看看別人怎么做一個以"成績"為表名的數據表);同樣在下面的RecordSource中選中2-adCmdTable,過程名稱選"成績",就是把成績表聯系到adodc這個控件上.

添加:??? Adodc1.Recordset.AddNew
????? Adodc1.Recordset("姓名") = Text1.Text
????? Adodc1.Recordset("性別") = Combo2.Text
????? Adodc1.Recordset("院系") = Combo1.Text
????? Adodc1.Recordset("高等數學") = Text2.Text
????? Adodc1.Recordset("體育") = Text3.Text
????? Adodc1.Recordset("計算機") = Text4.Text
??? Adodc1.Recordset.Update
???
??? Text1.Text = ""
??? Text2.Text = ""
??? Text3.Text = ""
??? Text4.Text = ""
??? Combo1.Text = ""
??? Combo2.Text = ""

刪除:??? Adodc1.Recordset.Delete
??? Adodc1.Recordset.Update

修改:??? Text1.Text = Adodc1.Recordset.Fields("姓名")
??? Combo1.Text = Adodc1.Recordset.Fields("院系")
??? Combo2.Text = Adodc1.Recordset.Fields("性別")
??? Text2.Text = Adodc1.Recordset.Fields("高等數學")
??? Text3.Text = Adodc1.Recordset.Fields("體育")
??? Text4.Text = Adodc1.Recordset.Fields("計算機")

保存:????? Adodc1.Recordset("姓名") = Text1.Text
????? Adodc1.Recordset("性別") = Combo2.Text
????? Adodc1.Recordset("院系") = Combo1.Text
????? Adodc1.Recordset("高等數學") = Text2.Text
????? Adodc1.Recordset("體育") = Text3.Text
????? Adodc1.Recordset("計算機") = Text4.Text
??? Adodc1.Recordset.Update

退出:??? Unload Form1
??? End

查詢:我這里的想法是:隱藏form1,(即form1.hide),顯示form2.(即form2.show)

輸入姓名然后點擊查詢,就可以知道他的成績了.

同樣添加adodc1.和上面的方法一樣.DataGride也是這樣.

查詢:??? Adodc1.RecordSource = "select * from 成績 where 姓名='" + Text1.Text + "' "
??? Adodc1.Refresh: Set DataGrid1.DataSource = Adodc1
??? DataGrid1.Visible = True

在Form_load()中添加:??? Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:/VB/db1.mdb;Persist Security Info=False"
??? Adodc1.RecordSource = "select * from 成績 "
??? Adodc1.Refresh: Set DataGrid1.DataSource = Adodc1

自己去理解理解.

返回:??? Form1.Show
??? Form2.Hide
??? Text1.Text = ""
??? Unload Form2

???以上就是我在學習過程中的一點小小的收獲,希望能與你們共享,能為我們的學習者提供一點幫助.

最后希望你們能有所成就,為我國的軟件事業貢獻自己的力量.

?????????????????????????????????????????????????????????????????????????????????????????????? 2007.9.9 晚上21.50

??????????????????????????????????????????????????????????????????????????????????????????????????????? 同福少俠(袁華)? <原創>

總結

以上是生活随笔為你收集整理的手把手教你做一个简单的VB数据库程序的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。