vb adodc控件连接带密码的access数据库出错(access以独占方式打开后设置密码123456)
我按照网上查到的方法：(1)手动：在属性页“所有”处的JetOLEDB:DataBasepassword处填写值“123456”，测试连接成功！但在运行程序时仍提示“无法启用应用程序，工作信息文件丢失或...
我按照网上查到的方法：(1)手动： 在属性页“所有”处的Jet OLEDB: DataBase password处填写值“123456”，测试连接成功！但在运行程序时仍提示“无法启用应用程序，工作信息文件丢失或是已被其他用户以独占方式打开”(2)编写代码：Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\XJ.mdb" ;Persist Security Info=False:Jet OLEDB: DataBase password=123456" 依然没有解决上述问题。哪位大神解答下！！！全文代码如下：rivate Sub Form_Load()  Dim cnn As New ADODB.Connection  Dim rs As New ADODB.Recordset 告知单管理.Caption = 登录窗体.onloaduser & "！欢迎来到[告知单维护]平台，今天是：" & Format(Now(), "dddddd") & "   " & Format(Now(), "dddd")    DataGrid1.Columns(0).Width = 400    DataGrid1.Columns(1).Width = 1000    DataGrid1.Columns(2).Width = 1500    DataGrid1.Columns(3).Width = 1000    DataGrid1.Columns(4).Width = 3000    DataGrid1.Columns(5).Width = 1000    DataGrid1.Columns(6).Width = 1000    DataGrid1.Columns(7).Width = 1000    DataGrid1.Columns(8).Width = 1200    DataGrid1.Columns(9).Width = 1000     If cnn.State = adStateOpen Then cnn.Close       cnn.Open "driver={microsoft access driver (*.mdb)};dbq=" & App.Path & "\XJ.mdb;pwd=123456"    If rs.State = adStateOpen Then rs.Close       rs.Open "select * from XJgzdgl", cnn, adOpenKeyset, adLockOptimistic       rs.Update    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\XJ.mdb" & ";Persist Security Info=False;Jet OLEDB: DataBase Locking Mode=1;Jet OLEDB: DataBase password=123456"    Adodc1.CommandType = adCmdText    Adodc1.RecordSource = "select top 500 * from XJgzdgl order by ID desc"    Adodc1.Recordset.UpdateBatch    Adodc1.Refresh    Adodc1.Recordset.MoveFirst
展开

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

手把手教你编写VB小程序，以后可能会用的到哦！
有二级VB基本基础即可！源代码请进群375116333联系群主！
友情提醒：
因为VB6.0是比较老的软件了，为了完美兼容，建议
尽量使用XP 和 win7 32位的系统。
xp与vb的兼容性是最完美匹配的。
win7 64位和win10 已测也是可以正常打开运行。
特别说明 ：
以下所有源代码在win7 64位 和 win10 64位下，打开VB程序均可运行成功。如果想在win10系统下编写程序，请先安装VB6.0 企业版，软件可以进群下载，如何安装可观看老师另外给大家录制的VB6.0在win10下安装企业版的视频，连接数据库时win10会遇到找不到OLE DB提供的access 4.0程序，可参照第一个和第六个程序，不用UDL 直接用代码连接数据库。数据库如果不是2003版本 是2010以上的可以直接从老师提供的文件里拷贝一个mdb的access2003 即可，无需再安装2010高级版本。
即
Rs.ActiveConnection = "file name=manage.udl"
修改为
rs.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Test.mdb"
即
cn.ConnectionString = "file name=manage.udl"
修改为
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Test.mdb"
---------------------------------
如果坚持想要用2010版本以上的access，可以使用以下语句
rs.ActiveConnection = "provider=microsoft.ace.oledb.12.0;data source=Test.accdb"
cn.ConnectionString = "provider=microsoft.ace.oledb.12.0;data source=Test.accdb"
--------------------------------
一、抽奖软件
(有源代码)
适用范围：活动抽奖、随机出题、俩俩PK抽签等等。
所用软件：VB6.0和office中的access【推荐用2003】
功能：
1、将所有人员名单存放在access中，输入人数，可以随机抽出互不重复人员姓名。已被抽中人员不再被抽中。
2、也可以设置一个或者多人不会被抽中，但是在滚动屏幕里可以看见名字。
3、也可以设置可以被抽中多次。
4、开始抽奖时，有音乐响起，音乐可以视个人爱好更换。每次抽奖时可以有不同音乐。
5、可以打包生成可执行文件，没有安装VB和Office的电脑也可以运行。
6、将抽中的人员姓名备份在记事本里。
7、有重置功能，可以重复使用。
非常简单，稍微有一点VB基础最多花费半天时间即可做完。
二、准点报时
(有源代码)
适用范围：准点播放广告电影；学校、企业、工厂准点报时等等。
所用软件：VB6.0 、格式工厂
功能：
采用windows自带的播放器，根据设置的时间，到点自动播放电影(wmv格式等windows兼容格式)、音乐(mp3格式)。
非常简单，稍微有一点VB基础最多花费20分钟即可做完。
三、简单管理系统
(有源代码)
用VB6.0制作的界面，对数据库进行查询数据、增加数据、修改数据、删除数据，从而可以做出简单的数据管理系统。
所需软件：VB6.0、Access2003
功能：
1.登录界面，输入正确的帐号和密码，进入系统；如输入错误，给出来提示
2.进入系统后，将数据库里的数据直接显示在界面的表格框里。
3.输入姓名或者其他字段，查询出内容并显示在界面上。
4.根据日期区间查询所需内容，并显示在界面上
5.可以一条一条浏览数据
6.双击表格，可以将数据显示在文本框中，然后可以修改、删除、新增数据记录。
四、VB程序进行Excel数据导入、导出
(有源代码)
所用软件：VB6.0、Excel2003、access2003【与VB兼容性最好】
功能：1、VB窗体界面打印
2、Excel数据批量导入数据库
3、所有数据导出Excel
4、根据条件查询出来的数据导出到Excel
5、文本框里的多行多列的数据导入到Excel
五、VB6.0制作自定义控件(无源代码)
有的时候，多个控件和控件事情需要在多个窗体里运用很多次，为了提高效率，我们可以创建用户自定义控件。当我们从其他地方看到一个很好的用户控件，我们也可以拷贝和添加到自己的VB工程里运用。
六、VB6.0利用MD5加密保存在数据库里的数据，即使打开数据库里面的表，也无法知道数据内容。
(有源代码)
1、VB连接有密码的数据库
2、将密码进行加密，在数据库看不到真实的密码
3、实现登录功能
4、实现注册新用户功能，已注册用户不能重复注册
5、实现密码修改功能，必须要知道原密码。

VB小程序，关注我有更多的有趣的VB小程序 
如果要使用.accdb格式的数据库，首先在工程下引用“Microsoft ActiveX Data Objects 6.1 library”
界面：
代码：
Private Sub Command1_Click()
 Dim conn As New ADODB.Connection '创建Connection连接对象
 Dim rs As New ADODB.Recordset '创建Recordset记录集
 Dim i%
 Dim a(1 To 11) As Integer
 i = 1
 conn.ConnectionString = "Provider=Microsoft.ace.oledb.12.0;data source=E:mydata零件.accdb" '确定连接的数据库
 conn.Open '打开数据库连接
 rs.ActiveConnection = conn '设置记录的连接属性
 rs.Open "select * from lj" '打开记录集
 Do While Not rs.EOF '从第一条记录开始查找，直到完成查询
 a(i) = rs.Fields(2) '数据放入数组中
 List1.AddItem rs.Fields(2) & Space(16) & rs.Fields(3) '数据放入list列表框中
 rs.MoveNext
 Loop
 rs.Close '关闭记录集
 conn.Close '关闭数据库的连接
End Sub
数据库：
想得到更多的VB小程序，请关注我，点击下方的广告可以更好的支持和鼓励我哦！