Für 32Bit und 64Bit Office Versionen
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
Ähnliche Artikel