0
Dim con As New OleDb.OleDbConnection
Sub connecttodatabase(ByVal fileselected As String)
Dim databasepassword
con.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0; Data Source = " & fileselected
Try
con.Open()
Catch e As OleDb.OleDbException
If e.Message = "Not a valid password." Then
Console.WriteLine("Database has a password. Please enter password to continue.")
databasepassword = Console.ReadLine()
con.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0; Data Source = " & fileselected & ";JetOLEDB:Database Password=" & databasepassword & ";"
con.Open()
End If
errorid = 1
Finally
End Try
End Sub
我遇到的错误发生在第二个con.Open()当我尝试连接到一个.mdb数据库文件时,该函数正确地告诉我我有一个密码,但是一旦我输入密码,就会得到标题中定义的错误,我不知道为什么。任何帮助将不胜感激。OleDB异常:找不到可安装的ISAM
我第一次调用获得唯一的例外是,密码是无效的,所以后来我提示用户输入密码。当我将连接字符串更改为一个你建议我得到以下异常,而不是“无法启动您的应用程序。工作组信息文件丢失或由其他用户专门打开”。编辑:安装MDAC没有区别。 – 2011-04-15 15:32:07