- Код: Выделить всё
sub Подключение ()
On Error GoTo Обработка
' Открытие соединения в другой процедуре
conn.ConnectionString = "Driver={MySQL ODBC 5.1 Driver};Server=*;Database=*;User=*; Password=*; Persist Security Info=True;"
conn.Open
ДоОткрытия:
tabl.ActiveConnection = conn
tabl.Source = "SELECT * FROM users"
tabl.Open
....
exit sub
Обработка:
conn.Close
conn.ConnectionString = "Driver={MySQL ODBC 5.1 Driver};Server=*;Database=*;User=*; Password=*; Persist Security Info=True;"
conn.Open
Resume ДоОбработки
end sub
Есть процедура, в которой открывается подключиение к базе данны на сервере и считывается информация из таблицы users.
Время от времени при "tabl.Open" возникает ошибка (runtime error -2147217887).
Возникла ситуация, когда обработка ошибки не помогла, и программа ушла в бесконечный цикл.
Через секунду программа была перезапущена, и все прошло отлично.
Может кто-нибудь посоветовать как улучшить обработку данной ошибки?