Robert Lech klezmer
Temat: Sprawdzenie połączenia tabel
Mam na zewnętrznym serwerze tabelę "MyTabela", połączoną z tabelą w Accessie na moim komputerze.Jak z poziomu vba sprawdzić, czy w danej chwili połączenie istnieje?
Zrobiłem najprościej:
Dim Bs As Object
Set Bs = CurrentDb.TableDefs
On Error GoTo Byk
Bs("MyTabela").RefreshLink
---
---
Exit Function
Byk:
---
---
End Function
Przy błędzie wykonuje alternatywne polecenia, ALE okazuje się, że Bs("MyTabela").RefreshLink przekształca na stałe tą tabelę "na moim kompie" w "tylko do odczytu" i za diabła nie wiem jak z poziomu vba przywrócić jej możliwość wpisywania.
Jak w takim razie sprawdzić (bez wpisywania niczego do "zewnętrznej tabeli"), czy w danym momencie połączenie z nią istnieje, czy nie?
Tabela na serwerze - MySql
Połączenie - ODBC