使用VB访问ACESS数据库.pptx

上传人:qwe****56 文档编号:34224214 上传时间:2022-08-15 格式:PPTX 页数:10 大小:685.64KB
返回 下载 相关 举报
使用VB访问ACESS数据库.pptx_第1页
第1页 / 共10页
使用VB访问ACESS数据库.pptx_第2页
第2页 / 共10页
点击查看更多>>
资源描述

《使用VB访问ACESS数据库.pptx》由会员分享,可在线阅读,更多相关《使用VB访问ACESS数据库.pptx(10页珍藏版)》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。

1、使用VB访问ACESS数据库杭十一中信息技术备课组杭十一中信息技术备课组 黄玉芬黄玉芬VB与数据库连接方式 Visual Basic提供了比较丰富的数据访问技术,如ADO、DAO、RDO等,其中ADO (ActiveX Data Objects,ActiveX数据对象)是微软公司提供的一种应用程序访问数据库的编程接口。它能完成DAO、RDO所有的功能。引入ADO库定义文件选择该选项(不同环境下ADO的版本号可能不同)单击“确定” 通过AD0从中国985高校数据库文件“Universities.accdb”中获取表“universities”中的数据,并将985高校的 名 称 和 所 在 地 显

2、 示 在 列 表 框 中#1Dim conn As New ADODB.Connection#2conn.ConnectionString = “provider=microsoft.ace.oledb.12.0;data source=” + App.Path + “Universities.accdb“#3conn.Open #4Dim rs As New ADODB.Recordset#5set rs.ActiveConnection = conn#6rs.Open select * from universities #7i=0#8Do While Not rs.EOF#9 i = i

3、 + 1#10 List1.AddItem rs.Fields(1) + + rs.Fields(2)#11 rs.MoveNext#12Loop#13List1.additem 共有 + Str(i) + 记录#14rs.Close#15conn.Close#1Dim conn As New ADODB.Connection 定义连接数据库的对象 #2conn.ConnectionString = “provider=microsoft.ace.oledb.12.0;data source=” + App.Path + “Universities.accdb“ 确定连接的数据库#3conn.

4、Open 打开数据库的连接#15conn.Close 关闭数据库的连接#4Dim rs As New ADODB.Recordset 创建记录集#5set rs.ActiveConnection = conn 设置记录集的连接属性#6rs.Open “select * from universities “ 打开记录集#14rs.Close 关闭记录集#7i=0 统计记录数#8Do While Not rs.EOF EOF取值为true 时表示已经到达记录集的结尾,否则为false#9 i = i + 1#10 List1.AddItem rs.Fields(“高校名称”) + + rs.Fi

5、elds(2)#11 rs.MoveNext 把当前记录指针移动到下一条记录#12Loop#13List1.additem 共有 + Str(i) + 记录“ #10 List1.AddItem rs.Fields(“高校名称”) + + rs.Fields(2)Rs.fields(字段序号),其中字段序号从0开始编号Rs.fields(“字段名称”)Fields集合返回当前记录某个字段的数据有一下两种方法使用VB AD0访问ACESS数据库的一般流程#1Dim conn As New ADODB.Connection#2conn.ConnectionString = “provider=mi

6、crosoft.ace.oledb.12.0;data source=” + App.Path + “Universities.accdb“#3conn.Open #4Dim rs As New ADODB.Recordset#5set rs.ActiveConnection = conn#6rs.Open select * from universities #7i=0#8Do While Not rs.EOF#9 i = i + 1#10 List1.AddItem rs.Fields(1) + + rs.Fields(2)#11 rs.MoveNext#12Loop#13List1.additem 共有 + Str(i) + 记录#14rs.Close#15conn.Close#1定义连接数据的对象#2确定连接的数据库#3打开到数据库的连接 #4创建记录集#5设置记录集的连接属性#6打开记录集#7#8#9 #10 数据库记录的访问与读取等操作#11 #12#13#14关闭记录集#15关闭到数据库的连接

展开阅读全文
相关资源
相关搜索

当前位置:首页 > 教育专区 > 初中资料

本站为文档C TO C交易模式,本站只提供存储空间、用户上传的文档直接被用户下载,本站只是中间服务平台,本站所有文档下载所得的收益归上传人(含作者)所有。本站仅对用户上传内容的表现方式做保护处理,对上载内容本身不做任何修改或编辑。若文档所含内容侵犯了您的版权或隐私,请立即通知淘文阁网,我们立即给予删除!客服QQ:136780468 微信:18945177775 电话:18904686070

工信部备案号:黑ICP备15003705号© 2020-2023 www.taowenge.com 淘文阁