文章插图
'首先 ， 工具->引用->选中Microsoft ActiveX Data Objects 2.X Library'必须选中 ， 否则下面代码不会起作用！（以下链接数据库之方式 ， 不需要使用ADODB控件 ， 仅需代码即可）Public Conn As New ADODB.ConnectionPublic Rs As New ADODB.RecordsetPublic Cnt As Integer '这个Cnt是用来表示数据库数据总量的 ， 对链接过程无关'连接数据库的代码段Conn.CursorLocation = adUseClient '以Conn为链接名建立链接 ， 这里是设置数据游标（客户端数据游标） ， 即设定读取数据库数据之方式（一行一行地读）Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\test.mdb"'自己改动一下上面的路径和文件名即可 ， 其他的代码你不理解照粘贴无妨If Rs.State <> adStateClosed Then Rs.CloseRs.Open "SELECT 铺名, 上月读数, 本月读数, 实用度数, 铺位数, 首层面积, 非经营层面积, 欠费明细, 欠费金额 FROM data WHERE 首层面积 is not null and 非经营层面积 is not null;", Conn, adOpenKeyset, adLockPessimisticCnt = Rs.RecordCount'关闭数据库链接（一般放到子过程结束处 ， 关闭数据库链接）Rs.CloseConn.CloseSet Rs = NothingSet Conn = Nothing'添加、修改、删除、更新数据（都以Conn.Execute后带SQL语句来实现对数据库的查询操作）'Conn.Execute "update data set 上月读数 = 本月读数"’Rs.MoveNext '数据游标转到数据库下一行'实例：For i = 1 To CntDoEventsConn.Execute "insert into data (ID,铺名,上月读数,本月读数,实用度数,铺位数) values(" & Rs("ID") & ",'" & Rs("铺名") & "'," & Rs("上月读数") & "," & Rs("本月读数") & "," & Rs("实用度数") & "," & Rs("铺位数") & ")"Rs.MoveNextNext
【求VB 用ADODB连接ACCESS数据库实例】
推荐阅读
- 车上装定位器有作用吗？
- 鱼缸用什么过滤装置
- 石膏板墙用什么钉子挂相框
- 白醋泡脚的作用 白醋泡脚的功效有哪些
- 苦荞茶的功效与禁忌饮用注意事项有哪些 苦荞茶的功效与禁忌饮用有哪些注意事项
- 中药生地的作用与功效 中药生地的作用与功效举例
- 桔梗的副作用有哪些 服用桔梗会有什么副作用
- 红薯和什么一起不能吃 食用红薯的禁忌有哪些
- 七年级上册历史手抄报第四单元“政权分立与民族融合”题目用什么颜色板块设计或者一些花边什么样的最好发
- 马绊草的功效与作用 关于马绊草的功效介绍