Problemstellung:

Für 32Bit und 64Bit Office Versionen

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

• CurrentDb.Excute mit ADO
• Index-Löschen (ADOX)
• Index-Erstellen (ADOX)
• Index-Namen ändern (ADOX)
• Feld-Löschen (ADOX)