对初学者来说,做一个具有数据库功能的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.Delete 修改: Text1.Text = Adodc1.Recordset.Fields("姓名") 保存: Adodc1.Recordset("姓名") = Text1.Text 退出: Unload Form1 查询:我这里的想法是:隐藏form1,(即form1.hide),显示form2.(即form2.show) 输入姓名然后点击查询,就可以知道他的成绩了. 同样添加adodc1.和上面的方法一样.DataGride也是这样. 查询: Adodc1.RecordSource = "select * from 成绩 where 姓名='" + Text1.Text + "' " 在Form_load()中添加: Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:/VB/db1.mdb;Persist Security Info=False" 自己去理解理解. 返回: Form1.Show |
|