vb不能打开数据库，总是提示“已经被别的用户以独占方式打开，或么有查看数据的权限”

Posted 2023-05-06

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim Str1 As String
Dim Str2 As String
Dim Str3 As String
Str1 = "Provider=Microsoft.Jet.OLEDB.4.0;"
Str2 = "Data Source=E:\vb\Access_db.mdb;"
Str3 = "Jet OLEDB:Database Password="
conn.Open Str1 & Str2 & Str3
strSQL = "select * from wzdz"
rs.Open strSQL, conn, 3, 3
rs.AddNew
rs!网站名称 = Text1.Text
rs!网站地址 = Text2.Text
rs!网站描述 = Text3.Text
rs.Update
rs.Close
conn.Close
这个是代码，就是这句话出错conn.Open Str1 & Str2 & Str3
，各位大侠帮我看看啊，有加分的啊，加10分

试试其他的数据库？如果不行，就是这个数据库的问题了，尝试重启再开一下。

或者是后者“没有查看数据的权限” ，尝试一下其他的数据库。看看能不能 参考技术A 应该是你直接访问数据库数据了！你把数据库关掉在试一下追问

我是把数据库关了啊

能不能通过vb调出一个选择文件的对话框？

参考技术A 添加一个CommonDialog控件，一个按钮，一个文本框，在按钮代码如下：
Private
Sub
Command1_Click()
CommonDialog1.ShowOpen
Text1.Text
=
CommonDialog1.FileName
End
Sub
Private
Sub
Command2_Click()
Shell
Text1.Text,
vbNormalFocus
End
Sub
运行图：
注意，一般只能打开exe格式的文件。