How to find out that the database needs a password?

Question

How to find out that the database needs a password?

Mansour_Dalir 1,996

hi , thank

     'Need Check MyDataBase.accdb
      Dim sttPassword as string
     Dim oleConString As String=""
      If bitNeedPassword then
     sttPassword =InputBox("Please Enter Your Password")
      oleConString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=DbPath;Jet OLEDB:Database Password=sttPassword ;"
      else 'Not Needed 
      oleConString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=DbPath"
    Endif

Viorel 127.2K Reputation points

2023-07-12T20:05:28.06+00:00

I think that you should try a simple query, such as SELECT 123, using the connection string without the password. If the exception can be intercepted and identified by the Catch statement, then ask for the password and put it to connection string.

Perform some experiments to check this approach.

1 answer

Your answer

Viorel 127.2K Reputation points

2023-07-12T20:05:28.06+00:00

I think that you should try a simple query, such as SELECT 123, using the connection string without the password. If the exception can be intercepted and identified by the Catch statement, then ask for the password and put it to connection string.

Perform some experiments to check this approach.

Answer 1

Hi @Mansour_Dalir ,

You can refer to the following code,

        Dim sttPassword As String
        Dim connectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=DbPath;"
        Using connection As New OleDbConnection(connectionString)
            Try
                connection.Open()
            Catch ex As OleDbException
                If ex.ErrorCode = "The error code you get after testing" Then
                    sttPassword = TextBoxPwd.Text

                    connectionString += "Jet OLEDB:Database Password=" + sttPassword + ";"

                    connection.ConnectionString = connectionString
                    connection.Open()
                Else
                    MessageBox.Show(ex.Message)
                End If
            Finally
                connection.Close()
            End Try

Best Regards.

Jiachen Li

If the answer is helpful, please click "Accept Answer" and upvote it.

Note: Please follow the steps in our documentation to enable e-mail notifications if you want to receive the related email notification for this thread.

Mansour_Dalir 1,996 Reputation points

2023-07-13T03:53:51.4566667+00:00

hi @Jiachen Li-MSFT With all due respect to you and Viorel

Is this return code the same for all systems or is it different? My Code=-2147217843

ex.ErrorCode = "The error code you get after testing"

If the user enters the wrong password again. It leads to an error.