VB数据库操作实例

1、vb数据库操作实例2008年 02 月 22 日 05:49 vb 数据库操作对很多初学者朋友感到比较吃力，目前教材中的实例对数据库操作都比较单一， 很多朋友提议我做一个包括浏览、添加、修改、删除功能的数据库操作实例，下面这个实例就是一个这样的数据库操作实例。书库管理系统是一个最简单的数据库操作实例，它包括浏览、添加、修改、删除功能的数据库操作， 使用数据链接控件adodc链接数据库、 数据显示控件 mshflexgrid 显示数据库中的记录。在新建工程时工具箱中是没有adodc控件和 mshflexgrid控件的，我们必须点击菜单中的【工程】-【部件】，在对话框中勾选“ microsoft

2、ado data control 6.0 (sp6) ”和“microsoft hierarchical flexgrid control 6.0 (sp4)”，最后点击【确定】， 这样 adodc控件和 mshflexgrid控件就已经放置在工具箱中了。其中 adodc控件的 connectionstring属性值是：provider=microsoft.jet.oledb.4.0;data source=家庭书架 .mdb;persist security info=false，它设置链接了“家庭书架.mdb”这个 access 数据库，recordsourc 属性值是： select 图

3、书登记表 .id, 图书登记表 . 名称, 图书登记表. 书号, 图书登记表 . 作者, 图书登记表 . 出版社 , 图书登记表 . 出借状态 , 出借记录. 借书人 , 出借记录 . 电话, 出借记录 . 地址, 图书登记表 . 备注, 图书登记表 . 出借记录 from 图书登记表 , 出借记录 where 图书登记表 .id= 出借记录 .zhuid order by 图书登记表 .id ，因为在“家庭书架 .mdb”数据库中包含 图书登记表 和 出借记录 二个数据表，这是多表链接的典型的sql语句。 adodc的这二个属性值在 vb的属性窗口进行编辑，你可以将上述属性值直接输入到相应的

4、属性中，设置 visible的值为 false ，目的是在运行中不显示这个控件，其他属性默认值即可。 mshflexgrid控件的名称我们修改为ms1 ，它的属性设置稍稍比较麻烦：首先将它的 datasource 属性在属性窗口设置为 adodc1；然后在对象窗口右击控件，在下拉菜单中点击【属性】，在“通用”标签中修改行为 3，修改列为 11，修改固定行为 0，修改固定列为 0，如果数据链接没有问题，在属性的“带区”标签中可以看到列标题和列名称已经设置了，其他属性页的属性可以容许默认值，中点击【确定】即可。另外在属性窗口设置 mshflexgrid控件的 backcolorbkg 属性为 &a

5、mp;h00ffe0e0&，这个属性是控件底色的设置， 然后设置 backcolorfixed 属性为 &h00c0ffff&，这个属性是控件数据显示标题的底色。其他默认值即可。最后放置三个按钮， 一个标签，三个 frame控件，在 frame1、frame2 、frame3控件中分别放置 9 个标签（数组）， 8 个文本框，一个下拉选择框，一个按钮，在 frame2 、frame3控件中分别放置一个标签，设置这个标签的visible值为false ，其他设置参考下图：设置和调整控件如上图后， 设置数据库，在程序目录新建一个access 数据库，修改数据库的名称为“家庭

6、书架.mdb”，新建二个数据表， 分别是：“图书登记表”和“出借记录”：在“图书登记表”中添加字段：“id”为自动编号、 主键，“名称”为文本、大小 50，“书号”为文本、大小30，“作者”为文本、大小40，“出版社”为文本、大小 60，“出借状态”为文本、大小20，“出借记录”为数字、长整型，“备注”为文本、大小50；在“出借记录”中添加字段：“id”为自动编号、主键 , “zhuid”为数字、长整型，“名称”为文本、大小50，“借书人”为文本、大小20，“电话”为文本、大小 20，“地址”为文本、大小50。数据库设置成功。最后点击【视图】 -【代码窗口】输入下面的代码： 模块级变量dim

7、zfc as string dim rosx as integer - 添加记录事件private sub command1_click() 添加记录dim fl as string, xid as long 家庭书架 .mdb set conn = opendatabase(fl) strsql = select * from 图书登记表 set rs = conn.openrecordset(strsql) rs.addnew rs! 名称 = text1(0).text rs! 书号 = text1(1).text rs! 作者 = text1(2).text rs! 出版社 = tex

8、t1(3).text rs! 出借状态 = combo1.text rs! 备注 = text1(7).text if combo1.text = 出借 then rs!出借记录 = 1 rs.update rs.close set rs = nothing strsql = select * from 图书登记表 order by id desc set rs = conn.openrecordset(strsql) xid = rs!id rs.close set rs = nothing strsql = select * from 出借记录 set rs = conn.openreco

9、rdset(strsql) if combo1.text = 出借 then rs.addnew rs!zhuid = xid rs! 名称 = text1(0).text rs! 借书人 = text1(4).text rs! 电话 = text1(5).text rs! 地址 = text1(6).text rs.update else rs.addnew rs!zhuid = xid rs! 名称 = rs! 借书人 = 没有出借 rs! 电话 = 无 rs! 地址 = 无 rs.update end if rs.close set rs = nothing conn.close msg

10、box 记录添加成功！ unload me 书库管理 .show end sub - 修改记录事件private sub command2_click() 修改记录if val(label4.caption) = 0 then msgbox 没有选择要修改的记录！ exit sub end if dim fl as string 家庭书架 .mdb set conn = opendatabase(fl) strsql = select * from 图书登记表 where id= & val(label4.caption) & set rs = conn.openrecords

11、et(strsql) rs.edit rs! 名称 = text2(0).text rs! 书号 = text2(1).text rs! 作者 = text2(2).text rs! 出版社 = text2(3).text rs! 出借状态 = combo2.text rs! 备注 = text2(7).text if combo2.text = 出借 then rs!出借记录 = 1 rs.update rs.close set rs = nothing strsql = select * from 出借记录 where zhuid= & val(label4.caption) &a

12、mp; set rs = conn.openrecordset(strsql) if combo2.text = 出借 then if not rs.eof then rs.edit rs! 名称 = text2(0).text rs! 借书人 = text2(4).text rs! 电话 = text2(5).text rs! 地址 = text2(6).text rs.update else rs.addnew rs!zhuid = val(label4.caption) rs! 名称 = text2(0).text rs! 借书人 = text2(4).text rs! 电话 = tex

13、t2(5).text rs! 地址 = text2(6).text rs.update end if else if not rs.eof then rs.edit rs! 名称 = text2(0).text rs! 借书人 = 没有出借 rs! 电话 = 无 rs! 地址 = 无 rs.update else rs.addnew rs!zhuid = val(label4.caption) rs! 名称 = text2(0).text rs! 借书人 = 没有出借 rs! 电话 = 无 rs! 地址 = 无 rs.update end if end if rs.close set rs =

14、 nothing conn.close msgbox 记录修改成功！ label4.caption = unload me 书库管理 .show end sub - 添加记录连接private sub command3_click() frame1.visible = true frame2.visible = false frame3.visible = false zfc = 添加 for i = 0 to 7 text1(i).text = next i combo1.text = command1.visible = true label5.caption = 现在正在添加图书资料 e

15、nd sub - 修改记录连接private sub command4_click() frame1.visible = false frame2.visible = true frame3.visible = false zfc = 修改 for i = 0 to 7 text2(i).text = next i combo2.text = label4.caption = command2.visible = true label5.caption = 现在正在修改图书资料 end sub - 删除记录连接private sub command5_click() frame1.visibl

16、e = false frame2.visible = false frame3.visible = true zfc = 删除 for i = 0 to 7 text3(i).text = next i combo3.text = label1.caption = command6.visible = true label5.caption = 现在正在删除图书资料 end sub - 删除记录事件private sub command6_click() 删除记录dim ss as integer ss = msgbox( 确实要删除这个记录吗？ , vbokcancel, 删除确认！ ) i

17、f ss = 1 then if val(label1.caption) = 0 then msgbox 没有选择要修改的记录！ exit sub end if dim fl as string, xid as long 家庭书架 .mdb set conn = opendatabase(fl) strsql = select * from 图书登记表 where id= & val(label1.caption) & set rs = conn.openrecordset(strsql) rs.delete rs.close set rs = nothing strsql =

18、 select * from 出借记录 where zhuid= & val(label1.caption) & set rs = conn.openrecordset(strsql) rs.delete rs.close set rs = nothing conn.close msgbox 记录删除成功！ unload me 书库管理 .show else msgbox 取消了删除记录！ end if end sub - 页面启动事件private sub form_load() dim strsql as string frame1.visible = false fram

19、e2.visible = false frame3.visible = false label5.caption = 现在正在浏览图书资料 ms1.backcolorbkg = &hffe0e0 end sub - 点击 mshflexgrid控件中记录的事件private sub ms1_click() dim i as integer, colx as integer colx = ms1.col rosx = ms1.row if zfc = 添加 then for i = 0 to 7 text1(i).text = next i combo1.text = elseif zf

20、c = 修改 then text2(0).text = ms1.textmatrix(rosx, 1) text2(1).text = ms1.textmatrix(rosx, 2) text2(2).text = ms1.textmatrix(rosx, 3) text2(3).text = ms1.textmatrix(rosx, 4) combo2.text = ms1.textmatrix(rosx, 5) text2(4).text = ms1.textmatrix(rosx, 6) text2(5).text = ms1.textmatrix(rosx, 7) text2(6).text = ms1.textmatrix(rosx, 8) text2(7).text = ms1.textmatrix(rosx, 9) label4.caption = ms1.textmatrix(rosx, 0) label5.caption = 已经选择记录准备修改 elseif zfc = 删除 then text3(0).text = ms1.textmatrix(rosx, 1) text3(1).text = ms1.textmatrix(rosx, 2) text3(2).text = ms1.textmatrix(rosx, 3) text3(3