Wie ändern Sie die ODBC-Verbindungszeichenfolge für bestehende MS-ACCESS-pass-through-Abfragen in VBA

Habe ich eine Reihe von pass-through-Abfragen-setup in einer MS-Access-Datenbank mit vordefinierten ODBC connection strings. Das problem ist die Datenbank Verbindung zu einer von zwei MySQL Datenbanken. Der Benutzer wählt die db beim starten der Datenbank und das system dynamisch links zu den entsprechenden Tabellen via VBA (diese funktioniert einwandfrei) Allerdings habe ich dann geändert werden müssen die ODBC-Verbindungszeichenfolgen in die bestehenden Abfragen entsprechend der ausgewählten db. Ich bin daher needa VBA-Funktion um eine Schleife durch alle vorhandenen pass-through-Abfragen festlegen der ODBC-Verbindungszeichenfolge propertiy, um die neue Verbindungs-Zeichenfolge. Irgendwelche Ideen auf, wie dies zu tun?

InformationsquelleAutor Acoats | 2011-09-07
  1. 3

    Können Sie eine Schleife durch die Abfragen Sammlung:

    Dim qdf As QueryDef

For Each qdf In CurrentDb.QueryDefs
    If qdf.Type = dbQSQLPassThrough Then
        qdf.Connect = NewConnect
    End If
Next

    Könnten Sie auch prüfen, den Connect-string mit InStr(qdf.Connect) zum testen für das Vorhandensein der benötigten Datenbank-Namen.

    • Danke, obwohl dies nicht ändern Sie die Verbindungszeichenfolge, die ist toll, er stellt die Verbindung für den nicht-pass-through-Abfragen, so dass alle Abfragen, die pass-through. Ich muss einschränken, die änderungen nur für die pass-through-Abfragen. Aber Sie haben einen guten Ausgangspunkt.
    • Ich habe eine weitere Anmerkung.
    • Löste es durch hinzufügen einer Prüfung auf qdf.Verbinden <> "" einschränkt, dass es nur pass-through-Abfragen.
    • Ja, ersetzen Sie Wenn qdf.Type = dbQSQLPassThrough mit Wenn qdf.Verbinden <> "" hat den trick für mich.
    InformationsquelleAutor Fionnuala
Schreibe einen Kommentar