How to open a password-protected table?

[hichuji]

hi, I want to create ADO recordset of a Paradox file, but then the file is password-protected. how can I modify the code so that can open? (the codes work fine with non-password-protected paradox file).Thanks...

Dim dbConn, rsConn, strSQL

Set dbConn = CreateObject("ADODB.connection&quot
dbConn.Open ("dsn=testing&quot
strSQL = "select * from Test1"
Set rsConn = dbConn.Execute(strSQL)

 

[HombreDelEspacio]

See this URL:

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dndao/html/daotoado.asp

Look for the heading:
Share-level (password-protected) databases

From the page:
ADO

Sub ADOOpenDBPasswordDatabase()
Dim cnn As New ADODB.Connection
cnn.Open "Provider=" & _
"Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=.\NorthWind.mdb;" & _
"Jet OLEDBatabase Password=" & _
"password;"
cnn.Close

The connection string I used that finally worked:
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\myProgs\\MyData;Jet OLEDBatabase Password=FOO;Extended Properties=Paradox 5.x;"

Hope this helps.

Tim

 

[hichuji]

thanks Tim, but my situation isnly the paradox file is password-protected, not the database. Btw, do u know how to change password for a paradox file if the file is in read only mode?

 

[hichuji]

i'm using Database Desktop..