Neu verlinken

Aus DBWiki
Wechseln zu: Navigation, Suche

Bei einer Änderung an der MySQL Datenbank und verlinkten Tabellen werden diese erst nach dem Neueinbinden aktualisiert in Access angezeigt. Dies führt zu Problemen oder viel Handarbeit. Mit dem nachfolgenden Code können die Tabellen bei jedem Start neu eingebunden werden.

Public Function reconnectMySQL() As Boolean
Dim I As Integer
Dim tdf As TableDef
 
On Error GoTo Er
 
  For I = 0 To thisDB.TableDefs.Count - 1
 
    Set tdf = thisDB.TableDefs(I)
 
    If Len(tdf.Connect) > 0 Then
 
      tdf.Connect = "ODBC;DATABASE=DeineDatenbank;DSN=DeineDNS;OPTION=0;" & _
                      "PORT=3306;SERVER=DeinServer;PASSWORD=DeinPasswort"
 
      tdf.RefreshLink
 
    End If
 
  Next I
 
 
Ex:
  On Error Resume Next
  Exit Function
Er:
  reconnectMySQL = False
  Resume Ex
 
End Function

Aufruf

If Not reconnectMySQL Then
  Call MsgBox("Es konnte keine Verbindung zur Datenbank hergestellt werden." _
              & vbCrLf & "Überprüfen Sie die Netzwerkeinstellungen und starten Sie " _
              & vbCrLf & "Ihr System eventuell neu." _
              , vbCritical, "Keine Verbindung möglich.")
  DoCmd.Quit
  Exit Sub
End If