vb连接Access数据库自定义

全栈程序员-站长 • 2022年4月8日上午11:40 • 未分类 • 阅读 35

PubliccnAsNewADODB.ConnectionPublicrsAsNewADODB.Recordset打开数据库连接PublicSubOpenConn() Setcn=NewADODB.Connection Setrs=NewADODB.Recordset cn.CursorLocation=adUseClient

大家好，又见面了，我是你们的朋友全栈君。

Public cn As New ADODB.Connection
Public rs As New ADODB.Recordset

‘打开数据库连接
Public Sub OpenConn()
    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    cn.CursorLocation = adUseClient
    cn.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & App.Path & “/data/XXX.mdb;Jet OLEDB:Database Password=;Persist Security Info=False;”
End Sub
‘关闭数据库连接
Public Sub CloseConn()
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
End Sub

版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容，请发送邮件至举报，一经查实，本站将立刻删除。

发布者：全栈程序员-站长，转载请注明出处：https://javaforall.net/126557.html原文链接：https://javaforall.net

赞 (0)

全栈程序员-站长

0 0

vue图片加载失败默认图片[通俗易懂]

vue图片加载失败默认图片[通俗易懂]css解决方案：img{position:relative;}img:after{content:url(‘替代圖片’);display:block;position:absolute;z-index:2;top:0;left:0;width:100%;height:100%;background-co…

全栈程序员-站长
2022年6月2日
【Android】Broadcasts详解

【Android】Broadcasts详解Android应用程序可以发送广播，也可以接收Android系统或者其它应用发出的广播，这跟发布-订阅设计模式很相似。当一些受到关心的事件发生后，广播会被自动发送。举例来说，当一些系统事件（如开机，设备开始充电等）发生，Android系统会发送广播。应用程序也可以发送自定义的广播，比如当某个应用关注的事件（如数据更新等）发生后可以发送广播提醒它。系统广播当一系列系统事件发生的时候，系统会自动发送广播

全栈程序员-站长
2022年6月15日
推荐几个SQL在线学习网站

推荐几个SQL在线学习网站适合的群体：SQL初学者，想要复习一下SQL基础知识的朋友，能无障碍阅读基础英文的朋友。SQL算是声明式的数据操纵语言，基本上感觉是对着数据库管理系统在喊：给我什么样的数据！似乎大部分人都不认为SQL十分困难。的确，入门十分简单。这里整理推荐几个我自己学习时用过的在线学习网站，可以帮助初学者快速入门SQL，在交互式的环境里学习，不用自己劳神搭建一个数据库，也不用担心损坏别人的数据库，就可…

全栈程序员-站长
2022年8月20日
idea

idea 2021.4 激活码_通用破解码

idea 2021.4 激活码_通用破解码，https://javaforall.net/100143.html。详细ieda激活码不妨到全栈程序员必看教程网一起来了解一下吧！

全栈程序员-站长
2022年3月17日
mysql学习—查询数据库中特定的值对应的表

遇到一个问题，我将问题抽象简单描述如下：循环查询数据库所有表，查出字段中包含tes值的表，并且将test修改为hello？因为自己不才找了很久也没有找到很好的方法，又对mysql的游标等用法不是很了解，在时间有限的情况下，发现了下面的方法，分享给大家：

全栈程序员-站长
2022年2月25日
广义表的head与tail的基本用法

广义表的head与tail的基本用法广义表最基本的操作：取表头head(LS)与取表尾tail(LS)例：LS=(a,(b,c,d))head(LS)=atail(LS)=((b,c,d))head(tail(LS))=(b,c,d)tail(tail(LS))=()head(head(tail(LS)))=btail(head(tail(LS)))=(c,d)head(tail(head(tail(

全栈程序员-站长
2022年5月15日

发表回复

关注全栈程序员社区公众号