Office: (Office 2016) ODBC Verknüpfungen prüfen und evtl. automatisch herstellen

Hallo,

ich möchte wenn ich meine Datenbank öffne alle MySQL ODBC-Verknüpfungen prüfen und wenn diese nicht vorhanden ist automatisch verknüfen.

Die Verknüpfungen sind in einer Tabelle (ExterneTabellen) die so aussehen sollte:

ODBC-Datenquelle | TabelleServer | TabelleLokal
Wismet.de (Unicode) | Artikel | Lokal_Artikel
Wismet.de (Unicode) | Abmessungen | Lokal_Abmessungen
......

(Die ODBC-Datenquelle (z.B. "Wismet.de (Unicode)") ist in den Windows-ODBC-Verknüpfungen (Systemsteuerung) bereits eingerichtet)

Per VBA möchte ich nun prüfen ob die Tabelle "Lokal_Artikel" vorhanden ist,
wenn ja, die Verknüpfung aktualisieren (falls neue Spalten hinzu gekommen sind oder sonstige Änderungen an der Struktur gemacht wurden)
wenn nein, dann die Tabelle neu verknüpfen (ODBC-Quelle "Lokal_Artikel", Tabelle auf Server "Artikel", Tabelle Lokal "Lokal_Artikel")

...dies soll er mit allen Verknüpfungen machen die ich in der Tabelle (ExterneTabellen) vorgebe.

:)

 

Und was konkret ist dein Problem dabei?

 

Mit welchen Befehl kann ich eine Tabelle per ODBC verknüpfen (ohne jedesmal eine neu ODBC-Verbindung anzulegen sondern die vorhandene zu nutzen)

(ich bräuchte also eigentlich "nur" die Codezeile(n) zum verknüpfen und zu aktualisieren, den Rest sollte ich selbst hinbekommen.... - prüfen ob Tabelle vorhanden usw ist ja wieder einfacher - alternativ lösche ich erst alle Verknüpfungen (die in der Tabelle "ExterneTabellen" enthalten sind) und erstelle diese wieder neu.....)

 

Du meinst via DSN?

Ein Weg ist via docmd.transferdatabase.

https://docs.microsoft.com/en-us/off...ansferdatabase

Wenn du nicht weißt, wie der Connectionstring lautet, dann einfach eine Verbindung erstellen und in der Tabelle MSysObjects nachschauen.

Grundsätzlich würde ich aber davon abraten mit DSN zu arbeiten.
Das Problem beginnt dann, wenn sich die Verbindung ändert.
Ob du die DSN Datei angibst, oder gleich den Pfad zur DB ist auch schon wurscht.

 

Hallo,

falls jemand die Lösung benötigt, ich habs jetzt so gelöst:

Private Sub Befehl0_Click()
Dim ODBC_Driver
Dim ODBC_Server
Dim ODBC_Database
Dim ODBC_User
Dim ODBC_Password
Dim ODBC_TabellenName
Dim Lokaler_TabellenName

ODBC_Driver = "MySQL ODBC 5.3 Unicode Driver" 'Muss angepasst werden, je nach dem welcher Treiber installiert ist
ODBC_Server = "MeinMySQLServer.de"
ODBC_Database = "MeineMySQLDatenbank"
ODBC_User = "MeinMySQLBenutzername"
ODBC_Password = "MeinMySQLPasswort"


ODBC_TabellenName = "artikel"
Lokaler_TabellenName = "www_" & ODBC_TabellenName

If ExistODBCTable(Lokaler_TabellenName) = True Then DoCmd.DeleteObject acTable, Lokaler_TabellenName
DoCmd.TransferDatabase acLink, "ODBC Database", "ODBC;DRIVER={" & ODBC_Driver & "};server=" & ODBC_Server & ";database=" & ODBC_Database & ";" & "UID=" & ODBC_User & ";PWD=" & ODBC_Password & ";", acTable, ODBC_TabellenName, Lokaler_TabellenName
End Sub

Private Function ExistODBCTable(TableName)

Dim tbl As TableDef
For Each tbl In CurrentDb.TableDefs
If tbl.Name = TableName Then
ExistODBCTable = True
Else
ExistODBCTable = False
End If
Next tbl
End Function

 

Eine Frage hätte ich noch:

kann man irgendwie den ODBC-Treiber auslesen (also in meinem Fall den Text "MySQL ODBC 5.3 Unicode Driver") - es kann ja sein das andere PC´s andere Treiberversionen installiert haben.....

Gruß und Danke an alle die geholfen haben
Stefan

 

Seit 17 Jahren bist Du hier im Forum unterwegs ...
Und schaffst es nicht, den Code ordentlich in Code-Tags und mit eingerückten Kontrollstrukturen zu präsentieren. *entsetzt

 

Einfach mal schauen, was Dr. Google dazu weiß:

https://www.google.com/search?q=vba+...hrome&ie=UTF-8

 

Danke für deinen "sehr netten" Hinweis, hab ich aber eigentlich so gehabt, die Formatierung ist beim Kopieren scheinbar irgendwie verloren gegangen - werd's dann überarbeiten ;-)....

arbeite nur im Moment an dem ODBC-Treiber-Versions-Problem....
Mein Problem hier ist im Moment noch was ich mache wenn mehrer (MySQL-)ODBC-Treiber installiert sind - wie ermittle ich den aktuellsten?

 

mit "Formatierung":

Code:

 

Die Funktion ExistODBCTable solltest Du dir nochmal anschauen.