【发布时间】:2011-04-15 15:04:32
【问题描述】:
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() 当我尝试连接到我在 access 中创建的 .mdb 数据库文件时,该函数正确地告诉我我有密码,但是一旦我输入我的密码 我得到标题中定义的错误,我不知道为什么。任何帮助将不胜感激。
【问题讨论】: