Вагиф Абилов (object) wrote,
Вагиф Абилов
object

Теперь я знаю, что код тоже может быть упоротым

Public Function CloseConnection(ByVal connectionNum As Integer) As Integer
  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

Нашел здесь.
Subscribe

  • Некруглые круглые числа

    Около года ничего не писал сюда на политические темы. Да и вообще почти ничего не писал. Но сегодня, отправив письмо приятелю с выкладками,…

  • Музыкальный проект

    Последние полгода я наконец-то засел за реализацию старых музыкальных идей, которые постепенно воплощаются в песни, выкладываемые на SoundCloud:…

  • С Новым годом!

  • Post a new comment

    Error

    default userpic

    Your reply will be screened

    Your IP address will be recorded 

    When you submit the form an invisible reCAPTCHA check will be performed.
    You must follow the Privacy Policy and Google Terms of use.
  • 5 comments