Open Access table with Password

[Nuno]

How can i open a Access Table that have a password?
Can somebody help me?
Thanks

 

[One Handed Man]

Are you saying you dont have the password, or you dont know how to pass it
in the connection string ?

Regards - OHM

 

[Nuno]

I Dont know hot to pass it...

-----Original Message-----
Are you saying you dont have the password, or you dont know how to pass it
in the connection string ?

Regards - OHM



.

 

[One Handed Man]

You will find that the connection stringfor the connector will look
something like this, just put the Database Password= entry in and hopefully
it will work.

Regards - OHM



Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Registry Path=;Jet
OLEDBatabase Locking Mode=1;Jet OLEDBatabase Password=;Data
Source="C:\Documents and Settings\Administrator\My
Documents\FamilyPlusFriends.mdb";Password=;Jet OLEDB:Engine Type=5;Jet
OLEDB:Global Bulk Transactions=1;Provider="Microsoft.Jet.OLEDB.4.0";Jet
OLEDB:System database=;Jet OLEDB:SFP=False;Extended Properties=;Mode=Share
Deny None;Jet OLEDB:New Database Password=;Jet OLEDB:Create System
Database=False;Jet OLEDBon't Copy Locale on Compact=False;Jet
OLEDB:Compact Without Replica Repair=False;User ID=Admin;Jet OLEDB:Encrypt
Database=False

 

[Nuno]

When i try to open it...i give me this message "COULD NOT
FIND INSTALLABLE ISAM"

Can you help me...?

 

[One Handed Man]

http://www.visual-basic-data-mining.net/Forum/showpost.aspx?PostID=791

 

[Cor]

Hi Nuno,

Are you using VB.net with ado.net?
or
VB.Net with DAO?
or
MS Access?

Cor

 

[NUno]

THERES THE CODE...IM NOT SURE IF I CAN DO LIKE THIS...
IM REALLY CONFUSE...
Thanks...

Function OpenTable() As DataSet
Dim strDSN As String
= "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=c:\Conversao\Optiware98.MDB;pwd=et98jif%Znf[2)"
Dim strSQL As String = "SELECT * FROM Clientes"
Dim Conn As OleDbConnection
Dim DA As OleDbDataAdapter
Dim Ds As DataSet

Ds = New DataSet()
Conn = New OleDbConnection(strDSN)
DA = New OleDbDataAdapter(strSQL, Conn)

Try
DA.SelectCommand.CommandType =
CommandType.StoredProcedure

DA.Fill(Ds, "Mensagens")

Return Ds

Catch e As Exception
MessageBox.Show(e.Message)
Finally
Conn.Close()
End Try

End Function

 

[Cor]

Hi Nuno,

Can you try it with these changes, and if it does not work, cut that pwd
part again from it and try it again.

I hope this does work?

Cor

Function OpenTable() As DataSet
Dim strDSN As String
= "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=c:\Conversao\Optiware98.MDB;pwd=et98jif%Znf[2)"
Dim strSQL As String = "SELECT * FROM Clientes"
Ds = New DataSet()

Dim Conn As New OleDbConnection(strDSN)
Try
Dim cmd As New OleDbCommand(strSQL, Conn)
da = New OleDbDataAdapter(cmd)
da.Fill(ds, "Mensagens")
Return ds
Catch oledbExc As OleDbException
MessageBox.Show(oledbExc.ToString)
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
Conn.Close()
End Try

 

[Guest]

It Still give the same error...
The pwd is the password of the table...
but thanks for your efforts...

-----Original Message-----
Hi Nuno,

Can you try it with these changes, and if it does not work, cut that pwd
part again from it and try it again.

I hope this does work?

Cor

Function OpenTable() As DataSet
Dim strDSN As String
= "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=c:\Conversao\Optiware98.MDB;pwd=et98jif%Znf[2)"
Dim strSQL As String = "SELECT * FROM Clientes"
Ds = New DataSet()

Dim Conn As New OleDbConnection(strDSN)
Try
Dim cmd As New OleDbCommand(strSQL, Conn)
da = New OleDbDataAdapter(cmd)
da.Fill(ds, "Mensagens")
Return ds
Catch oledbExc As OleDbException
MessageBox.Show(oledbExc.ToString)
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
Conn.Close()
End Try



.

 

[William LaMartin]

I think this is typically caused by a bad connection string. One common
error is not putting a space in Data Source. In case of word wrap, that
should read Data Source.

 

[Paul Clement]

¤ How can i open a Access Table that have a password?
¤ Can somebody help me?

Assuming you mean database password?

strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=e:\My Documents\db2.mdb;" & _
"Jet OLEDBatabase Password=password"


Paul ~~~ (e-mail address removed)
Microsoft MVP (Visual Basic)