1. VisualBasic / Говнокод #3090

    −105

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    60. 60
    61. 61
    62. 62
    63. 63
    64. 64
    65. 65
    66. 66
    67. 67
    68. 68
    69. 69
    70. 70
    71. 71
    72. 72
    73. 73
    74. 74
    75. 75
    76. 76
    77. 77
    78. 78
    79. 79
    80. 80
    81. 81
    82. 82
    83. 83
    84. 84
    85. 85
    86. 86
    87. 87
    88. 88
    89. 89
    ''' <summary>
	''' Функция взятия запроса как инструкции t/sql; рекордсет возвращается в виде oZap(,).
	''' </summary>
	''' <param name="eConnectString">Строка подключения к БД из списка.</param>
	''' <param name="sText">Инструкция t/sql.</param>
	''' <param name="oErr">Необязательная ошибка.</param>
	''' <param name="oZap">Необязательный двумерный массив, содержащий рекордсет ― 1-ю таблицу датасета.</param>
	''' <param name="iTimeout">Необязательное число секунд таймаута запроса.</param>
	''' <returns>Число затронутых строк в таблице БД; если ноль, то нормально ещё, а если -1, то запрос не прошёл, если -2, то соединение не установилось.</returns>
	''' <remarks>
	''' </remarks>
	''' <history>
	''' 	[Max Pro]	11.04.2007	Created
	''' 	[Max Pro]	08.08.2008	Реабилитировал OleDb.
	''' 	[Max Pro]	08.04.2009	Оптимизировал как надо ReDim Preserve и переполнение Integer.
	''' 	[Max Pro]	27.08.2009	Исправил ошибку ReDim Preserve ― было больше на 1 элемент.
	''' </history>
	''' -----------------------------------------------------------------------------
	Public Function iZap(ByVal eConnectString As ConnectString, ByVal sText As String, Optional ByRef oErr As Exception = Nothing, Optional ByRef oZap(,) As Object = Nothing, Optional ByVal iTimeout As Integer = -1) As Integer
		'#region "var"
		Dim iX As Integer
		Dim lY As Long
		Dim lYTemp As Long
		Dim i As Integer
		Dim iZapTemp As Integer
		'var zap
		Dim sConnectString As String = sConStrFromEnum(eConnectString)
		Dim oConnection
		Dim oCommand
		Dim oReader
		'#end region 'var
		'#region ini
		If sConnectString Like "*sqloledb*" Then
			oConnection = New OleDbConnection
			oCommand = New OleDbCommand
		Else
			oConnection = New SqlConnection
			oCommand = New SqlCommand
		End If
		'#end region 'ini
		iZap = -2
		oErr = New Exception
		oConnection.ConnectionString = sConnectString
		Try
			'попытка открытия соединения
			oConnection.Open()
			If oConnection.State Then iZap = -1 'if <>0
			'присвоение параметров команды
			If iTimeout >= 0 Then oCommand.CommandTimeout = iTimeout
			oCommand.CommandType = CommandType.Text
			oCommand.Connection = oConnection
			oCommand.CommandText = sText
			'попытка выполнения команды
			oReader = oCommand.ExecuteReader()
			iZap = 0
			iX = oReader.FieldCount - 1
			lY = -1
			lYTemp = 255
			ReDim oZap(iX, lYTemp)
			While oReader.Read()
				lY += 1
				If lY < Integer.MaxValue Then				 '2 147 483 647-1(заменил <= на < чтобы число элементов iZap не зашкалило).
					iZapTemp = lY + 1
					If lY > lYTemp Then
						lYTemp += 256
						ReDim Preserve oZap(iX, lYTemp)
					End If
					For i = 0 To iX
						If IsDBNull(oReader(i)) Then oZap(i, lY) = Nothing Else oZap(i, lY) = oReader(i)
					Next i
				End If
			End While
			oReader.Close()
			oReader = Nothing
			oCommand = Nothing
			iZap = iZapTemp
			ReDim Preserve oZap(iX, iZapTemp - 1)
			If lY >= Integer.MaxValue Then
				oErr = New Exception(lY.ToString("# ##0") & " строк >=" & Integer.MaxValue & " (Integer.MaxValue), но массив заполнен до предела Int32 и iZap=Integer.MaxValue.")
			End If
		Catch oError As Exception
			oErr = oError
		Finally
			If IsNothing(oConnection) = False Then
				oConnection.Close()
				oConnection = Nothing
			End If
		End Try
	End Function	  'iZap

    А так Максим Прохоров выполняет запросы. слабо?

    Запостил: ursus, 23 Апреля 2010

    Комментарии (10) RSS

    • ava murz 23.04.2010 11:07 # +1

      Может уже хватит? Отминусовал всем Максимам Прохоровым не разбираясь только за спам
      Ответить

      • ava ursus 23.04.2010 11:10 # −3

        это не спам. это правда жизни
        Ответить

        • ava murz 23.04.2010 11:12 # 0

          10 постов за полчаса это не спам?
          Ответить

          • ava ursus 23.04.2010 11:14 # −1

            нет. спам - это рассылка рекламной ну или не целевой информации. я отослал избранные куски говнокода. тематику ресурса вроде не нарушил. больше слать не буду. вы у меня ещё на коленях ползать будете чтобы я дал посмотреть фотку максима прохорова или заскал какой-нить кусок говнокода.
            Ответить

    • ava cfdev 23.04.2010 11:23 # −1

      Если ты так не любишь Максима Прохорова, пойди и в реале начисти ему хлебальник.

      А если ты бесхребетный лузер и завидуешь тому, что он получает бабло, а тебе 20, ты девственник и бородат, то спам - не выход. Сходи порнушечку посмотри, пивка выпей, что ль. Развейся. Всё будет хорошо.
      Ответить

    • ava Говногость 23.04.2010 18:25 # +3

      Опять школота атакует.
      Ответить

    • ava bdevnameless 25.08.2021 19:25 # 0

      Я включил телефон и, даже не дожидаясь смс про пропущенные звонки, набрал номер деканши. Хорошо, что я заработал неплохой авторитет и не проштрафился ещё ни разу; думаю, что мне не очень влетит за прогул.
      Ответить

    Добавить комментарий