VB - Password db

[sciroccata]

Provo a fare un'altra domanda anche se non mi risponde mai nessuno
Posso controllare da vb se un database access ha una password?
Grazie

[mirba]

potresti provare da codice a connetterti al db e se ti risponde errore vuol dire che c'e' una password

[Boldan]

Come ti ha scritto mirba potresti gestire l'errore, ad esempio in questo modo:

Private Sub Command1_Click()
On Error GoTo err_open

Dim rs As New ADODB.Recordset
rs.Open "TB_PWD", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\temp\DB_PWD.mdb;"

Exit Sub

err_open:
If Err.Number = -2147217843 Then
   MsgBox "Il database è protetto da password!!"
  Else
   Err.Raise Err.Number, , Err.Description
End If
End Sub

Spero di essere stato d'aiuto!! fammi sapere...
Ciao!!

[sciroccata]

Non può funzionare perchè io devo fare un duplice controllo: se il percorso del db è esatto e se c'è una password. Non posso usare i codici di errore perchè se il db non ha password ed io gliene passo una alla connessione non si verifica alcun errore. In conclusione io devo essere sicura che il db abbia una certa password e che il percorso che prendo da un file di testo sia esatto.