对初学者来说,做一个具有数据库功能的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

                                                                                                        同福少侠(袁华)  <原创>