On Error Resume Next
Dim ReturnStatus As Integer
ReturnStatus = "sqlConnection" & CStr(connectionNum) & ".Close()"
If ReturnStatus <> 0 Then
Return False
End If
Return True
Exit Function
End Function
Нашел здесь.
Теперь я знаю, что код тоже может быть упоротым
On Error Resume Next
Dim ReturnStatus As Integer
ReturnStatus = "sqlConnection" & CStr(connectionNum) & ".Close()"
If ReturnStatus <> 0 Then
Return False
End If
Return True
Exit Function
End Function
Нашел здесь.
-
Некруглые круглые числа
Около года ничего не писал сюда на политические темы. Да и вообще почти ничего не писал. Но сегодня, отправив письмо приятелю с выкладками,…
-
Музыкальный проект
Последние полгода я наконец-то засел за реализацию старых музыкальных идей, которые постепенно воплощаются в песни, выкладываемые на SoundCloud:…
-
С Новым годом!
…
- Post a new comment
- 5 comments
- Post a new comment
- 5 comments