Refresh-Datum einer Verbindung ermitteln
05.01.2021 13:00:31
Sabina
ich schlage mit seit Tagen mit folgendem Problem herum:
Ich habe eine ODBC-Verbindung zu einer Ingres-Datenbank vorliegen, die die
Daten in eine smart-Tabelle übernimmt.
Nun möchte ich wissen, wann ich die letzte Aktualisierung dieser Tabelle gemacht habe
und im Internet u.g. Code gefunden.
Leider bekomme ich in der Zeile... ".refresh" einen Fehler 1004.
Ich habe schon alles abgegrast und gelesen, dass es möglicherweise daran liegt,
dass die Variable leer ist und der Wert nicht übergeben werden kann.
Habe auch schon den Typ von Variant in Date geändert, aber alles hilft nichts.
Hat jemand noch eine Idee? Das muss doch irgendwie gehen...
Danke !
Gruß Sabina
----------------------------
Sub dataconnection()
Dim con As WorkbookConnection
Dim vdate As Variant
For Each con In ActiveWorkbook.Connections
With con
If .Type = 2 Then
vdate = .ODBCConnection.RefreshDate
End If
End With
Next
End Sub