手把手教你做一個簡單的VB資料庫程式

jackyuanhua發表於2007-09-09

        對初學者來說,做一個具有資料庫功能的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

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

相關文章