 上传我的文档
 上传文档
 下载
 收藏
粉丝量：22
该文档贡献者很忙，什么也没留下。
 下载此文档
VB如何连接ACCESS数据库详解
下载积分：500
内容提示：VB如何连接ACCESS数据库详解
文档格式：PDF|
浏览次数：359|
上传日期： 05:42:02|
文档星级：
全文阅读已结束，如果下载本文需要使用
 500 积分
下载此文档
该用户还上传了这些文档
VB如何连接ACCESS数据库详解
关注微信公众号怎么实现vb和access的连接_百度知道
怎么实现vb和access的连接
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
poi123p82知道合伙人
采纳数：243
获赞数：5635
'要连接access数据库有两种方法用ADODC或ADO.方法一: （ADODC)首先须引用Projects-Components-Microsoft ADO Data Controls 6.0 (OLEDB).之后在表单设置ADODC控件。然后Form_Load()输入以下代码：Private Sub Form_Load()ADODC1.ConnectionString = &provider=Microsoft.jet.OLEDB.4.0;Persist security info= F Data source=& & App.Path & &\数据库名称.mdb&ADODC1.CommandType = adCmdTextADODC1.RecordSource = &select * from 表格名称&ADODC1.RefreshEnd Sub方法二: (ADO)'首先须引用Projects-References-Microsoft Active X Data Objects 2.0 Library.'*注意以下两段须写在程式最上面（Gerenal一般）中。Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim SQL As String'然后在Form_Load()输入以下代码：Private Sub Form_Load()cn.ConnectionString = &provider=Microsoft.jet.OLEDB.4.0;Persist security info= F Data source=& & App.Path & &\数据库名.mdb&cn.OpenIf rs.State = adStateOpen Then rs.Closers.CursorLocation = adUseClientSQL = &select * from 表格名&rs.Open Trim$(SQL), cn, adOpenKeyset, adLockPessimisticEnd Sub
langelos知道合伙人
采纳数：890
获赞数：2027
DATA控件也可以
changjeff知道合伙人
采纳数：505
获赞数：566
利用ADO控件，就OK了
cqdjzwj知道合伙人
采纳数：145
获赞数：377
请参照这个解决办法：想用VB做一个登陆界面如何和access相连接？
其他1条回答
为你推荐：
其他类似问题
您可能关注的内容
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。VB中ADODC控件连接ACCESS数据库_百度文库
您的浏览器Javascript被禁用，需开启后体验完整功能，
享专业文档下载特权
&赠共享文档下载特权
&10W篇文档免费专享
&每天抽奖多种福利
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
VB中ADODC控件连接ACCESS数据库
&&VB中ADODC控件连接ACCESS数据库(非原创,适合初学者)
阅读已结束，下载本文需要
定制HR最喜欢的简历
下载文档到电脑，同时保存到云知识，更方便管理
加入VIP
还剩2页未读，
定制HR最喜欢的简历
你可能喜欢豆丁微信公众号
君，已阅读到文档的结尾了呢~~
VB连接Access数据库的两种方法
扫扫二维码，随身浏览文档
手机或平板扫扫即可继续访问
VB连接Access数据库的两种方法
举报该文档为侵权文档。
举报该文档含有违规或不良信息。
反馈该文档无法正常浏览。
举报该文档为重复文档。
推荐理由：
将文档分享至：
分享完整地址
文档地址：
粘贴到BBS或博客
flash地址：
支持嵌入FLASH地址的网站使用
html代码：
&embed src='http://www.docin.com/DocinViewer--144.swf' width='100%' height='600' type=application/x-shockwave-flash ALLOWFULLSCREEN='true' ALLOWSCRIPTACCESS='always'&&/embed&
450px*300px480px*400px650px*490px
支持嵌入HTML代码的网站使用
您的内容已经提交成功
您所提交的内容需要审核后才能发布，请您等待！
3秒自动关闭窗口您的位置：
精品软件课程
Word是由Microsoft公司出版的文字...
Excel是office的重要组成部分。多特...
PPT（PowerPoint）是Office...
Excel是office的重要组成部分。最新...
Word是由Microsoft公司出版的文字...
小游戏推荐
出处：2345软件教程
您可能感兴趣的话题：
核心提示：在VB编程中通常要与数据库打交道，对于数据量较小的应用，一般选用Access作为数据库，因为Access数据库比较简单，功能也比较齐全，数据的备份、拷贝都很方便，且程序发布时不需要额外单独安装其它的数据库管理软件。
　　在VB编程中通常要与数据库打交道，对于数据量较小的应用，一般选用Access作为数据库，因为Access数据库比较简单，功能也比较齐全，数据的备份、拷贝都很方便，且程序发布时不需要额外单独安装其它的数据库管理软件。因此，在功能能够满足要求的条件下，Access数据库往往成为一些小型数据库软件的首选。　　关于用VB操作Access库表的方法有多种，一般初学者往往会使用数据控件，许多资料上也大都以此作为操作Access数据库的起点来介绍，因为这个方法使用起来非常简单，但使用数据控件的方法在程序编码上往往不够灵活。现在介绍一下其它两种操作Access数据库的方法。　　第一种：使用数据库对象　　首先，要进行有关数据对象的声明，代码如下。
Dim MyWs As WorkspaceDim MyDB As DatabaseDim WordTab As Recordset　　生成工作区，打开数据库，然后再根据需要打开相应的库表。
Set MyWs = DBEngine.CreateWorkspace″″ ″Admin″ ″″ dbUseJetSet MyDB = MyWs.OpenDatabase数据库名称 False FalseSet WordTab = MyDB.OpenRecordset″表名″ dbOpenDynaset　　这种方法的优点是代码比较简单，要求的环境为DAO 2.5/3.51，其中表名可以换成SELECT语句，即根据条件打开所需要的记录集，这种方法可脱离数据控件，可以比较方便灵活地操作数据库表，增加了程序的灵活性。　　提示：经过测试发现，这种方法只能打开Access97库表，对于Access2000库表却无能为力，会弹出库表格式不对的出错提示。另外，对数据环境的要求仍比较多。　　第二种：使用ADODB　　首先，声明一个链接变量，并根据需要声明记录集变量。
Dim LocCnn1 As ADODB.ConnectionDim LocRst1 As ADODB.Recordset
　　建立与数据库的链接，如果数据库没有口令，最后一行可以不写（写上也不会错）。
Set LocCnn1 = New ADODB.ConnectionLocCnn1.Open ″Provider=Microsoft.Jet.OLEDB.4.0User ID=Admin″ & _″Data Source=″ & App.Path & ″数据库名称.mdb″& _″Mode=Share Deny NoneExtended Properties=''Persist Security Info=False″ & _″Jet OLEDBDatabase Password='asp561rbc'″ 　　这种方法虽然代码长一些，但对数据环境要求低，且结构清晰，所编写的发布程序也大为减小。由于与链接SQL Server等数据库的方法一样，因而大量的操作数据库的代码相同，当数据库需要由Access扩充到一些大型数据库，或由一些大型数据库裁剪出一个简单数据库时，程序的移植会比较方便。　　另外，这种方法对于Access97及Access2000均能很好地支持，兼容性好。对于大量插入、删除、修改等操作，只在Connection层进行即可，既可提高速度又可减少代码。　　如果还要获取具体的记录集内容，则须再根据条件打开具体的库表，代码如下：
Set LocRst1 = New ADODB.Recordset　 LocRst1.CursorType = adOpenKeysetLocRst1.LockType = adLockOptimisticLocRst1.Open ″SELECT
FROM 表名″ LocCnn1adCmdText
　　提示：一般情况下，建议使用第二种方法。
相关教程推荐
相关软件推荐}