TKSoft-Online

Problemstellung:

Wie kann ich das Backend-Passwort aus Connectstring einer Tabelle auslesen?

Das folgende Beispiel ist kein Hackertipp!
Es soll nur die Möglichkeit gezeigt werden.

Normalerweise bekommt man in der Entwurfsansicht einer verknüpften Accesstabelle

nur den Connectstring ohne das DB-Passwort angezeigt.

Jetzt kann es aber erforderlich sein dieses Passwort auszulesen.

Dies kann mittels DAO oder ADO(X) erfolgen.

DAO:

 
Dim sConnect As String
sConnect = CurrentDb.TableDefs("Tabelle1").Connect

Hiermit würde die Variable "sConnect" den kompletten Connectstring der "Tabelle1" enthalten.

In diesem ist auch das DB-Passwort enthalten.

Dieser String kann dann mit der Split()-Funktion o.ä. zerlegt werden.

ADO(X):

 
Dim cn As New ADODB.Connection
Dim cat As New ADOX.Catalog
Dim sConnect As String

Set cn = CurrentProject.Connection
Set cat.ActiveConnection = cn

sConnect = cat.Tables("Tabelle1").Properties("Jet OLEDB:Link Provider String").Value

Hier gilt dann das Gleiche wie bei der Lösung mit DAO