Асинхронные странички
Несмотря на сложные описания работы асинхронных страничек (особенно у Экспозито) на практике это досточно простая технология. И в сущности сводится к одному из двух методов - создание нового потока для долгоиграющей операции - как в этом случае и в применение асинхронных операций ввода-вывода, которое я покажу на примере этой странички.
В данном случае, изображенный выше контрол содержит вложенный контрол - ForumReplay, полный текст которого приведен ниже и который основан на асинхронных возможностях ADO2:
Как видите, тут все просто. Я не стал заморачиватся для этого примера с маленьким размером буфера - и у меня тут все происходит ровно за один-единственный Каллбэк. EndRead, понятное дело, тут выполняется совершенно в ином потоке, в котором возвращается управление на вызывающую страничку. EndRead приносит с собой обьект, в котором содержится буфер. В данном случае страничка может работать и синхронно и асинхронно, в зависимости от того, вложил ли юзер файл при отправке сообщения. Вложенный в ForumReplay контрол Sender был описан выше. Как видите, я применяю достаточно глубокую вложенность контролов. На главной страничке форума, ForumNewTopic в свою очередь вложен еще в один контрол. Кстати, при такой вложенности докапыватся до нужных данных приходится непросто. Если же вас заинтересовали выражения привязки, то почитать о них можно тут.
Ну и вот наконец, полный текст асинхронного работающего контрола:
00001: <%@ Control Language="VB" AutoEventWireup="false" CodeFile="ForumReplay.ascx.vb" Inherits="Control_ForumReplay" %> 00002: <%@ Register Src="Sender.ascx" TagName="Sender" TagPrefix="uc1" %> 00003: <table> 00004: <tr><td><asp:TextBox ID="T1" runat="server" Font-Names="sans-serif" Font-Size="X-Small" MaxLength="5000" Rows="10" TextMode="MultiLine" Width="640px"></asp:TextBox></td></tr> 00005: <tr><td><asp:Label ID="L1" runat="server" Text="Загрузить рисунок - " Font-Names="sans-serif" Font-Size="X-Small" ForeColor="Blue"></asp:Label> 00006: <asp:FileUpload ID="U1" runat="server" Font-Names="sans-serif" Font-Size="X-Small" Width="514px" /></td></tr> 00007: <tr><td><uc1:Sender ID="S1" runat="server" /></td></tr> 00008: </table>
00001: Partial Class Control_ForumReplay 00002: Inherits System.Web.UI.UserControl 00003: 00004: Dim a_NewTopic As String, b_NewTopic As Boolean = False 00005: Public Property NewTopic() As String 00006: Get 00007: NewTopic = a_NewTopic 00008: End Get 00009: Set(ByVal value As String) 00010: a_NewTopic = value 00011: b_NewTopic = True 00012: End Set 00013: End Property 00014: 00015: 'этого события не будет, если ключ введен неверно 00016: Protected Sub Sender1_Send() Handles S1.Send 00017: Try 00018: If U1.PostedFile.FileName = "" Then 00019: 'без рисунка все делается синхронно 00020: If b_NewTopic Then 00021: Session("ForumState") = ForumState.State.EndReplayTopic 00022: Dim RDR As New SH.Common.ExecSQL_RDR("@ToOwner", Guid.NewGuid(), "@TopicName", a_NewTopic, "@Text", T1.Text, "@ToSubGroup", Session("ForumSubGroup")) 00023: RDR.ExecSQL("AddTopic", Data.CommandType.StoredProcedure, "SH_Forum") 00024: Else 00025: Session("ForumState") = ForumState.State.EndReplay 00026: Dim RDR As New SH.Common.ExecSQL_RDR("@ToOwner", Guid.NewGuid(), "@ToTopic", Session("ForumTopic"), "@Text", T1.Text) 00027: RDR.ExecSQL("AddMessage", Data.CommandType.StoredProcedure, "SH_Forum") 00028: End If 00029: Else 00030: 'асинхронная загрузка - тогда загруженных данных будет сразу не видно 00031: Dim Uploader As New MyUpload(U1.PostedFile.ContentLength) 00032: Uploader.FileName = U1.PostedFile.FileName 00033: Uploader.User = Session("CurrentUser") 00034: Uploader.Text = T1.Text 00035: Uploader.SubGroupNumber = Session("ForumSubGroup") 00036: Uploader.TopicNumber = Session("ForumTopic") 00037: If b_NewTopic Then 00038: Session("ForumState") = ForumState.State.AsyncUploadTopic 00039: If a_NewTopic = "" Then 00040: 'название все равно должно быть - по этому признаку определяется, что сохраняем новый топик 00041: Uploader.TopicName = T1.Text.Remove(99) 00042: Else 00043: Uploader.TopicName = a_NewTopic 00044: End If 00045: Else 00046: Session("ForumState") = ForumState.State.AsyncUpload 00047: End If 00048: Dim Async As New System.AsyncCallback(AddressOf EndRead) 00049: U1.PostedFile.InputStream.BeginRead(Uploader.Buffer, 0, Uploader.LenFile, Async, Uploader) 00050: End If 00051: Catch ex As Exception 00052: SH.Common.ErrorMessage(Me.Page, "Upload_error", ex.Message) 00053: Finally 00054: Response.Redirect(Session("OnNavigateReturnURL")) 00055: End Try 00056: End Sub 00057: 00058: Private Sub EndRead(ByVal asyncResult As System.IAsyncResult) 00059: Dim Uploader As MyUpload 00060: If asyncResult.IsCompleted Then 00061: Uploader = asyncResult.AsyncState 00062: If Uploader.TopicName = "" Then 00063: Uploader.SaveMSG() 00064: Else 00065: Uploader.SaveTopic() 00066: End If 00067: Else 00068: Uploader = asyncResult.AsyncState 00069: SH.Common.ErrorMessage(Me.Page, "Upload_error", Uploader.ToString) 00070: End If 00071: End Sub 00072: 00073: End Class 00074: 00075: Public Class MyUpload 00076: 00077: Dim a_Buffer() As Byte 00078: Public Sub New(ByVal LenFile As Integer) 00079: Array.Resize(a_Buffer, LenFile) 00080: End Sub 00081: 00082: Public ReadOnly Property LenFile() As Integer 00083: Get 00084: LenFile = a_Buffer.Length 00085: End Get 00086: End Property 00087: 00088: Public ReadOnly Property Buffer() As Byte() 00089: Get 00090: Buffer = a_Buffer 00091: End Get 00092: End Property 00093: 00094: Dim a_User As String 00095: Public Property User() As String 00096: Get 00097: User = a_User 00098: End Get 00099: Set(ByVal value As String) 00100: a_User = value 00101: End Set 00102: End Property 00103: 00104: Dim a_FileName As String 00105: Public Property FileName() As String 00106: Get 00107: FileName = a_FileName 00108: End Get 00109: Set(ByVal value As String) 00110: a_FileName = value 00111: End Set 00112: End Property 00113: 00114: Dim a_TopicName As String 00115: Public Property TopicName() As String 00116: Get 00117: TopicName = a_TopicName 00118: End Get 00119: Set(ByVal value As String) 00120: a_TopicName = value 00121: End Set 00122: End Property 00123: 00124: Dim a_TopicNumber As Integer 00125: Public Property TopicNumber() As Integer 00126: Get 00127: TopicNumber = a_TopicNumber 00128: End Get 00129: Set(ByVal value As Integer) 00130: a_TopicNumber = value 00131: End Set 00132: End Property 00133: 00134: Dim a_SubGroupNumber As Integer 00135: Public Property SubGroupNumber() As Integer 00136: Get 00137: SubGroupNumber = a_SubGroupNumber 00138: End Get 00139: Set(ByVal value As Integer) 00140: a_SubGroupNumber = value 00141: End Set 00142: End Property 00143: 00144: Dim a_Text As String 00145: Public Property Text() As String 00146: Get 00147: Text = a_Text 00148: End Get 00149: Set(ByVal value As String) 00150: a_Text = value 00151: End Set 00152: End Property 00153: 00154: Public Overrides Function ToString() As String 00155: Return ("<Upload Lenfile=""" & Me.LenFile.ToString & """ User=""" & Me.User.ToString & _ 00156: """ FileName=""" & Me.FileName.ToString & """ TopicName= """ & Me.TopicName & """ Text=""" & Me.Text.ToString & _ 00157: """ TopicNumber=""" & Me.TopicNumber.ToString & """ SubGroupNumber=""" & Me.SubGroupNumber.ToString & " />") 00158: End Function 00159: 00160: Public Function SaveMSG() As Integer 00161: Dim RDR As New SH.Common.ExecSQL_RDR("@ToOwner", Guid.NewGuid(), "@ToTopic", Me.TopicNumber, "@Text", Me.Text, "@Image", Me.Buffer) 00162: RDR.ExecSQL("AddMessage", Data.CommandType.StoredProcedure, "SH_Forum") 00163: End Function 00164: 00165: Public Function SaveTopic() As Integer 00166: Dim RDR As New SH.Common.ExecSQL_RDR("@ToOwner", Guid.NewGuid(), "@TopicName", Me.TopicName, "@Text", Me.Text, "@ToSubGroup", Me.SubGroupNumber, "@Image", Me.Buffer) 00167: RDR.ExecSQL("AddTopic", Data.CommandType.StoredProcedure, "SH_Forum") 00168: End Function 00169: End Class
А вообще-то в более полном виде освещение этой темы появилось уже даже в русском переводе MSDN Magazine:
- Масштабируемые приложения и асинхронное программирование в ASP.NET
- Асинхронные страницы в среде ASP.NET 2.0
В заключение я выложу для интересующихся одну свою небольшую библиотечную функцию c полиморфным конструктором, скрывающую рутинный код ADO2 и примененную мною здесь.
00001: 'Выполнение CMD с тридцатью параметрами и возвращением Reader 00002: Imports Microsoft.VisualBasic 00003: Imports System.Data.SqlClient 00004: Imports system.Data 00005: 00006: <ComponentModel.Description("для WEB на HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\EventLog требует FULL Control для учетной записи ASP.NET и NETWORK SERVICE")> _ 00007: Public Class ExecSQL_RDR 00008: 'имя строки подключения в WEB-конфиг по умолчанию для этой процедуры 00009: Dim WebConfig_ConnectionStringsName As String = "siSchoolManagerConnectionString" 00010: Dim CN As SqlConnection, PRM(29) As SqlParameter 00011: Dim CMD As New SqlCommand 00012: 00013: Public ReadOnly Property SqlCMD() As SqlCommand 00014: Get 00015: SqlCMD = CMD 00016: End Get 00017: End Property 00018: 00019: ''' <summary> 00020: ''' Вернуть SqlDataReader с результатами выполнения команды, указав только команду 00021: ''' </summary> 00022: Public Function ExecSQL(ByVal CommandName As String) As SqlClient.SqlDataReader 00023: Return ExecSQL(CommandName, CommandType.StoredProcedure, System.Configuration.ConfigurationManager.ConnectionStrings(WebConfig_ConnectionStringsName).ConnectionString.ToString, CommandBehavior.Default, 5000) 00024: End Function 00025: 00026: ''' <summary> 00027: ''' Вернуть SqlDataReader с результатами выполнения команды, указав только команду и ее тип 00028: ''' </summary> 00029: Public Function ExecSQL(ByVal CommandName As String, ByVal CommandType As System.Data.CommandType) As SqlClient.SqlDataReader 00030: Return ExecSQL(CommandName, CommandType, System.Configuration.ConfigurationManager.ConnectionStrings(WebConfig_ConnectionStringsName).ConnectionString.ToString, CommandBehavior.Default, 5000) 00031: End Function 00032: 00033: ''' <summary> 00034: ''' Вернуть SqlDataReader с результатами выполнения команды, указав только команду, ее тип и особенности ее исполнения 00035: ''' </summary> 00036: Public Function ExecSQL(ByVal CommandName As String, ByVal CommandType As System.Data.CommandType, ByVal ReaderBehavior As CommandBehavior) As SqlClient.SqlDataReader 00037: Return ExecSQL(CommandName, CommandType, System.Configuration.ConfigurationManager.ConnectionStrings(WebConfig_ConnectionStringsName).ConnectionString.ToString, ReaderBehavior, 5000) 00038: End Function 00039: 00040: ''' <summary> 00041: ''' Вернуть SqlDataReader с результатами выполнения команды, указав только команду, ее тип, особенности ее исполнения и таймаут 00042: ''' </summary> 00043: Public Function ExecSQL(ByVal CommandName As String, ByVal CommandType As System.Data.CommandType, ByVal ReaderBehavior As CommandBehavior, ByVal Timeout As Integer) As SqlClient.SqlDataReader 00044: Return ExecSQL(CommandName, CommandType, System.Configuration.ConfigurationManager.ConnectionStrings(WebConfig_ConnectionStringsName).ConnectionString.ToString, ReaderBehavior, Timeout) 00045: End Function 00046: 00047: ''' <summary> 00048: ''' Вернуть SqlDataReader с результатами выполнения команды, указав только команду, ее тип, особенности ее исполнения, таймаут и явно указав строку подключения к SQL 00049: ''' </summary> 00050: Public Function ExecSQL(ByVal CommandName As String, ByVal CommandType As System.Data.CommandType, ByVal ReaderBehavior As CommandBehavior, ByVal Timeout As Integer, ByVal DirectConnectionString As String) As SqlClient.SqlDataReader 00051: Return ExecSQL(CommandName, CommandType, DirectConnectionString, ReaderBehavior, Timeout) 00052: End Function 00053: 00054: Private Function ExecSQL(ByVal CommandName As String, ByVal CommandType As System.Data.CommandType, ByVal ConnectionStringName As String, ByVal ReaderBehavior As CommandBehavior, ByVal Timeout As Integer) As SqlClient.SqlDataReader 00055: Dim LogMSG As New System.Text.StringBuilder 00056: CN = New SqlConnection(ConnectionStringName) 00057: Try 00058: CN.Open() 00059: Catch ex As Exception 00060: LogMSG.Append("Database connection is not open. ConnectionString=""" & ConnectionStringName & """" & vbCrLf) 00061: If Not (ex.StackTrace Is Nothing) Then 00062: LogMSG.AppendLine(ex.StackTrace) 00063: End If 00064: Dim Encoder As New Text.ASCIIEncoding 00065: If System.Web.HttpContext.Current Is Nothing Then 00066: System.Diagnostics.EventLog.WriteEntry("DataLevel", LogMSG.ToString, Diagnostics.EventLogEntryType.Error, 500, 1) 00067: Else 00068: System.Diagnostics.EventLog.WriteEntry("DataLevel", LogMSG.ToString, Diagnostics.EventLogEntryType.Error, 500, 1, Encoder.GetBytes(System.Web.HttpContext.Current.Request.Url.PathAndQuery)) 00069: End If 00070: Me.Close() 00071: Throw New Exception("Database connection is not open.", ex) 00072: Exit Function 00073: End Try 00074: ' 00075: If CMD Is Nothing Then 00076: LogMSG.Append("Error in Business Layer Logic. CMD object is nothing." & vbCrLf) 00077: If Not (Environment.StackTrace Is Nothing) Then 00078: LogMSG.AppendLine(Environment.StackTrace) 00079: End If 00080: Dim Encoder As New Text.ASCIIEncoding 00081: If System.Web.HttpContext.Current Is Nothing Then 00082: System.Diagnostics.EventLog.WriteEntry("DataLevel", LogMSG.ToString, Diagnostics.EventLogEntryType.Error, 500, 1) 00083: Else 00084: System.Diagnostics.EventLog.WriteEntry("DataLevel", LogMSG.ToString, Diagnostics.EventLogEntryType.Error, 500, 1, Encoder.GetBytes(System.Web.HttpContext.Current.Request.Url.PathAndQuery)) 00085: End If 00086: Me.Close() 00087: Throw New Exception("Error in Business Layer Logic. CMD object is nothing.") 00088: Exit Function 00089: End If 00090: ' 00091: CMD.Connection = CN 00092: CMD.CommandText = CommandName 00093: CMD.CommandType = CommandType 00094: ' 00095: Try 00096: ExecSQL = CMD.ExecuteReader(ReaderBehavior) 00097: Catch ex As Exception 00098: 'для WEB на HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\EventLog требует FULL Control для учетной записи ASP.NET и NETWORK SERVICE 00099: LogMSG.Append("Error in SQL command <" & CMD.CommandText & ">" & vbCrLf & ex.Message & vbCrLf) 00100: If Not (ex.InnerException Is Nothing) Then 00101: LogMSG.AppendLine(ex.InnerException.ToString) 00102: LogMSG.AppendLine() 00103: End If 00104: If Not (ex.StackTrace Is Nothing) Then 00105: LogMSG.AppendLine(ex.StackTrace) 00106: End If 00107: Dim Encoder As New Text.ASCIIEncoding 00108: If System.Web.HttpContext.Current Is Nothing Then 00109: System.Diagnostics.EventLog.WriteEntry("DataLevel", LogMSG.ToString, Diagnostics.EventLogEntryType.Error, 500, 1) 00110: Else 00111: System.Diagnostics.EventLog.WriteEntry("DataLevel", LogMSG.ToString, Diagnostics.EventLogEntryType.Error, 500, 1, Encoder.GetBytes(System.Web.HttpContext.Current.Request.Url.PathAndQuery)) 00112: End If 00113: Dim CmdText As String = CMD.CommandText 00114: Me.Close() 00115: Throw New Exception("Error in SQL command <" & CmdText & ">", ex) 00116: End Try 00117: End Function 00118: 00119: 00120: ''' <summary> 00121: ''' Закрыть коннект, закрыть ридер, закрыть объект команды и очистить все параметры 00122: ''' </summary> 00123: Public Sub Close() 00124: CN.Close() 'иначе ридер просто закроется 00125: CMD = Nothing 00126: CN = Nothing 00127: For i As Integer = 0 To PRM.Length - 1 00128: If Not (PRM(i) Is Nothing) Then PRM(i) = Nothing 00129: Next 00130: End Sub 00131: 00132: Public Sub New() 00133: End Sub 00134: 00135: Public Sub New(ByVal ParmName0 As String, ByVal ParmValue0 As Object) 00136: PRM(0) = New SqlParameter(ParmName0, ParmValue0) 00137: CMD.Parameters.Add(PRM(0)) 00138: End Sub 00139: 00140: Public Sub New(ByVal ParmName0 As String, ByVal ParmValue0 As Object, ByVal ParmName1 As String, ByVal ParmValue1 As Object) 00141: PRM(0) = New SqlParameter(ParmName0, ParmValue0) 00142: CMD.Parameters.Add(PRM(0)) 00143: PRM(1) = New SqlParameter(ParmName1, ParmValue1) 00144: CMD.Parameters.Add(PRM(1)) 00145: End Sub 00146: 00147: Public Sub New(ByVal ParmName0 As String, ByVal ParmValue0 As Object, ByVal ParmName1 As String, ByVal ParmValue1 As Object, ByVal ParmName2 As String, ByVal ParmValue2 As Object) 00148: PRM(0) = New SqlParameter(ParmName0, ParmValue0) 00149: CMD.Parameters.Add(PRM(0)) 00150: PRM(1) = New SqlParameter(ParmName1, ParmValue1) 00151: CMD.Parameters.Add(PRM(1)) 00152: PRM(2) = New SqlParameter(ParmName2, ParmValue2) 00153: CMD.Parameters.Add(PRM(2)) 00154: End Sub 00155: 00156: Public Sub New(ByVal ParmName0 As String, ByVal ParmValue0 As Object, ByVal ParmName1 As String, ByVal ParmValue1 As Object, ByVal ParmName2 As String, ByVal ParmValue2 As Object, ByVal ParmName3 As String, ByVal ParmValue3 As Object) 00157: PRM(0) = New SqlParameter(ParmName0, ParmValue0) 00158: CMD.Parameters.Add(PRM(0)) 00159: PRM(1) = New SqlParameter(ParmName1, ParmValue1) 00160: CMD.Parameters.Add(PRM(1)) 00161: PRM(2) = New SqlParameter(ParmName2, ParmValue2) 00162: CMD.Parameters.Add(PRM(2)) 00163: PRM(3) = New SqlParameter(ParmName3, ParmValue3) 00164: CMD.Parameters.Add(PRM(3)) 00165: End Sub 00166: 00167: Public Sub New(ByVal ParmName0 As String, ByVal ParmValue0 As Object, ByVal ParmName1 As String, ByVal ParmValue1 As Object, ByVal ParmName2 As String, ByVal ParmValue2 As Object, ByVal ParmName3 As String, ByVal ParmValue3 As Object, ByVal ParmName4 As String, ByVal ParmValue4 As Object) 00168: PRM(0) = New SqlParameter(ParmName0, ParmValue0) 00169: CMD.Parameters.Add(PRM(0)) 00170: PRM(1) = New SqlParameter(ParmName1, ParmValue1) 00171: CMD.Parameters.Add(PRM(1)) 00172: PRM(2) = New SqlParameter(ParmName2, ParmValue2) 00173: CMD.Parameters.Add(PRM(2)) 00174: PRM(3) = New SqlParameter(ParmName3, ParmValue3) 00175: CMD.Parameters.Add(PRM(3)) 00176: PRM(4) = New SqlParameter(ParmName4, ParmValue4) 00177: CMD.Parameters.Add(PRM(4)) 00178: End Sub 00179: 00180: Public Sub New(ByVal ParmName0 As String, ByVal ParmValue0 As Object, ByVal ParmName1 As String, ByVal ParmValue1 As Object, ByVal ParmName2 As String, ByVal ParmValue2 As Object, ByVal ParmName3 As String, ByVal ParmValue3 As Object, ByVal ParmName4 As String, ByVal ParmValue4 As Object, ByVal ParmName5 As String, ByVal ParmValue5 As Object) 00181: PRM(0) = New SqlParameter(ParmName0, ParmValue0) 00182: CMD.Parameters.Add(PRM(0)) 00183: PRM(1) = New SqlParameter(ParmName1, ParmValue1) 00184: CMD.Parameters.Add(PRM(1)) 00185: PRM(2) = New SqlParameter(ParmName2, ParmValue2) 00186: CMD.Parameters.Add(PRM(2)) 00187: PRM(3) = New SqlParameter(ParmName3, ParmValue3) 00188: CMD.Parameters.Add(PRM(3)) 00189: PRM(4) = New SqlParameter(ParmName4, ParmValue4) 00190: CMD.Parameters.Add(PRM(4)) 00191: PRM(5) = New SqlParameter(ParmName5, ParmValue5) 00192: CMD.Parameters.Add(PRM(5)) 00193: End Sub 00194: 00195: Public Sub New(ByVal ParmName0 As String, ByVal ParmValue0 As Object, ByVal ParmName1 As String, ByVal ParmValue1 As Object, ByVal ParmName2 As String, ByVal ParmValue2 As Object, ByVal ParmName3 As String, ByVal ParmValue3 As Object, ByVal ParmName4 As String, ByVal ParmValue4 As Object, ByVal ParmName5 As String, ByVal ParmValue5 As Object, ByVal ParmName6 As String, ByVal ParmValue6 As Object) 00196: PRM(0) = New SqlParameter(ParmName0, ParmValue0) 00197: CMD.Parameters.Add(PRM(0)) 00198: PRM(1) = New SqlParameter(ParmName1, ParmValue1) 00199: CMD.Parameters.Add(PRM(1)) 00200: PRM(2) = New SqlParameter(ParmName2, ParmValue2) 00201: CMD.Parameters.Add(PRM(2)) 00202: PRM(3) = New SqlParameter(ParmName3, ParmValue3) 00203: CMD.Parameters.Add(PRM(3)) 00204: PRM(4) = New SqlParameter(ParmName4, ParmValue4) 00205: CMD.Parameters.Add(PRM(4)) 00206: PRM(5) = New SqlParameter(ParmName5, ParmValue5) 00207: CMD.Parameters.Add(PRM(5)) 00208: PRM(6) = New SqlParameter(ParmName6, ParmValue6) 00209: CMD.Parameters.Add(PRM(6)) 00210: End Sub 00211: 00212: Public Sub New(ByVal ParmName0 As String, ByVal ParmValue0 As Object, ByVal ParmName1 As String, ByVal ParmValue1 As Object, ByVal ParmName2 As String, ByVal ParmValue2 As Object, ByVal ParmName3 As String, ByVal ParmValue3 As Object, ByVal ParmName4 As String, ByVal ParmValue4 As Object, ByVal ParmName5 As String, ByVal ParmValue5 As Object, ByVal ParmName6 As String, ByVal ParmValue6 As Object, ByVal ParmName7 As String, ByVal ParmValue7 As Object) 00213: PRM(0) = New SqlParameter(ParmName0, ParmValue0) 00214: CMD.Parameters.Add(PRM(0)) 00215: PRM(1) = New SqlParameter(ParmName1, ParmValue1) 00216: CMD.Parameters.Add(PRM(1)) 00217: PRM(2) = New SqlParameter(ParmName2, ParmValue2) 00218: CMD.Parameters.Add(PRM(2)) 00219: PRM(3) = New SqlParameter(ParmName3, ParmValue3) 00220: CMD.Parameters.Add(PRM(3)) 00221: PRM(4) = New SqlParameter(ParmName4, ParmValue4) 00222: CMD.Parameters.Add(PRM(4)) 00223: PRM(5) = New SqlParameter(ParmName5, ParmValue5) 00224: CMD.Parameters.Add(PRM(5)) 00225: PRM(6) = New SqlParameter(ParmName6, ParmValue6) 00226: CMD.Parameters.Add(PRM(6)) 00227: PRM(7) = New SqlParameter(ParmName7, ParmValue7) 00228: CMD.Parameters.Add(PRM(7)) 00229: End Sub 00230: 00231: Public Sub New(ByVal ParmName0 As String, ByVal ParmValue0 As Object, ByVal ParmName1 As String, ByVal ParmValue1 As Object, ByVal ParmName2 As String, ByVal ParmValue2 As Object, ByVal ParmName3 As String, ByVal ParmValue3 As Object, ByVal ParmName4 As String, ByVal ParmValue4 As Object, ByVal ParmName5 As String, ByVal ParmValue5 As Object, ByVal ParmName6 As String, ByVal ParmValue6 As Object, ByVal ParmName7 As String, ByVal ParmValue7 As Object, ByVal ParmName8 As String, ByVal ParmValue8 As Object) 00232: PRM(0) = New SqlParameter(ParmName0, ParmValue0) 00233: CMD.Parameters.Add(PRM(0)) 00234: PRM(1) = New SqlParameter(ParmName1, ParmValue1) 00235: CMD.Parameters.Add(PRM(1)) 00236: PRM(2) = New SqlParameter(ParmName2, ParmValue2) 00237: CMD.Parameters.Add(PRM(2)) 00238: PRM(3) = New SqlParameter(ParmName3, ParmValue3) 00239: CMD.Parameters.Add(PRM(3)) 00240: PRM(4) = New SqlParameter(ParmName4, ParmValue4) 00241: CMD.Parameters.Add(PRM(4)) 00242: PRM(5) = New SqlParameter(ParmName5, ParmValue5) 00243: CMD.Parameters.Add(PRM(5)) 00244: PRM(6) = New SqlParameter(ParmName6, ParmValue6) 00245: CMD.Parameters.Add(PRM(6)) 00246: PRM(7) = New SqlParameter(ParmName7, ParmValue7) 00247: CMD.Parameters.Add(PRM(7)) 00248: PRM(8) = New SqlParameter(ParmName8, ParmValue8) 00249: CMD.Parameters.Add(PRM(8)) 00250: End Sub 00251: 00252: Public Sub New(ByVal ParmName0 As String, ByVal ParmValue0 As Object, ByVal ParmName1 As String, ByVal ParmValue1 As Object, ByVal ParmName2 As String, ByVal ParmValue2 As Object, ByVal ParmName3 As String, ByVal ParmValue3 As Object, ByVal ParmName4 As String, ByVal ParmValue4 As Object, ByVal ParmName5 As String, ByVal ParmValue5 As Object, ByVal ParmName6 As String, ByVal ParmValue6 As Object, ByVal ParmName7 As String, ByVal ParmValue7 As Object, ByVal ParmName8 As String, ByVal ParmValue8 As Object, ByVal ParmName9 As String, ByVal ParmValue9 As Object) 00253: PRM(0) = New SqlParameter(ParmName0, ParmValue0) 00254: CMD.Parameters.Add(PRM(0)) 00255: PRM(1) = New SqlParameter(ParmName1, ParmValue1) 00256: CMD.Parameters.Add(PRM(1)) 00257: PRM(2) = New SqlParameter(ParmName2, ParmValue2) 00258: CMD.Parameters.Add(PRM(2)) 00259: PRM(3) = New SqlParameter(ParmName3, ParmValue3) 00260: CMD.Parameters.Add(PRM(3)) 00261: PRM(4) = New SqlParameter(ParmName4, ParmValue4) 00262: CMD.Parameters.Add(PRM(4)) 00263: PRM(5) = New SqlParameter(ParmName5, ParmValue5) 00264: CMD.Parameters.Add(PRM(5)) 00265: PRM(6) = New SqlParameter(ParmName6, ParmValue6) 00266: CMD.Parameters.Add(PRM(6)) 00267: PRM(7) = New SqlParameter(ParmName7, ParmValue7) 00268: CMD.Parameters.Add(PRM(7)) 00269: PRM(8) = New SqlParameter(ParmName8, ParmValue8) 00270: CMD.Parameters.Add(PRM(8)) 00271: PRM(9) = New SqlParameter(ParmName9, ParmValue9) 00272: CMD.Parameters.Add(PRM(9)) 00273: End Sub 00274: 00275: Public Sub New(ByVal ParmName0 As String, ByVal ParmValue0 As Object, ByVal ParmName1 As String, ByVal ParmValue1 As Object, ByVal ParmName2 As String, ByVal ParmValue2 As Object, ByVal ParmName3 As String, ByVal ParmValue3 As Object, ByVal ParmName4 As String, ByVal ParmValue4 As Object, ByVal ParmName5 As String, ByVal ParmValue5 As Object, ByVal ParmName6 As String, ByVal ParmValue6 As Object, ByVal ParmName7 As String, ByVal ParmValue7 As Object, ByVal ParmName8 As String, ByVal ParmValue8 As Object, ByVal ParmName9 As String, ByVal ParmValue9 As Object, ByVal ParmName10 As String, ByVal ParmValue10 As Object) 00276: PRM(0) = New SqlParameter(ParmName0, ParmValue0) 00277: CMD.Parameters.Add(PRM(0)) 00278: PRM(1) = New SqlParameter(ParmName1, ParmValue1) 00279: CMD.Parameters.Add(PRM(1)) 00280: PRM(2) = New SqlParameter(ParmName2, ParmValue2) 00281: CMD.Parameters.Add(PRM(2)) 00282: PRM(3) = New SqlParameter(ParmName3, ParmValue3) 00283: CMD.Parameters.Add(PRM(3)) 00284: PRM(4) = New SqlParameter(ParmName4, ParmValue4) 00285: CMD.Parameters.Add(PRM(4)) 00286: PRM(5) = New SqlParameter(ParmName5, ParmValue5) 00287: CMD.Parameters.Add(PRM(5)) 00288: PRM(6) = New SqlParameter(ParmName6, ParmValue6) 00289: CMD.Parameters.Add(PRM(6)) 00290: PRM(7) = New SqlParameter(ParmName7, ParmValue7) 00291: CMD.Parameters.Add(PRM(7)) 00292: PRM(8) = New SqlParameter(ParmName8, ParmValue8) 00293: CMD.Parameters.Add(PRM(8)) 00294: PRM(9) = New SqlParameter(ParmName9, ParmValue9) 00295: CMD.Parameters.Add(PRM(9)) 00296: PRM(10) = New SqlParameter(ParmName10, ParmValue10) 00297: CMD.Parameters.Add(PRM(10)) 00298: End Sub 00299: 00300: Public Sub New(ByVal ParmName0 As String, ByVal ParmValue0 As Object, ByVal ParmName1 As String, ByVal ParmValue1 As Object, ByVal ParmName2 As String, ByVal ParmValue2 As Object, ByVal ParmName3 As String, ByVal ParmValue3 As Object, ByVal ParmName4 As String, ByVal ParmValue4 As Object, ByVal ParmName5 As String, ByVal ParmValue5 As Object, ByVal ParmName6 As String, ByVal ParmValue6 As Object, ByVal ParmName7 As String, ByVal ParmValue7 As Object, ByVal ParmName8 As String, ByVal ParmValue8 As Object, ByVal ParmName9 As String, ByVal ParmValue9 As Object, ByVal ParmName10 As String, ByVal ParmValue10 As Object, ByVal ParmName11 As String, ByVal ParmValue11 As Object) 00301: PRM(0) = New SqlParameter(ParmName0, ParmValue0) 00302: CMD.Parameters.Add(PRM(0)) 00303: PRM(1) = New SqlParameter(ParmName1, ParmValue1) 00304: CMD.Parameters.Add(PRM(1)) 00305: PRM(2) = New SqlParameter(ParmName2, ParmValue2) 00306: CMD.Parameters.Add(PRM(2)) 00307: PRM(3) = New SqlParameter(ParmName3, ParmValue3) 00308: CMD.Parameters.Add(PRM(3)) 00309: PRM(4) = New SqlParameter(ParmName4, ParmValue4) 00310: CMD.Parameters.Add(PRM(4)) 00311: PRM(5) = New SqlParameter(ParmName5, ParmValue5) 00312: CMD.Parameters.Add(PRM(5)) 00313: PRM(6) = New SqlParameter(ParmName6, ParmValue6) 00314: CMD.Parameters.Add(PRM(6)) 00315: PRM(7) = New SqlParameter(ParmName7, ParmValue7) 00316: CMD.Parameters.Add(PRM(7)) 00317: PRM(8) = New SqlParameter(ParmName8, ParmValue8) 00318: CMD.Parameters.Add(PRM(8)) 00319: PRM(9) = New SqlParameter(ParmName9, ParmValue9) 00320: CMD.Parameters.Add(PRM(9)) 00321: PRM(10) = New SqlParameter(ParmName10, ParmValue10) 00322: CMD.Parameters.Add(PRM(10)) 00323: PRM(11) = New SqlParameter(ParmName11, ParmValue11) 00324: CMD.Parameters.Add(PRM(11)) 00325: End Sub 00326: 00327: Public Sub New(ByVal ParmName0 As String, ByVal ParmValue0 As Object, ByVal ParmName1 As String, ByVal ParmValue1 As Object, ByVal ParmName2 As String, ByVal ParmValue2 As Object, ByVal ParmName3 As String, ByVal ParmValue3 As Object, ByVal ParmName4 As String, ByVal ParmValue4 As Object, ByVal ParmName5 As String, ByVal ParmValue5 As Object, ByVal ParmName6 As String, ByVal ParmValue6 As Object, ByVal ParmName7 As String, ByVal ParmValue7 As Object, ByVal ParmName8 As String, ByVal ParmValue8 As Object, ByVal ParmName9 As String, ByVal ParmValue9 As Object, ByVal ParmName10 As String, ByVal ParmValue10 As Object, ByVal ParmName11 As String, ByVal ParmValue11 As Object, ByVal ParmName12 As String, ByVal ParmValue12 As Object) 00328: PRM(0) = New SqlParameter(ParmName0, ParmValue0) 00329: CMD.Parameters.Add(PRM(0)) 00330: PRM(1) = New SqlParameter(ParmName1, ParmValue1) 00331: CMD.Parameters.Add(PRM(1)) 00332: PRM(2) = New SqlParameter(ParmName2, ParmValue2) 00333: CMD.Parameters.Add(PRM(2)) 00334: PRM(3) = New SqlParameter(ParmName3, ParmValue3) 00335: CMD.Parameters.Add(PRM(3)) 00336: PRM(4) = New SqlParameter(ParmName4, ParmValue4) 00337: CMD.Parameters.Add(PRM(4)) 00338: PRM(5) = New SqlParameter(ParmName5, ParmValue5) 00339: CMD.Parameters.Add(PRM(5)) 00340: PRM(6) = New SqlParameter(ParmName6, ParmValue6) 00341: CMD.Parameters.Add(PRM(6)) 00342: PRM(7) = New SqlParameter(ParmName7, ParmValue7) 00343: CMD.Parameters.Add(PRM(7)) 00344: PRM(8) = New SqlParameter(ParmName8, ParmValue8) 00345: CMD.Parameters.Add(PRM(8)) 00346: PRM(9) = New SqlParameter(ParmName9, ParmValue9) 00347: CMD.Parameters.Add(PRM(9)) 00348: PRM(10) = New SqlParameter(ParmName10, ParmValue10) 00349: CMD.Parameters.Add(PRM(10)) 00350: PRM(11) = New SqlParameter(ParmName11, ParmValue11) 00351: CMD.Parameters.Add(PRM(11)) 00352: PRM(12) = New SqlParameter(ParmName12, ParmValue12) 00353: CMD.Parameters.Add(PRM(12)) 00354: End Sub 00355: 00356: Public Sub New(ByVal ParmName0 As String, ByVal ParmValue0 As Object, ByVal ParmName1 As String, ByVal ParmValue1 As Object, ByVal ParmName2 As String, ByVal ParmValue2 As Object, ByVal ParmName3 As String, ByVal ParmValue3 As Object, ByVal ParmName4 As String, ByVal ParmValue4 As Object, ByVal ParmName5 As String, ByVal ParmValue5 As Object, ByVal ParmName6 As String, ByVal ParmValue6 As Object, ByVal ParmName7 As String, ByVal ParmValue7 As Object, ByVal ParmName8 As String, ByVal ParmValue8 As Object, ByVal ParmName9 As String, ByVal ParmValue9 As Object, ByVal ParmName10 As String, ByVal ParmValue10 As Object, ByVal ParmName11 As String, ByVal ParmValue11 As Object, ByVal ParmName12 As String, ByVal ParmValue12 As Object, ByVal ParmName13 As String, ByVal ParmValue13 As Object) 00357: PRM(0) = New SqlParameter(ParmName0, ParmValue0) 00358: CMD.Parameters.Add(PRM(0)) 00359: PRM(1) = New SqlParameter(ParmName1, ParmValue1) 00360: CMD.Parameters.Add(PRM(1)) 00361: PRM(2) = New SqlParameter(ParmName2, ParmValue2) 00362: CMD.Parameters.Add(PRM(2)) 00363: PRM(3) = New SqlParameter(ParmName3, ParmValue3) 00364: CMD.Parameters.Add(PRM(3)) 00365: PRM(4) = New SqlParameter(ParmName4, ParmValue4) 00366: CMD.Parameters.Add(PRM(4)) 00367: PRM(5) = New SqlParameter(ParmName5, ParmValue5) 00368: CMD.Parameters.Add(PRM(5)) 00369: PRM(6) = New SqlParameter(ParmName6, ParmValue6) 00370: CMD.Parameters.Add(PRM(6)) 00371: PRM(7) = New SqlParameter(ParmName7, ParmValue7) 00372: CMD.Parameters.Add(PRM(7)) 00373: PRM(8) = New SqlParameter(ParmName8, ParmValue8) 00374: CMD.Parameters.Add(PRM(8)) 00375: PRM(9) = New SqlParameter(ParmName9, ParmValue9) 00376: CMD.Parameters.Add(PRM(9)) 00377: PRM(10) = New SqlParameter(ParmName10, ParmValue10) 00378: CMD.Parameters.Add(PRM(10)) 00379: PRM(11) = New SqlParameter(ParmName11, ParmValue11) 00380: CMD.Parameters.Add(PRM(11)) 00381: PRM(12) = New SqlParameter(ParmName12, ParmValue12) 00382: CMD.Parameters.Add(PRM(12)) 00383: PRM(13) = New SqlParameter(ParmName13, ParmValue13) 00384: CMD.Parameters.Add(PRM(13)) 00385: End Sub 00386: 00387: Public Sub New(ByVal ParmName0 As String, ByVal ParmValue0 As Object, ByVal ParmName1 As String, ByVal ParmValue1 As Object, ByVal ParmName2 As String, ByVal ParmValue2 As Object, ByVal ParmName3 As String, ByVal ParmValue3 As Object, ByVal ParmName4 As String, ByVal ParmValue4 As Object, ByVal ParmName5 As String, ByVal ParmValue5 As Object, ByVal ParmName6 As String, ByVal ParmValue6 As Object, ByVal ParmName7 As String, ByVal ParmValue7 As Object, ByVal ParmName8 As String, ByVal ParmValue8 As Object, ByVal ParmName9 As String, ByVal ParmValue9 As Object, ByVal ParmName10 As String, ByVal ParmValue10 As Object, ByVal ParmName11 As String, ByVal ParmValue11 As Object, ByVal ParmName12 As String, ByVal ParmValue12 As Object, ByVal ParmName13 As String, ByVal ParmValue13 As Object, ByVal ParmName14 As String, ByVal ParmValue14 As Object) 00388: PRM(0) = New SqlParameter(ParmName0, ParmValue0) 00389: CMD.Parameters.Add(PRM(0)) 00390: PRM(1) = New SqlParameter(ParmName1, ParmValue1) 00391: CMD.Parameters.Add(PRM(1)) 00392: PRM(2) = New SqlParameter(ParmName2, ParmValue2) 00393: CMD.Parameters.Add(PRM(2)) 00394: PRM(3) = New SqlParameter(ParmName3, ParmValue3) 00395: CMD.Parameters.Add(PRM(3)) 00396: PRM(4) = New SqlParameter(ParmName4, ParmValue4) 00397: CMD.Parameters.Add(PRM(4)) 00398: PRM(5) = New SqlParameter(ParmName5, ParmValue5) 00399: CMD.Parameters.Add(PRM(5)) 00400: PRM(6) = New SqlParameter(ParmName6, ParmValue6) 00401: CMD.Parameters.Add(PRM(6)) 00402: PRM(7) = New SqlParameter(ParmName7, ParmValue7) 00403: CMD.Parameters.Add(PRM(7)) 00404: PRM(8) = New SqlParameter(ParmName8, ParmValue8) 00405: CMD.Parameters.Add(PRM(8)) 00406: PRM(9) = New SqlParameter(ParmName9, ParmValue9) 00407: CMD.Parameters.Add(PRM(9)) 00408: PRM(10) = New SqlParameter(ParmName10, ParmValue10) 00409: CMD.Parameters.Add(PRM(10)) 00410: PRM(11) = New SqlParameter(ParmName11, ParmValue11) 00411: CMD.Parameters.Add(PRM(11)) 00412: PRM(12) = New SqlParameter(ParmName12, ParmValue12) 00413: CMD.Parameters.Add(PRM(12)) 00414: PRM(13) = New SqlParameter(ParmName13, ParmValue13) 00415: CMD.Parameters.Add(PRM(13)) 00416: PRM(14) = New SqlParameter(ParmName14, ParmValue14) 00417: CMD.Parameters.Add(PRM(14)) 00418: End Sub 00419: 00420: Public Sub New(ByVal ParmName0 As String, ByVal ParmValue0 As Object, ByVal ParmName1 As String, ByVal ParmValue1 As Object, ByVal ParmName2 As String, ByVal ParmValue2 As Object, ByVal ParmName3 As String, ByVal ParmValue3 As Object, ByVal ParmName4 As String, ByVal ParmValue4 As Object, ByVal ParmName5 As String, ByVal ParmValue5 As Object, ByVal ParmName6 As String, ByVal ParmValue6 As Object, ByVal ParmName7 As String, ByVal ParmValue7 As Object, ByVal ParmName8 As String, ByVal ParmValue8 As Object, ByVal ParmName9 As String, ByVal ParmValue9 As Object, ByVal ParmName10 As String, ByVal ParmValue10 As Object, ByVal ParmName11 As String, ByVal ParmValue11 As Object, ByVal ParmName12 As String, ByVal ParmValue12 As Object, ByVal ParmName13 As String, ByVal ParmValue13 As Object, ByVal ParmName14 As String, ByVal ParmValue14 As Object, ByVal ParmName15 As String, ByVal ParmValue15 As Object) 00421: PRM(0) = New SqlParameter(ParmName0, ParmValue0) 00422: CMD.Parameters.Add(PRM(0)) 00423: PRM(1) = New SqlParameter(ParmName1, ParmValue1) 00424: CMD.Parameters.Add(PRM(1)) 00425: PRM(2) = New SqlParameter(ParmName2, ParmValue2) 00426: CMD.Parameters.Add(PRM(2)) 00427: PRM(3) = New SqlParameter(ParmName3, ParmValue3) 00428: CMD.Parameters.Add(PRM(3)) 00429: PRM(4) = New SqlParameter(ParmName4, ParmValue4) 00430: CMD.Parameters.Add(PRM(4)) 00431: PRM(5) = New SqlParameter(ParmName5, ParmValue5) 00432: CMD.Parameters.Add(PRM(5)) 00433: PRM(6) = New SqlParameter(ParmName6, ParmValue6) 00434: CMD.Parameters.Add(PRM(6)) 00435: PRM(7) = New SqlParameter(ParmName7, ParmValue7) 00436: CMD.Parameters.Add(PRM(7)) 00437: PRM(8) = New SqlParameter(ParmName8, ParmValue8) 00438: CMD.Parameters.Add(PRM(8)) 00439: PRM(9) = New SqlParameter(ParmName9, ParmValue9) 00440: CMD.Parameters.Add(PRM(9)) 00441: PRM(10) = New SqlParameter(ParmName10, ParmValue10) 00442: CMD.Parameters.Add(PRM(10)) 00443: PRM(11) = New SqlParameter(ParmName11, ParmValue11) 00444: CMD.Parameters.Add(PRM(11)) 00445: PRM(12) = New SqlParameter(ParmName12, ParmValue12) 00446: CMD.Parameters.Add(PRM(12)) 00447: PRM(13) = New SqlParameter(ParmName13, ParmValue13) 00448: CMD.Parameters.Add(PRM(13)) 00449: PRM(15) = New SqlParameter(ParmName15, ParmValue15) 00450: CMD.Parameters.Add(PRM(15)) 00451: End Sub 00452: 00453: Public Sub New(ByVal ParmName0 As String, ByVal ParmValue0 As Object, ByVal ParmName1 As String, ByVal ParmValue1 As Object, ByVal ParmName2 As String, ByVal ParmValue2 As Object, ByVal ParmName3 As String, ByVal ParmValue3 As Object, ByVal ParmName4 As String, ByVal ParmValue4 As Object, ByVal ParmName5 As String, ByVal ParmValue5 As Object, ByVal ParmName6 As String, ByVal ParmValue6 As Object, ByVal ParmName7 As String, ByVal ParmValue7 As Object, ByVal ParmName8 As String, ByVal ParmValue8 As Object, ByVal ParmName9 As String, ByVal ParmValue9 As Object, ByVal ParmName10 As String, ByVal ParmValue10 As Object, ByVal ParmName11 As String, ByVal ParmValue11 As Object, ByVal ParmName12 As String, ByVal ParmValue12 As Object, ByVal ParmName13 As String, ByVal ParmValue13 As Object, ByVal ParmName14 As String, ByVal ParmValue14 As Object, ByVal ParmName15 As String, ByVal ParmValue15 As Object, ByVal ParmName16 As String, ByVal ParmValue16 As Object) 00454: PRM(0) = New SqlParameter(ParmName0, ParmValue0) 00455: CMD.Parameters.Add(PRM(0)) 00456: PRM(1) = New SqlParameter(ParmName1, ParmValue1) 00457: CMD.Parameters.Add(PRM(1)) 00458: PRM(2) = New SqlParameter(ParmName2, ParmValue2) 00459: CMD.Parameters.Add(PRM(2)) 00460: PRM(3) = New SqlParameter(ParmName3, ParmValue3) 00461: CMD.Parameters.Add(PRM(3)) 00462: PRM(4) = New SqlParameter(ParmName4, ParmValue4) 00463: CMD.Parameters.Add(PRM(4)) 00464: PRM(5) = New SqlParameter(ParmName5, ParmValue5) 00465: CMD.Parameters.Add(PRM(5)) 00466: PRM(6) = New SqlParameter(ParmName6, ParmValue6) 00467: CMD.Parameters.Add(PRM(6)) 00468: PRM(7) = New SqlParameter(ParmName7, ParmValue7) 00469: CMD.Parameters.Add(PRM(7)) 00470: PRM(8) = New SqlParameter(ParmName8, ParmValue8) 00471: CMD.Parameters.Add(PRM(8)) 00472: PRM(9) = New SqlParameter(ParmName9, ParmValue9) 00473: CMD.Parameters.Add(PRM(9)) 00474: PRM(10) = New SqlParameter(ParmName10, ParmValue10) 00475: CMD.Parameters.Add(PRM(10)) 00476: PRM(11) = New SqlParameter(ParmName11, ParmValue11) 00477: CMD.Parameters.Add(PRM(11)) 00478: PRM(12) = New SqlParameter(ParmName12, ParmValue12) 00479: CMD.Parameters.Add(PRM(12)) 00480: PRM(13) = New SqlParameter(ParmName13, ParmValue13) 00481: CMD.Parameters.Add(PRM(13)) 00482: PRM(14) = New SqlParameter(ParmName14, ParmValue14) 00483: CMD.Parameters.Add(PRM(14)) 00484: PRM(15) = New SqlParameter(ParmName15, ParmValue15) 00485: CMD.Parameters.Add(PRM(15)) 00486: PRM(16) = New SqlParameter(ParmName16, ParmValue16) 00487: CMD.Parameters.Add(PRM(16)) 00488: End Sub 00489: 00490: Public Sub New(ByVal ParmName0 As String, ByVal ParmValue0 As Object, ByVal ParmName1 As String, ByVal ParmValue1 As Object, ByVal ParmName2 As String, ByVal ParmValue2 As Object, ByVal ParmName3 As String, ByVal ParmValue3 As Object, ByVal ParmName4 As String, ByVal ParmValue4 As Object, ByVal ParmName5 As String, ByVal ParmValue5 As Object, ByVal ParmName6 As String, ByVal ParmValue6 As Object, ByVal ParmName7 As String, ByVal ParmValue7 As Object, ByVal ParmName8 As String, ByVal ParmValue8 As Object, ByVal ParmName9 As String, ByVal ParmValue9 As Object, ByVal ParmName10 As String, ByVal ParmValue10 As Object, ByVal ParmName11 As String, ByVal ParmValue11 As Object, ByVal ParmName12 As String, ByVal ParmValue12 As Object, ByVal ParmName13 As String, ByVal ParmValue13 As Object, ByVal ParmName14 As String, ByVal ParmValue14 As Object, ByVal ParmName15 As String, ByVal ParmValue15 As Object, ByVal ParmName16 As String, ByVal ParmValue16 As Object, ByVal ParmName17 As String, ByVal ParmValue17 As Object) 00491: PRM(0) = New SqlParameter(ParmName0, ParmValue0) 00492: CMD.Parameters.Add(PRM(0)) 00493: PRM(1) = New SqlParameter(ParmName1, ParmValue1) 00494: CMD.Parameters.Add(PRM(1)) 00495: PRM(2) = New SqlParameter(ParmName2, ParmValue2) 00496: CMD.Parameters.Add(PRM(2)) 00497: PRM(3) = New SqlParameter(ParmName3, ParmValue3) 00498: CMD.Parameters.Add(PRM(3)) 00499: PRM(4) = New SqlParameter(ParmName4, ParmValue4) 00500: CMD.Parameters.Add(PRM(4)) 00501: PRM(5) = New SqlParameter(ParmName5, ParmValue5) 00502: CMD.Parameters.Add(PRM(5)) 00503: PRM(6) = New SqlParameter(ParmName6, ParmValue6) 00504: CMD.Parameters.Add(PRM(6)) 00505: PRM(7) = New SqlParameter(ParmName7, ParmValue7) 00506: CMD.Parameters.Add(PRM(7)) 00507: PRM(8) = New SqlParameter(ParmName8, ParmValue8) 00508: CMD.Parameters.Add(PRM(8)) 00509: PRM(9) = New SqlParameter(ParmName9, ParmValue9) 00510: CMD.Parameters.Add(PRM(9)) 00511: PRM(10) = New SqlParameter(ParmName10, ParmValue10) 00512: CMD.Parameters.Add(PRM(10)) 00513: PRM(11) = New SqlParameter(ParmName11, ParmValue11) 00514: CMD.Parameters.Add(PRM(11)) 00515: PRM(12) = New SqlParameter(ParmName12, ParmValue12) 00516: CMD.Parameters.Add(PRM(12)) 00517: PRM(13) = New SqlParameter(ParmName13, ParmValue13) 00518: CMD.Parameters.Add(PRM(13)) 00519: PRM(14) = New SqlParameter(ParmName14, ParmValue14) 00520: CMD.Parameters.Add(PRM(14)) 00521: PRM(15) = New SqlParameter(ParmName15, ParmValue15) 00522: CMD.Parameters.Add(PRM(15)) 00523: PRM(16) = New SqlParameter(ParmName16, ParmValue16) 00524: CMD.Parameters.Add(PRM(16)) 00525: PRM(17) = New SqlParameter(ParmName17, ParmValue17) 00526: CMD.Parameters.Add(PRM(17)) 00527: End Sub 00528: 00529: Public Sub New(ByVal ParmName0 As String, ByVal ParmValue0 As Object, ByVal ParmName1 As String, ByVal ParmValue1 As Object, ByVal ParmName2 As String, ByVal ParmValue2 As Object, ByVal ParmName3 As String, ByVal ParmValue3 As Object, ByVal ParmName4 As String, ByVal ParmValue4 As Object, ByVal ParmName5 As String, ByVal ParmValue5 As Object, ByVal ParmName6 As String, ByVal ParmValue6 As Object, ByVal ParmName7 As String, ByVal ParmValue7 As Object, ByVal ParmName8 As String, ByVal ParmValue8 As Object, ByVal ParmName9 As String, ByVal ParmValue9 As Object, ByVal ParmName10 As String, ByVal ParmValue10 As Object, ByVal ParmName11 As String, ByVal ParmValue11 As Object, ByVal ParmName12 As String, ByVal ParmValue12 As Object, ByVal ParmName13 As String, ByVal ParmValue13 As Object, ByVal ParmName14 As String, ByVal ParmValue14 As Object, ByVal ParmName15 As String, ByVal ParmValue15 As Object, ByVal ParmName16 As String, ByVal ParmValue16 As Object, ByVal ParmName17 As String, ByVal ParmValue17 As Object, ByVal ParmName18 As String, ByVal ParmValue18 As Object) 00530: PRM(0) = New SqlParameter(ParmName0, ParmValue0) 00531: CMD.Parameters.Add(PRM(0)) 00532: PRM(1) = New SqlParameter(ParmName1, ParmValue1) 00533: CMD.Parameters.Add(PRM(1)) 00534: PRM(2) = New SqlParameter(ParmName2, ParmValue2) 00535: CMD.Parameters.Add(PRM(2)) 00536: PRM(3) = New SqlParameter(ParmName3, ParmValue3) 00537: CMD.Parameters.Add(PRM(3)) 00538: PRM(4) = New SqlParameter(ParmName4, ParmValue4) 00539: CMD.Parameters.Add(PRM(4)) 00540: PRM(5) = New SqlParameter(ParmName5, ParmValue5) 00541: CMD.Parameters.Add(PRM(5)) 00542: PRM(6) = New SqlParameter(ParmName6, ParmValue6) 00543: CMD.Parameters.Add(PRM(6)) 00544: PRM(7) = New SqlParameter(ParmName7, ParmValue7) 00545: CMD.Parameters.Add(PRM(7)) 00546: PRM(8) = New SqlParameter(ParmName8, ParmValue8) 00547: CMD.Parameters.Add(PRM(8)) 00548: PRM(9) = New SqlParameter(ParmName9, ParmValue9) 00549: CMD.Parameters.Add(PRM(9)) 00550: PRM(10) = New SqlParameter(ParmName10, ParmValue10) 00551: CMD.Parameters.Add(PRM(10)) 00552: PRM(11) = New SqlParameter(ParmName11, ParmValue11) 00553: CMD.Parameters.Add(PRM(11)) 00554: PRM(12) = New SqlParameter(ParmName12, ParmValue12) 00555: CMD.Parameters.Add(PRM(12)) 00556: PRM(13) = New SqlParameter(ParmName13, ParmValue13) 00557: CMD.Parameters.Add(PRM(13)) 00558: PRM(14) = New SqlParameter(ParmName14, ParmValue14) 00559: CMD.Parameters.Add(PRM(14)) 00560: PRM(15) = New SqlParameter(ParmName15, ParmValue15) 00561: CMD.Parameters.Add(PRM(15)) 00562: PRM(16) = New SqlParameter(ParmName16, ParmValue16) 00563: CMD.Parameters.Add(PRM(16)) 00564: PRM(17) = New SqlParameter(ParmName17, ParmValue17) 00565: CMD.Parameters.Add(PRM(17)) 00566: PRM(18) = New SqlParameter(ParmName18, ParmValue18) 00567: CMD.Parameters.Add(PRM(18)) 00568: End Sub 00569: 00570: Public Sub New(ByVal ParmName0 As String, ByVal ParmValue0 As Object, ByVal ParmName1 As String, ByVal ParmValue1 As Object, ByVal ParmName2 As String, ByVal ParmValue2 As Object, ByVal ParmName3 As String, ByVal ParmValue3 As Object, ByVal ParmName4 As String, ByVal ParmValue4 As Object, ByVal ParmName5 As String, ByVal ParmValue5 As Object, ByVal ParmName6 As String, ByVal ParmValue6 As Object, ByVal ParmName7 As String, ByVal ParmValue7 As Object, ByVal ParmName8 As String, ByVal ParmValue8 As Object, ByVal ParmName9 As String, ByVal ParmValue9 As Object, ByVal ParmName10 As String, ByVal ParmValue10 As Object, ByVal ParmName11 As String, ByVal ParmValue11 As Object, ByVal ParmName12 As String, ByVal ParmValue12 As Object, ByVal ParmName13 As String, ByVal ParmValue13 As Object, ByVal ParmName14 As String, ByVal ParmValue14 As Object, ByVal ParmName15 As String, ByVal ParmValue15 As Object, ByVal ParmName16 As String, ByVal ParmValue16 As Object, ByVal ParmName17 As String, ByVal ParmValue17 As Object, ByVal ParmName18 As String, ByVal ParmValue18 As Object, ByVal ParmName19 As String, ByVal ParmValue19 As Object) 00571: PRM(0) = New SqlParameter(ParmName0, ParmValue0) 00572: CMD.Parameters.Add(PRM(0)) 00573: PRM(1) = New SqlParameter(ParmName1, ParmValue1) 00574: CMD.Parameters.Add(PRM(1)) 00575: PRM(2) = New SqlParameter(ParmName2, ParmValue2) 00576: CMD.Parameters.Add(PRM(2)) 00577: PRM(3) = New SqlParameter(ParmName3, ParmValue3) 00578: CMD.Parameters.Add(PRM(3)) 00579: PRM(4) = New SqlParameter(ParmName4, ParmValue4) 00580: CMD.Parameters.Add(PRM(4)) 00581: PRM(5) = New SqlParameter(ParmName5, ParmValue5) 00582: CMD.Parameters.Add(PRM(5)) 00583: PRM(6) = New SqlParameter(ParmName6, ParmValue6) 00584: CMD.Parameters.Add(PRM(6)) 00585: PRM(7) = New SqlParameter(ParmName7, ParmValue7) 00586: CMD.Parameters.Add(PRM(7)) 00587: PRM(8) = New SqlParameter(ParmName8, ParmValue8) 00588: CMD.Parameters.Add(PRM(8)) 00589: PRM(9) = New SqlParameter(ParmName9, ParmValue9) 00590: CMD.Parameters.Add(PRM(9)) 00591: PRM(10) = New SqlParameter(ParmName10, ParmValue10) 00592: CMD.Parameters.Add(PRM(10)) 00593: PRM(11) = New SqlParameter(ParmName11, ParmValue11) 00594: CMD.Parameters.Add(PRM(11)) 00595: PRM(12) = New SqlParameter(ParmName12, ParmValue12) 00596: CMD.Parameters.Add(PRM(12)) 00597: PRM(13) = New SqlParameter(ParmName13, ParmValue13) 00598: CMD.Parameters.Add(PRM(13)) 00599: PRM(14) = New SqlParameter(ParmName14, ParmValue14) 00600: CMD.Parameters.Add(PRM(14)) 00601: PRM(15) = New SqlParameter(ParmName15, ParmValue15) 00602: CMD.Parameters.Add(PRM(15)) 00603: PRM(16) = New SqlParameter(ParmName16, ParmValue16) 00604: CMD.Parameters.Add(PRM(16)) 00605: PRM(17) = New SqlParameter(ParmName17, ParmValue17) 00606: CMD.Parameters.Add(PRM(17)) 00607: PRM(18) = New SqlParameter(ParmName18, ParmValue18) 00608: CMD.Parameters.Add(PRM(18)) 00609: PRM(19) = New SqlParameter(ParmName19, ParmValue19) 00610: CMD.Parameters.Add(PRM(19)) 00611: End Sub 00612: 00613: Public Sub New(ByVal ParmName0 As String, ByVal ParmValue0 As Object, ByVal ParmName1 As String, ByVal ParmValue1 As Object, ByVal ParmName2 As String, ByVal ParmValue2 As Object, ByVal ParmName3 As String, ByVal ParmValue3 As Object, ByVal ParmName4 As String, ByVal ParmValue4 As Object, ByVal ParmName5 As String, ByVal ParmValue5 As Object, ByVal ParmName6 As String, ByVal ParmValue6 As Object, ByVal ParmName7 As String, ByVal ParmValue7 As Object, ByVal ParmName8 As String, ByVal ParmValue8 As Object, ByVal ParmName9 As String, ByVal ParmValue9 As Object, ByVal ParmName10 As String, ByVal ParmValue10 As Object, ByVal ParmName11 As String, ByVal ParmValue11 As Object, ByVal ParmName12 As String, ByVal ParmValue12 As Object, ByVal ParmName13 As String, ByVal ParmValue13 As Object, ByVal ParmName14 As String, ByVal ParmValue14 As Object, ByVal ParmName15 As String, ByVal ParmValue15 As Object, ByVal ParmName16 As String, ByVal ParmValue16 As Object, ByVal ParmName17 As String, ByVal ParmValue17 As Object, ByVal ParmName18 As String, ByVal ParmValue18 As Object, ByVal ParmName19 As String, ByVal ParmValue19 As Object, ByVal ParmName20 As String, ByVal ParmValue20 As Object) 00614: PRM(0) = New SqlParameter(ParmName0, ParmValue0) 00615: CMD.Parameters.Add(PRM(0)) 00616: PRM(1) = New SqlParameter(ParmName1, ParmValue1) 00617: CMD.Parameters.Add(PRM(1)) 00618: PRM(2) = New SqlParameter(ParmName2, ParmValue2) 00619: CMD.Parameters.Add(PRM(2)) 00620: PRM(3) = New SqlParameter(ParmName3, ParmValue3) 00621: CMD.Parameters.Add(PRM(3)) 00622: PRM(4) = New SqlParameter(ParmName4, ParmValue4) 00623: CMD.Parameters.Add(PRM(4)) 00624: PRM(5) = New SqlParameter(ParmName5, ParmValue5) 00625: CMD.Parameters.Add(PRM(5)) 00626: PRM(6) = New SqlParameter(ParmName6, ParmValue6) 00627: CMD.Parameters.Add(PRM(6)) 00628: PRM(7) = New SqlParameter(ParmName7, ParmValue7) 00629: CMD.Parameters.Add(PRM(7)) 00630: PRM(8) = New SqlParameter(ParmName8, ParmValue8) 00631: CMD.Parameters.Add(PRM(8)) 00632: PRM(9) = New SqlParameter(ParmName9, ParmValue9) 00633: CMD.Parameters.Add(PRM(9)) 00634: PRM(10) = New SqlParameter(ParmName10, ParmValue10) 00635: CMD.Parameters.Add(PRM(10)) 00636: PRM(11) = New SqlParameter(ParmName11, ParmValue11) 00637: CMD.Parameters.Add(PRM(11)) 00638: PRM(12) = New SqlParameter(ParmName12, ParmValue12) 00639: CMD.Parameters.Add(PRM(12)) 00640: PRM(13) = New SqlParameter(ParmName13, ParmValue13) 00641: CMD.Parameters.Add(PRM(13)) 00642: PRM(14) = New SqlParameter(ParmName14, ParmValue14) 00643: CMD.Parameters.Add(PRM(14)) 00644: PRM(15) = New SqlParameter(ParmName15, ParmValue15) 00645: CMD.Parameters.Add(PRM(15)) 00646: PRM(16) = New SqlParameter(ParmName16, ParmValue16) 00647: CMD.Parameters.Add(PRM(16)) 00648: PRM(17) = New SqlParameter(ParmName17, ParmValue17) 00649: CMD.Parameters.Add(PRM(17)) 00650: PRM(18) = New SqlParameter(ParmName18, ParmValue18) 00651: CMD.Parameters.Add(PRM(18)) 00652: PRM(19) = New SqlParameter(ParmName19, ParmValue19) 00653: CMD.Parameters.Add(PRM(19)) 00654: PRM(20) = New SqlParameter(ParmName20, ParmValue20) 00655: CMD.Parameters.Add(PRM(20)) 00656: End Sub 00657: 00658: Public Sub New(ByVal ParmName0 As String, ByVal ParmValue0 As Object, ByVal ParmName1 As String, ByVal ParmValue1 As Object, ByVal ParmName2 As String, ByVal ParmValue2 As Object, ByVal ParmName3 As String, ByVal ParmValue3 As Object, ByVal ParmName4 As String, ByVal ParmValue4 As Object, ByVal ParmName5 As String, ByVal ParmValue5 As Object, ByVal ParmName6 As String, ByVal ParmValue6 As Object, ByVal ParmName7 As String, ByVal ParmValue7 As Object, ByVal ParmName8 As String, ByVal ParmValue8 As Object, ByVal ParmName9 As String, ByVal ParmValue9 As Object, ByVal ParmName10 As String, ByVal ParmValue10 As Object, ByVal ParmName11 As String, ByVal ParmValue11 As Object, ByVal ParmName12 As String, ByVal ParmValue12 As Object, ByVal ParmName13 As String, ByVal ParmValue13 As Object, ByVal ParmName14 As String, ByVal ParmValue14 As Object, ByVal ParmName15 As String, ByVal ParmValue15 As Object, ByVal ParmName16 As String, ByVal ParmValue16 As Object, ByVal ParmName17 As String, ByVal ParmValue17 As Object, ByVal ParmName18 As String, ByVal ParmValue18 As Object, ByVal ParmName19 As String, ByVal ParmValue19 As Object, ByVal ParmName20 As String, ByVal ParmValue20 As Object, ByVal ParmName21 As String, ByVal ParmValue21 As Object) 00659: PRM(0) = New SqlParameter(ParmName0, ParmValue0) 00660: CMD.Parameters.Add(PRM(0)) 00661: PRM(1) = New SqlParameter(ParmName1, ParmValue1) 00662: CMD.Parameters.Add(PRM(1)) 00663: PRM(2) = New SqlParameter(ParmName2, ParmValue2) 00664: CMD.Parameters.Add(PRM(2)) 00665: PRM(3) = New SqlParameter(ParmName3, ParmValue3) 00666: CMD.Parameters.Add(PRM(3)) 00667: PRM(4) = New SqlParameter(ParmName4, ParmValue4) 00668: CMD.Parameters.Add(PRM(4)) 00669: PRM(5) = New SqlParameter(ParmName5, ParmValue5) 00670: CMD.Parameters.Add(PRM(5)) 00671: PRM(6) = New SqlParameter(ParmName6, ParmValue6) 00672: CMD.Parameters.Add(PRM(6)) 00673: PRM(7) = New SqlParameter(ParmName7, ParmValue7) 00674: CMD.Parameters.Add(PRM(7)) 00675: PRM(8) = New SqlParameter(ParmName8, ParmValue8) 00676: CMD.Parameters.Add(PRM(8)) 00677: PRM(9) = New SqlParameter(ParmName9, ParmValue9) 00678: CMD.Parameters.Add(PRM(9)) 00679: PRM(10) = New SqlParameter(ParmName10, ParmValue10) 00680: CMD.Parameters.Add(PRM(10)) 00681: PRM(11) = New SqlParameter(ParmName11, ParmValue11) 00682: CMD.Parameters.Add(PRM(11)) 00683: PRM(12) = New SqlParameter(ParmName12, ParmValue12) 00684: CMD.Parameters.Add(PRM(12)) 00685: PRM(13) = New SqlParameter(ParmName13, ParmValue13) 00686: CMD.Parameters.Add(PRM(13)) 00687: PRM(14) = New SqlParameter(ParmName14, ParmValue14) 00688: CMD.Parameters.Add(PRM(14)) 00689: PRM(15) = New SqlParameter(ParmName15, ParmValue15) 00690: CMD.Parameters.Add(PRM(15)) 00691: PRM(16) = New SqlParameter(ParmName16, ParmValue16) 00692: CMD.Parameters.Add(PRM(16)) 00693: PRM(17) = New SqlParameter(ParmName17, ParmValue17) 00694: CMD.Parameters.Add(PRM(17)) 00695: PRM(18) = New SqlParameter(ParmName18, ParmValue18) 00696: CMD.Parameters.Add(PRM(18)) 00697: PRM(19) = New SqlParameter(ParmName19, ParmValue19) 00698: CMD.Parameters.Add(PRM(19)) 00699: PRM(20) = New SqlParameter(ParmName20, ParmValue20) 00700: CMD.Parameters.Add(PRM(20)) 00701: PRM(21) = New SqlParameter(ParmName21, ParmValue21) 00702: CMD.Parameters.Add(PRM(21)) 00703: End Sub 00704: 00705: Public Sub New(ByVal ParmName0 As String, ByVal ParmValue0 As Object, ByVal ParmName1 As String, ByVal ParmValue1 As Object, ByVal ParmName2 As String, ByVal ParmValue2 As Object, ByVal ParmName3 As String, ByVal ParmValue3 As Object, ByVal ParmName4 As String, ByVal ParmValue4 As Object, ByVal ParmName5 As String, ByVal ParmValue5 As Object, ByVal ParmName6 As String, ByVal ParmValue6 As Object, ByVal ParmName7 As String, ByVal ParmValue7 As Object, ByVal ParmName8 As String, ByVal ParmValue8 As Object, ByVal ParmName9 As String, ByVal ParmValue9 As Object, ByVal ParmName10 As String, ByVal ParmValue10 As Object, ByVal ParmName11 As String, ByVal ParmValue11 As Object, ByVal ParmName12 As String, ByVal ParmValue12 As Object, ByVal ParmName13 As String, ByVal ParmValue13 As Object, ByVal ParmName14 As String, ByVal ParmValue14 As Object, ByVal ParmName15 As String, ByVal ParmValue15 As Object, ByVal ParmName16 As String, ByVal ParmValue16 As Object, ByVal ParmName17 As String, ByVal ParmValue17 As Object, ByVal ParmName18 As String, ByVal ParmValue18 As Object, ByVal ParmName19 As String, ByVal ParmValue19 As Object, ByVal ParmName20 As String, ByVal ParmValue20 As Object, ByVal ParmName21 As String, ByVal ParmValue21 As Object, ByVal ParmName22 As String, ByVal ParmValue22 As Object) 00706: PRM(0) = New SqlParameter(ParmName0, ParmValue0) 00707: CMD.Parameters.Add(PRM(0)) 00708: PRM(1) = New SqlParameter(ParmName1, ParmValue1) 00709: CMD.Parameters.Add(PRM(1)) 00710: PRM(2) = New SqlParameter(ParmName2, ParmValue2) 00711: CMD.Parameters.Add(PRM(2)) 00712: PRM(3) = New SqlParameter(ParmName3, ParmValue3) 00713: CMD.Parameters.Add(PRM(3)) 00714: PRM(4) = New SqlParameter(ParmName4, ParmValue4) 00715: CMD.Parameters.Add(PRM(4)) 00716: PRM(5) = New SqlParameter(ParmName5, ParmValue5) 00717: CMD.Parameters.Add(PRM(5)) 00718: PRM(6) = New SqlParameter(ParmName6, ParmValue6) 00719: CMD.Parameters.Add(PRM(6)) 00720: PRM(7) = New SqlParameter(ParmName7, ParmValue7) 00721: CMD.Parameters.Add(PRM(7)) 00722: PRM(8) = New SqlParameter(ParmName8, ParmValue8) 00723: CMD.Parameters.Add(PRM(8)) 00724: PRM(9) = New SqlParameter(ParmName9, ParmValue9) 00725: CMD.Parameters.Add(PRM(9)) 00726: PRM(10) = New SqlParameter(ParmName10, ParmValue10) 00727: CMD.Parameters.Add(PRM(10)) 00728: PRM(11) = New SqlParameter(ParmName11, ParmValue11) 00729: CMD.Parameters.Add(PRM(11)) 00730: PRM(12) = New SqlParameter(ParmName12, ParmValue12) 00731: CMD.Parameters.Add(PRM(12)) 00732: PRM(13) = New SqlParameter(ParmName13, ParmValue13) 00733: CMD.Parameters.Add(PRM(13)) 00734: PRM(14) = New SqlParameter(ParmName14, ParmValue14) 00735: CMD.Parameters.Add(PRM(14)) 00736: PRM(15) = New SqlParameter(ParmName15, ParmValue15) 00737: CMD.Parameters.Add(PRM(15)) 00738: PRM(16) = New SqlParameter(ParmName16, ParmValue16) 00739: CMD.Parameters.Add(PRM(16)) 00740: PRM(17) = New SqlParameter(ParmName17, ParmValue17) 00741: CMD.Parameters.Add(PRM(17)) 00742: PRM(18) = New SqlParameter(ParmName18, ParmValue18) 00743: CMD.Parameters.Add(PRM(18)) 00744: PRM(19) = New SqlParameter(ParmName19, ParmValue19) 00745: CMD.Parameters.Add(PRM(19)) 00746: PRM(20) = New SqlParameter(ParmName20, ParmValue20) 00747: CMD.Parameters.Add(PRM(20)) 00748: PRM(21) = New SqlParameter(ParmName21, ParmValue21) 00749: CMD.Parameters.Add(PRM(21)) 00750: PRM(22) = New SqlParameter(ParmName22, ParmValue22) 00751: CMD.Parameters.Add(PRM(22)) 00752: End Sub 00753: 00754: Public Sub New(ByVal ParmName0 As String, ByVal ParmValue0 As Object, ByVal ParmName1 As String, ByVal ParmValue1 As Object, ByVal ParmName2 As String, ByVal ParmValue2 As Object, ByVal ParmName3 As String, ByVal ParmValue3 As Object, ByVal ParmName4 As String, ByVal ParmValue4 As Object, ByVal ParmName5 As String, ByVal ParmValue5 As Object, ByVal ParmName6 As String, ByVal ParmValue6 As Object, ByVal ParmName7 As String, ByVal ParmValue7 As Object, ByVal ParmName8 As String, ByVal ParmValue8 As Object, ByVal ParmName9 As String, ByVal ParmValue9 As Object, ByVal ParmName10 As String, ByVal ParmValue10 As Object, ByVal ParmName11 As String, ByVal ParmValue11 As Object, ByVal ParmName12 As String, ByVal ParmValue12 As Object, ByVal ParmName13 As String, ByVal ParmValue13 As Object, ByVal ParmName14 As String, ByVal ParmValue14 As Object, ByVal ParmName15 As String, ByVal ParmValue15 As Object, ByVal ParmName16 As String, ByVal ParmValue16 As Object, ByVal ParmName17 As String, ByVal ParmValue17 As Object, ByVal ParmName18 As String, ByVal ParmValue18 As Object, ByVal ParmName19 As String, ByVal ParmValue19 As Object, ByVal ParmName20 As String, ByVal ParmValue20 As Object, ByVal ParmName21 As String, ByVal ParmValue21 As Object, ByVal ParmName22 As String, ByVal ParmValue22 As Object, ByVal ParmName23 As String, ByVal ParmValue23 As Object) 00755: PRM(0) = New SqlParameter(ParmName0, ParmValue0) 00756: CMD.Parameters.Add(PRM(0)) 00757: PRM(1) = New SqlParameter(ParmName1, ParmValue1) 00758: CMD.Parameters.Add(PRM(1)) 00759: PRM(2) = New SqlParameter(ParmName2, ParmValue2) 00760: CMD.Parameters.Add(PRM(2)) 00761: PRM(3) = New SqlParameter(ParmName3, ParmValue3) 00762: CMD.Parameters.Add(PRM(3)) 00763: PRM(4) = New SqlParameter(ParmName4, ParmValue4) 00764: CMD.Parameters.Add(PRM(4)) 00765: PRM(5) = New SqlParameter(ParmName5, ParmValue5) 00766: CMD.Parameters.Add(PRM(5)) 00767: PRM(6) = New SqlParameter(ParmName6, ParmValue6) 00768: CMD.Parameters.Add(PRM(6)) 00769: PRM(7) = New SqlParameter(ParmName7, ParmValue7) 00770: CMD.Parameters.Add(PRM(7)) 00771: PRM(8) = New SqlParameter(ParmName8, ParmValue8) 00772: CMD.Parameters.Add(PRM(8)) 00773: PRM(9) = New SqlParameter(ParmName9, ParmValue9) 00774: CMD.Parameters.Add(PRM(9)) 00775: PRM(10) = New SqlParameter(ParmName10, ParmValue10) 00776: CMD.Parameters.Add(PRM(10)) 00777: PRM(11) = New SqlParameter(ParmName11, ParmValue11) 00778: CMD.Parameters.Add(PRM(11)) 00779: PRM(12) = New SqlParameter(ParmName12, ParmValue12) 00780: CMD.Parameters.Add(PRM(12)) 00781: PRM(13) = New SqlParameter(ParmName13, ParmValue13) 00782: CMD.Parameters.Add(PRM(13)) 00783: PRM(14) = New SqlParameter(ParmName14, ParmValue14) 00784: CMD.Parameters.Add(PRM(14)) 00785: PRM(15) = New SqlParameter(ParmName15, ParmValue15) 00786: CMD.Parameters.Add(PRM(15)) 00787: PRM(16) = New SqlParameter(ParmName16, ParmValue16) 00788: CMD.Parameters.Add(PRM(16)) 00789: PRM(17) = New SqlParameter(ParmName17, ParmValue17) 00790: CMD.Parameters.Add(PRM(17)) 00791: PRM(18) = New SqlParameter(ParmName18, ParmValue18) 00792: CMD.Parameters.Add(PRM(18)) 00793: PRM(19) = New SqlParameter(ParmName19, ParmValue19) 00794: CMD.Parameters.Add(PRM(19)) 00795: PRM(20) = New SqlParameter(ParmName20, ParmValue20) 00796: CMD.Parameters.Add(PRM(20)) 00797: PRM(21) = New SqlParameter(ParmName21, ParmValue21) 00798: CMD.Parameters.Add(PRM(21)) 00799: PRM(22) = New SqlParameter(ParmName22, ParmValue22) 00800: CMD.Parameters.Add(PRM(22)) 00801: PRM(23) = New SqlParameter(ParmName23, ParmValue23) 00802: CMD.Parameters.Add(PRM(23)) 00803: End Sub 00804: 00805: Public Sub New(ByVal ParmName0 As String, ByVal ParmValue0 As Object, ByVal ParmName1 As String, ByVal ParmValue1 As Object, ByVal ParmName2 As String, ByVal ParmValue2 As Object, ByVal ParmName3 As String, ByVal ParmValue3 As Object, ByVal ParmName4 As String, ByVal ParmValue4 As Object, ByVal ParmName5 As String, ByVal ParmValue5 As Object, ByVal ParmName6 As String, ByVal ParmValue6 As Object, ByVal ParmName7 As String, ByVal ParmValue7 As Object, ByVal ParmName8 As String, ByVal ParmValue8 As Object, ByVal ParmName9 As String, ByVal ParmValue9 As Object, ByVal ParmName10 As String, ByVal ParmValue10 As Object, ByVal ParmName11 As String, ByVal ParmValue11 As Object, ByVal ParmName12 As String, ByVal ParmValue12 As Object, ByVal ParmName13 As String, ByVal ParmValue13 As Object, ByVal ParmName14 As String, ByVal ParmValue14 As Object, ByVal ParmName15 As String, ByVal ParmValue15 As Object, ByVal ParmName16 As String, ByVal ParmValue16 As Object, ByVal ParmName17 As String, ByVal ParmValue17 As Object, ByVal ParmName18 As String, ByVal ParmValue18 As Object, ByVal ParmName19 As String, ByVal ParmValue19 As Object, ByVal ParmName20 As String, ByVal ParmValue20 As Object, ByVal ParmName21 As String, ByVal ParmValue21 As Object, ByVal ParmName22 As String, ByVal ParmValue22 As Object, ByVal ParmName23 As String, ByVal ParmValue23 As Object, ByVal ParmName24 As String, ByVal ParmValue24 As Object) 00806: PRM(0) = New SqlParameter(ParmName0, ParmValue0) 00807: CMD.Parameters.Add(PRM(0)) 00808: PRM(1) = New SqlParameter(ParmName1, ParmValue1) 00809: CMD.Parameters.Add(PRM(1)) 00810: PRM(2) = New SqlParameter(ParmName2, ParmValue2) 00811: CMD.Parameters.Add(PRM(2)) 00812: PRM(3) = New SqlParameter(ParmName3, ParmValue3) 00813: CMD.Parameters.Add(PRM(3)) 00814: PRM(4) = New SqlParameter(ParmName4, ParmValue4) 00815: CMD.Parameters.Add(PRM(4)) 00816: PRM(5) = New SqlParameter(ParmName5, ParmValue5) 00817: CMD.Parameters.Add(PRM(5)) 00818: PRM(6) = New SqlParameter(ParmName6, ParmValue6) 00819: CMD.Parameters.Add(PRM(6)) 00820: PRM(7) = New SqlParameter(ParmName7, ParmValue7) 00821: CMD.Parameters.Add(PRM(7)) 00822: PRM(8) = New SqlParameter(ParmName8, ParmValue8) 00823: CMD.Parameters.Add(PRM(8)) 00824: PRM(9) = New SqlParameter(ParmName9, ParmValue9) 00825: CMD.Parameters.Add(PRM(9)) 00826: PRM(10) = New SqlParameter(ParmName10, ParmValue10) 00827: CMD.Parameters.Add(PRM(10)) 00828: PRM(11) = New SqlParameter(ParmName11, ParmValue11) 00829: CMD.Parameters.Add(PRM(11)) 00830: PRM(12) = New SqlParameter(ParmName12, ParmValue12) 00831: CMD.Parameters.Add(PRM(12)) 00832: PRM(13) = New SqlParameter(ParmName13, ParmValue13) 00833: CMD.Parameters.Add(PRM(13)) 00834: PRM(14) = New SqlParameter(ParmName14, ParmValue14) 00835: CMD.Parameters.Add(PRM(14)) 00836: PRM(15) = New SqlParameter(ParmName15, ParmValue15) 00837: CMD.Parameters.Add(PRM(15)) 00838: PRM(16) = New SqlParameter(ParmName16, ParmValue16) 00839: CMD.Parameters.Add(PRM(16)) 00840: PRM(17) = New SqlParameter(ParmName17, ParmValue17) 00841: CMD.Parameters.Add(PRM(17)) 00842: PRM(18) = New SqlParameter(ParmName18, ParmValue18) 00843: CMD.Parameters.Add(PRM(18)) 00844: PRM(19) = New SqlParameter(ParmName19, ParmValue19) 00845: CMD.Parameters.Add(PRM(19)) 00846: PRM(20) = New SqlParameter(ParmName20, ParmValue20) 00847: CMD.Parameters.Add(PRM(20)) 00848: PRM(21) = New SqlParameter(ParmName21, ParmValue21) 00849: CMD.Parameters.Add(PRM(21)) 00850: PRM(22) = New SqlParameter(ParmName22, ParmValue22) 00851: CMD.Parameters.Add(PRM(22)) 00852: PRM(23) = New SqlParameter(ParmName23, ParmValue23) 00853: CMD.Parameters.Add(PRM(23)) 00854: PRM(24) = New SqlParameter(ParmName24, ParmValue24) 00855: CMD.Parameters.Add(PRM(24)) 00856: End Sub 00857: 00858: Public Sub New(ByVal ParmName0 As String, ByVal ParmValue0 As Object, ByVal ParmName1 As String, ByVal ParmValue1 As Object, ByVal ParmName2 As String, ByVal ParmValue2 As Object, ByVal ParmName3 As String, ByVal ParmValue3 As Object, ByVal ParmName4 As String, ByVal ParmValue4 As Object, ByVal ParmName5 As String, ByVal ParmValue5 As Object, ByVal ParmName6 As String, ByVal ParmValue6 As Object, ByVal ParmName7 As String, ByVal ParmValue7 As Object, ByVal ParmName8 As String, ByVal ParmValue8 As Object, ByVal ParmName9 As String, ByVal ParmValue9 As Object, ByVal ParmName10 As String, ByVal ParmValue10 As Object, ByVal ParmName11 As String, ByVal ParmValue11 As Object, ByVal ParmName12 As String, ByVal ParmValue12 As Object, ByVal ParmName13 As String, ByVal ParmValue13 As Object, ByVal ParmName14 As String, ByVal ParmValue14 As Object, ByVal ParmName15 As String, ByVal ParmValue15 As Object, ByVal ParmName16 As String, ByVal ParmValue16 As Object, ByVal ParmName17 As String, ByVal ParmValue17 As Object, ByVal ParmName18 As String, ByVal ParmValue18 As Object, ByVal ParmName19 As String, ByVal ParmValue19 As Object, ByVal ParmName20 As String, ByVal ParmValue20 As Object, ByVal ParmName21 As String, ByVal ParmValue21 As Object, ByVal ParmName22 As String, ByVal ParmValue22 As Object, ByVal ParmName23 As String, ByVal ParmValue23 As Object, ByVal ParmName24 As String, ByVal ParmValue24 As Object, ByVal ParmName25 As String, ByVal ParmValue25 As Object) 00859: PRM(0) = New SqlParameter(ParmName0, ParmValue0) 00860: CMD.Parameters.Add(PRM(0)) 00861: PRM(1) = New SqlParameter(ParmName1, ParmValue1) 00862: CMD.Parameters.Add(PRM(1)) 00863: PRM(2) = New SqlParameter(ParmName2, ParmValue2) 00864: CMD.Parameters.Add(PRM(2)) 00865: PRM(3) = New SqlParameter(ParmName3, ParmValue3) 00866: CMD.Parameters.Add(PRM(3)) 00867: PRM(4) = New SqlParameter(ParmName4, ParmValue4) 00868: CMD.Parameters.Add(PRM(4)) 00869: PRM(5) = New SqlParameter(ParmName5, ParmValue5) 00870: CMD.Parameters.Add(PRM(5)) 00871: PRM(6) = New SqlParameter(ParmName6, ParmValue6) 00872: CMD.Parameters.Add(PRM(6)) 00873: PRM(7) = New SqlParameter(ParmName7, ParmValue7) 00874: CMD.Parameters.Add(PRM(7)) 00875: PRM(8) = New SqlParameter(ParmName8, ParmValue8) 00876: CMD.Parameters.Add(PRM(8)) 00877: PRM(9) = New SqlParameter(ParmName9, ParmValue9) 00878: CMD.Parameters.Add(PRM(9)) 00879: PRM(10) = New SqlParameter(ParmName10, ParmValue10) 00880: CMD.Parameters.Add(PRM(10)) 00881: PRM(11) = New SqlParameter(ParmName11, ParmValue11) 00882: CMD.Parameters.Add(PRM(11)) 00883: PRM(12) = New SqlParameter(ParmName12, ParmValue12) 00884: CMD.Parameters.Add(PRM(12)) 00885: PRM(13) = New SqlParameter(ParmName13, ParmValue13) 00886: CMD.Parameters.Add(PRM(13)) 00887: PRM(14) = New SqlParameter(ParmName14, ParmValue14) 00888: CMD.Parameters.Add(PRM(14)) 00889: PRM(15) = New SqlParameter(ParmName15, ParmValue15) 00890: CMD.Parameters.Add(PRM(15)) 00891: PRM(16) = New SqlParameter(ParmName16, ParmValue16) 00892: CMD.Parameters.Add(PRM(16)) 00893: PRM(17) = New SqlParameter(ParmName17, ParmValue17) 00894: CMD.Parameters.Add(PRM(17)) 00895: PRM(18) = New SqlParameter(ParmName18, ParmValue18) 00896: CMD.Parameters.Add(PRM(18)) 00897: PRM(19) = New SqlParameter(ParmName19, ParmValue19) 00898: CMD.Parameters.Add(PRM(19)) 00899: PRM(20) = New SqlParameter(ParmName20, ParmValue20) 00900: CMD.Parameters.Add(PRM(20)) 00901: PRM(21) = New SqlParameter(ParmName21, ParmValue21) 00902: CMD.Parameters.Add(PRM(21)) 00903: PRM(22) = New SqlParameter(ParmName22, ParmValue22) 00904: CMD.Parameters.Add(PRM(22)) 00905: PRM(23) = New SqlParameter(ParmName23, ParmValue23) 00906: CMD.Parameters.Add(PRM(23)) 00907: PRM(24) = New SqlParameter(ParmName24, ParmValue24) 00908: CMD.Parameters.Add(PRM(24)) 00909: PRM(25) = New SqlParameter(ParmName25, ParmValue25) 00910: CMD.Parameters.Add(PRM(25)) 00911: End Sub 00912: 00913: Public Sub New(ByVal ParmName0 As String, ByVal ParmValue0 As Object, ByVal ParmName1 As String, ByVal ParmValue1 As Object, ByVal ParmName2 As String, ByVal ParmValue2 As Object, ByVal ParmName3 As String, ByVal ParmValue3 As Object, ByVal ParmName4 As String, ByVal ParmValue4 As Object, ByVal ParmName5 As String, ByVal ParmValue5 As Object, ByVal ParmName6 As String, ByVal ParmValue6 As Object, ByVal ParmName7 As String, ByVal ParmValue7 As Object, ByVal ParmName8 As String, ByVal ParmValue8 As Object, ByVal ParmName9 As String, ByVal ParmValue9 As Object, ByVal ParmName10 As String, ByVal ParmValue10 As Object, ByVal ParmName11 As String, ByVal ParmValue11 As Object, ByVal ParmName12 As String, ByVal ParmValue12 As Object, ByVal ParmName13 As String, ByVal ParmValue13 As Object, ByVal ParmName14 As String, ByVal ParmValue14 As Object, ByVal ParmName15 As String, ByVal ParmValue15 As Object, ByVal ParmName16 As String, ByVal ParmValue16 As Object, ByVal ParmName17 As String, ByVal ParmValue17 As Object, ByVal ParmName18 As String, ByVal ParmValue18 As Object, ByVal ParmName19 As String, ByVal ParmValue19 As Object, ByVal ParmName20 As String, ByVal ParmValue20 As Object, ByVal ParmName21 As String, ByVal ParmValue21 As Object, ByVal ParmName22 As String, ByVal ParmValue22 As Object, ByVal ParmName23 As String, ByVal ParmValue23 As Object, ByVal ParmName24 As String, ByVal ParmValue24 As Object, ByVal ParmName25 As String, ByVal ParmValue25 As Object, ByVal ParmName26 As String, ByVal ParmValue26 As Object) 00914: PRM(0) = New SqlParameter(ParmName0, ParmValue0) 00915: CMD.Parameters.Add(PRM(0)) 00916: PRM(1) = New SqlParameter(ParmName1, ParmValue1) 00917: CMD.Parameters.Add(PRM(1)) 00918: PRM(2) = New SqlParameter(ParmName2, ParmValue2) 00919: CMD.Parameters.Add(PRM(2)) 00920: PRM(3) = New SqlParameter(ParmName3, ParmValue3) 00921: CMD.Parameters.Add(PRM(3)) 00922: PRM(4) = New SqlParameter(ParmName4, ParmValue4) 00923: CMD.Parameters.Add(PRM(4)) 00924: PRM(5) = New SqlParameter(ParmName5, ParmValue5) 00925: CMD.Parameters.Add(PRM(5)) 00926: PRM(6) = New SqlParameter(ParmName6, ParmValue6) 00927: CMD.Parameters.Add(PRM(6)) 00928: PRM(7) = New SqlParameter(ParmName7, ParmValue7) 00929: CMD.Parameters.Add(PRM(7)) 00930: PRM(8) = New SqlParameter(ParmName8, ParmValue8) 00931: CMD.Parameters.Add(PRM(8)) 00932: PRM(9) = New SqlParameter(ParmName9, ParmValue9) 00933: CMD.Parameters.Add(PRM(9)) 00934: PRM(10) = New SqlParameter(ParmName10, ParmValue10) 00935: CMD.Parameters.Add(PRM(10)) 00936: PRM(11) = New SqlParameter(ParmName11, ParmValue11) 00937: CMD.Parameters.Add(PRM(11)) 00938: PRM(12) = New SqlParameter(ParmName12, ParmValue12) 00939: CMD.Parameters.Add(PRM(12)) 00940: PRM(13) = New SqlParameter(ParmName13, ParmValue13) 00941: CMD.Parameters.Add(PRM(13)) 00942: PRM(14) = New SqlParameter(ParmName14, ParmValue14) 00943: CMD.Parameters.Add(PRM(14)) 00944: PRM(15) = New SqlParameter(ParmName15, ParmValue15) 00945: CMD.Parameters.Add(PRM(15)) 00946: PRM(16) = New SqlParameter(ParmName16, ParmValue16) 00947: CMD.Parameters.Add(PRM(16)) 00948: PRM(17) = New SqlParameter(ParmName17, ParmValue17) 00949: CMD.Parameters.Add(PRM(17)) 00950: PRM(18) = New SqlParameter(ParmName18, ParmValue18) 00951: CMD.Parameters.Add(PRM(18)) 00952: PRM(19) = New SqlParameter(ParmName19, ParmValue19) 00953: CMD.Parameters.Add(PRM(19)) 00954: PRM(20) = New SqlParameter(ParmName20, ParmValue20) 00955: CMD.Parameters.Add(PRM(20)) 00956: PRM(21) = New SqlParameter(ParmName21, ParmValue21) 00957: CMD.Parameters.Add(PRM(21)) 00958: PRM(22) = New SqlParameter(ParmName22, ParmValue22) 00959: CMD.Parameters.Add(PRM(22)) 00960: PRM(23) = New SqlParameter(ParmName23, ParmValue23) 00961: CMD.Parameters.Add(PRM(23)) 00962: PRM(24) = New SqlParameter(ParmName24, ParmValue24) 00963: CMD.Parameters.Add(PRM(24)) 00964: PRM(25) = New SqlParameter(ParmName25, ParmValue25) 00965: CMD.Parameters.Add(PRM(25)) 00966: PRM(26) = New SqlParameter(ParmName26, ParmValue26) 00967: CMD.Parameters.Add(PRM(26)) 00968: End Sub 00969: 00970: Public Sub New(ByVal ParmName0 As String, ByVal ParmValue0 As Object, ByVal ParmName1 As String, ByVal ParmValue1 As Object, ByVal ParmName2 As String, ByVal ParmValue2 As Object, ByVal ParmName3 As String, ByVal ParmValue3 As Object, ByVal ParmName4 As String, ByVal ParmValue4 As Object, ByVal ParmName5 As String, ByVal ParmValue5 As Object, ByVal ParmName6 As String, ByVal ParmValue6 As Object, ByVal ParmName7 As String, ByVal ParmValue7 As Object, ByVal ParmName8 As String, ByVal ParmValue8 As Object, ByVal ParmName9 As String, ByVal ParmValue9 As Object, ByVal ParmName10 As String, ByVal ParmValue10 As Object, ByVal ParmName11 As String, ByVal ParmValue11 As Object, ByVal ParmName12 As String, ByVal ParmValue12 As Object, ByVal ParmName13 As String, ByVal ParmValue13 As Object, ByVal ParmName14 As String, ByVal ParmValue14 As Object, ByVal ParmName15 As String, ByVal ParmValue15 As Object, ByVal ParmName16 As String, ByVal ParmValue16 As Object, ByVal ParmName17 As String, ByVal ParmValue17 As Object, ByVal ParmName18 As String, ByVal ParmValue18 As Object, ByVal ParmName19 As String, ByVal ParmValue19 As Object, ByVal ParmName20 As String, ByVal ParmValue20 As Object, ByVal ParmName21 As String, ByVal ParmValue21 As Object, ByVal ParmName22 As String, ByVal ParmValue22 As Object, ByVal ParmName23 As String, ByVal ParmValue23 As Object, ByVal ParmName24 As String, ByVal ParmValue24 As Object, ByVal ParmName25 As String, ByVal ParmValue25 As Object, ByVal ParmName26 As String, ByVal ParmValue26 As Object, ByVal ParmName27 As String, ByVal ParmValue27 As Object) 00971: PRM(0) = New SqlParameter(ParmName0, ParmValue0) 00972: CMD.Parameters.Add(PRM(0)) 00973: PRM(1) = New SqlParameter(ParmName1, ParmValue1) 00974: CMD.Parameters.Add(PRM(1)) 00975: PRM(2) = New SqlParameter(ParmName2, ParmValue2) 00976: CMD.Parameters.Add(PRM(2)) 00977: PRM(3) = New SqlParameter(ParmName3, ParmValue3) 00978: CMD.Parameters.Add(PRM(3)) 00979: PRM(4) = New SqlParameter(ParmName4, ParmValue4) 00980: CMD.Parameters.Add(PRM(4)) 00981: PRM(5) = New SqlParameter(ParmName5, ParmValue5) 00982: CMD.Parameters.Add(PRM(5)) 00983: PRM(6) = New SqlParameter(ParmName6, ParmValue6) 00984: CMD.Parameters.Add(PRM(6)) 00985: PRM(7) = New SqlParameter(ParmName7, ParmValue7) 00986: CMD.Parameters.Add(PRM(7)) 00987: PRM(8) = New SqlParameter(ParmName8, ParmValue8) 00988: CMD.Parameters.Add(PRM(8)) 00989: PRM(9) = New SqlParameter(ParmName9, ParmValue9) 00990: CMD.Parameters.Add(PRM(9)) 00991: PRM(10) = New SqlParameter(ParmName10, ParmValue10) 00992: CMD.Parameters.Add(PRM(10)) 00993: PRM(11) = New SqlParameter(ParmName11, ParmValue11) 00994: CMD.Parameters.Add(PRM(11)) 00995: PRM(12) = New SqlParameter(ParmName12, ParmValue12) 00996: CMD.Parameters.Add(PRM(12)) 00997: PRM(13) = New SqlParameter(ParmName13, ParmValue13) 00998: CMD.Parameters.Add(PRM(13)) 00999: PRM(14) = New SqlParameter(ParmName14, ParmValue14) 01000: CMD.Parameters.Add(PRM(14)) 01001: PRM(15) = New SqlParameter(ParmName15, ParmValue15) 01002: CMD.Parameters.Add(PRM(15)) 01003: PRM(16) = New SqlParameter(ParmName16, ParmValue16) 01004: CMD.Parameters.Add(PRM(16)) 01005: PRM(17) = New SqlParameter(ParmName17, ParmValue17) 01006: CMD.Parameters.Add(PRM(17)) 01007: PRM(18) = New SqlParameter(ParmName18, ParmValue18) 01008: CMD.Parameters.Add(PRM(18)) 01009: PRM(19) = New SqlParameter(ParmName19, ParmValue19) 01010: CMD.Parameters.Add(PRM(19)) 01011: PRM(20) = New SqlParameter(ParmName20, ParmValue20) 01012: CMD.Parameters.Add(PRM(20)) 01013: PRM(21) = New SqlParameter(ParmName21, ParmValue21) 01014: CMD.Parameters.Add(PRM(21)) 01015: PRM(22) = New SqlParameter(ParmName22, ParmValue22) 01016: CMD.Parameters.Add(PRM(22)) 01017: PRM(23) = New SqlParameter(ParmName23, ParmValue23) 01018: CMD.Parameters.Add(PRM(23)) 01019: PRM(24) = New SqlParameter(ParmName24, ParmValue24) 01020: CMD.Parameters.Add(PRM(24)) 01021: PRM(25) = New SqlParameter(ParmName25, ParmValue25) 01022: CMD.Parameters.Add(PRM(25)) 01023: PRM(26) = New SqlParameter(ParmName26, ParmValue26) 01024: CMD.Parameters.Add(PRM(26)) 01025: PRM(27) = New SqlParameter(ParmName27, ParmValue27) 01026: CMD.Parameters.Add(PRM(27)) 01027: End Sub 01028: 01029: Public Sub New(ByVal ParmName0 As String, ByVal ParmValue0 As Object, ByVal ParmName1 As String, ByVal ParmValue1 As Object, ByVal ParmName2 As String, ByVal ParmValue2 As Object, ByVal ParmName3 As String, ByVal ParmValue3 As Object, ByVal ParmName4 As String, ByVal ParmValue4 As Object, ByVal ParmName5 As String, ByVal ParmValue5 As Object, ByVal ParmName6 As String, ByVal ParmValue6 As Object, ByVal ParmName7 As String, ByVal ParmValue7 As Object, ByVal ParmName8 As String, ByVal ParmValue8 As Object, ByVal ParmName9 As String, ByVal ParmValue9 As Object, ByVal ParmName10 As String, ByVal ParmValue10 As Object, ByVal ParmName11 As String, ByVal ParmValue11 As Object, ByVal ParmName12 As String, ByVal ParmValue12 As Object, ByVal ParmName13 As String, ByVal ParmValue13 As Object, ByVal ParmName14 As String, ByVal ParmValue14 As Object, ByVal ParmName15 As String, ByVal ParmValue15 As Object, ByVal ParmName16 As String, ByVal ParmValue16 As Object, ByVal ParmName17 As String, ByVal ParmValue17 As Object, ByVal ParmName18 As String, ByVal ParmValue18 As Object, ByVal ParmName19 As String, ByVal ParmValue19 As Object, ByVal ParmName20 As String, ByVal ParmValue20 As Object, ByVal ParmName21 As String, ByVal ParmValue21 As Object, ByVal ParmName22 As String, ByVal ParmValue22 As Object, ByVal ParmName23 As String, ByVal ParmValue23 As Object, ByVal ParmName24 As String, ByVal ParmValue24 As Object, ByVal ParmName25 As String, ByVal ParmValue25 As Object, ByVal ParmName26 As String, ByVal ParmValue26 As Object, ByVal ParmName27 As String, ByVal ParmValue27 As Object, ByVal ParmName28 As String, ByVal ParmValue28 As Object) 01030: PRM(0) = New SqlParameter(ParmName0, ParmValue0) 01031: CMD.Parameters.Add(PRM(0)) 01032: PRM(1) = New SqlParameter(ParmName1, ParmValue1) 01033: CMD.Parameters.Add(PRM(1)) 01034: PRM(2) = New SqlParameter(ParmName2, ParmValue2) 01035: CMD.Parameters.Add(PRM(2)) 01036: PRM(3) = New SqlParameter(ParmName3, ParmValue3) 01037: CMD.Parameters.Add(PRM(3)) 01038: PRM(4) = New SqlParameter(ParmName4, ParmValue4) 01039: CMD.Parameters.Add(PRM(4)) 01040: PRM(5) = New SqlParameter(ParmName5, ParmValue5) 01041: CMD.Parameters.Add(PRM(5)) 01042: PRM(6) = New SqlParameter(ParmName6, ParmValue6) 01043: CMD.Parameters.Add(PRM(6)) 01044: PRM(7) = New SqlParameter(ParmName7, ParmValue7) 01045: CMD.Parameters.Add(PRM(7)) 01046: PRM(8) = New SqlParameter(ParmName8, ParmValue8) 01047: CMD.Parameters.Add(PRM(8)) 01048: PRM(9) = New SqlParameter(ParmName9, ParmValue9) 01049: CMD.Parameters.Add(PRM(9)) 01050: PRM(10) = New SqlParameter(ParmName10, ParmValue10) 01051: CMD.Parameters.Add(PRM(10)) 01052: PRM(11) = New SqlParameter(ParmName11, ParmValue11) 01053: CMD.Parameters.Add(PRM(11)) 01054: PRM(12) = New SqlParameter(ParmName12, ParmValue12) 01055: CMD.Parameters.Add(PRM(12)) 01056: PRM(13) = New SqlParameter(ParmName13, ParmValue13) 01057: CMD.Parameters.Add(PRM(13)) 01058: PRM(14) = New SqlParameter(ParmName14, ParmValue14) 01059: CMD.Parameters.Add(PRM(14)) 01060: PRM(15) = New SqlParameter(ParmName15, ParmValue15) 01061: CMD.Parameters.Add(PRM(15)) 01062: PRM(16) = New SqlParameter(ParmName16, ParmValue16) 01063: CMD.Parameters.Add(PRM(16)) 01064: PRM(17) = New SqlParameter(ParmName17, ParmValue17) 01065: CMD.Parameters.Add(PRM(17)) 01066: PRM(18) = New SqlParameter(ParmName18, ParmValue18) 01067: CMD.Parameters.Add(PRM(18)) 01068: PRM(19) = New SqlParameter(ParmName19, ParmValue19) 01069: CMD.Parameters.Add(PRM(19)) 01070: PRM(20) = New SqlParameter(ParmName20, ParmValue20) 01071: CMD.Parameters.Add(PRM(20)) 01072: PRM(21) = New SqlParameter(ParmName21, ParmValue21) 01073: CMD.Parameters.Add(PRM(21)) 01074: PRM(22) = New SqlParameter(ParmName22, ParmValue22) 01075: CMD.Parameters.Add(PRM(22)) 01076: PRM(23) = New SqlParameter(ParmName23, ParmValue23) 01077: CMD.Parameters.Add(PRM(23)) 01078: PRM(24) = New SqlParameter(ParmName24, ParmValue24) 01079: CMD.Parameters.Add(PRM(24)) 01080: PRM(25) = New SqlParameter(ParmName25, ParmValue25) 01081: CMD.Parameters.Add(PRM(25)) 01082: PRM(26) = New SqlParameter(ParmName26, ParmValue26) 01083: CMD.Parameters.Add(PRM(26)) 01084: PRM(27) = New SqlParameter(ParmName27, ParmValue27) 01085: CMD.Parameters.Add(PRM(27)) 01086: PRM(28) = New SqlParameter(ParmName28, ParmValue28) 01087: CMD.Parameters.Add(PRM(28)) 01088: End Sub 01089: 01090: Public Sub New(ByVal ParmName0 As String, ByVal ParmValue0 As Object, ByVal ParmName1 As String, ByVal ParmValue1 As Object, ByVal ParmName2 As String, ByVal ParmValue2 As Object, ByVal ParmName3 As String, ByVal ParmValue3 As Object, ByVal ParmName4 As String, ByVal ParmValue4 As Object, ByVal ParmName5 As String, ByVal ParmValue5 As Object, ByVal ParmName6 As String, ByVal ParmValue6 As Object, ByVal ParmName7 As String, ByVal ParmValue7 As Object, ByVal ParmName8 As String, ByVal ParmValue8 As Object, ByVal ParmName9 As String, ByVal ParmValue9 As Object, ByVal ParmName10 As String, ByVal ParmValue10 As Object, ByVal ParmName11 As String, ByVal ParmValue11 As Object, ByVal ParmName12 As String, ByVal ParmValue12 As Object, ByVal ParmName13 As String, ByVal ParmValue13 As Object, ByVal ParmName14 As String, ByVal ParmValue14 As Object, ByVal ParmName15 As String, ByVal ParmValue15 As Object, ByVal ParmName16 As String, ByVal ParmValue16 As Object, ByVal ParmName17 As String, ByVal ParmValue17 As Object, ByVal ParmName18 As String, ByVal ParmValue18 As Object, ByVal ParmName19 As String, ByVal ParmValue19 As Object, ByVal ParmName20 As String, ByVal ParmValue20 As Object, ByVal ParmName21 As String, ByVal ParmValue21 As Object, ByVal ParmName22 As String, ByVal ParmValue22 As Object, ByVal ParmName23 As String, ByVal ParmValue23 As Object, ByVal ParmName24 As String, ByVal ParmValue24 As Object, ByVal ParmName25 As String, ByVal ParmValue25 As Object, ByVal ParmName26 As String, ByVal ParmValue26 As Object, ByVal ParmName27 As String, ByVal ParmValue27 As Object, ByVal ParmName28 As String, ByVal ParmValue28 As Object, ByVal ParmName29 As String, ByVal ParmValue29 As Object) 01091: PRM(0) = New SqlParameter(ParmName0, ParmValue0) 01092: CMD.Parameters.Add(PRM(0)) 01093: PRM(1) = New SqlParameter(ParmName1, ParmValue1) 01094: CMD.Parameters.Add(PRM(1)) 01095: PRM(2) = New SqlParameter(ParmName2, ParmValue2) 01096: CMD.Parameters.Add(PRM(2)) 01097: PRM(3) = New SqlParameter(ParmName3, ParmValue3) 01098: CMD.Parameters.Add(PRM(3)) 01099: PRM(4) = New SqlParameter(ParmName4, ParmValue4) 01100: CMD.Parameters.Add(PRM(4)) 01101: PRM(5) = New SqlParameter(ParmName5, ParmValue5) 01102: CMD.Parameters.Add(PRM(5)) 01103: PRM(6) = New SqlParameter(ParmName6, ParmValue6) 01104: CMD.Parameters.Add(PRM(6)) 01105: PRM(7) = New SqlParameter(ParmName7, ParmValue7) 01106: CMD.Parameters.Add(PRM(7)) 01107: PRM(8) = New SqlParameter(ParmName8, ParmValue8) 01108: CMD.Parameters.Add(PRM(8)) 01109: PRM(9) = New SqlParameter(ParmName9, ParmValue9) 01110: CMD.Parameters.Add(PRM(9)) 01111: PRM(10) = New SqlParameter(ParmName10, ParmValue10) 01112: CMD.Parameters.Add(PRM(10)) 01113: PRM(11) = New SqlParameter(ParmName11, ParmValue11) 01114: CMD.Parameters.Add(PRM(11)) 01115: PRM(12) = New SqlParameter(ParmName12, ParmValue12) 01116: CMD.Parameters.Add(PRM(12)) 01117: PRM(13) = New SqlParameter(ParmName13, ParmValue13) 01118: CMD.Parameters.Add(PRM(13)) 01119: PRM(14) = New SqlParameter(ParmName14, ParmValue14) 01120: CMD.Parameters.Add(PRM(14)) 01121: PRM(15) = New SqlParameter(ParmName15, ParmValue15) 01122: CMD.Parameters.Add(PRM(15)) 01123: PRM(16) = New SqlParameter(ParmName16, ParmValue16) 01124: CMD.Parameters.Add(PRM(16)) 01125: PRM(17) = New SqlParameter(ParmName17, ParmValue17) 01126: CMD.Parameters.Add(PRM(17)) 01127: PRM(18) = New SqlParameter(ParmName18, ParmValue18) 01128: CMD.Parameters.Add(PRM(18)) 01129: PRM(19) = New SqlParameter(ParmName19, ParmValue19) 01130: CMD.Parameters.Add(PRM(19)) 01131: PRM(20) = New SqlParameter(ParmName20, ParmValue20) 01132: CMD.Parameters.Add(PRM(20)) 01133: PRM(21) = New SqlParameter(ParmName21, ParmValue21) 01134: CMD.Parameters.Add(PRM(21)) 01135: PRM(22) = New SqlParameter(ParmName22, ParmValue22) 01136: CMD.Parameters.Add(PRM(22)) 01137: PRM(23) = New SqlParameter(ParmName23, ParmValue23) 01138: CMD.Parameters.Add(PRM(23)) 01139: PRM(24) = New SqlParameter(ParmName24, ParmValue24) 01140: CMD.Parameters.Add(PRM(24)) 01141: PRM(25) = New SqlParameter(ParmName25, ParmValue25) 01142: CMD.Parameters.Add(PRM(25)) 01143: PRM(26) = New SqlParameter(ParmName26, ParmValue26) 01144: CMD.Parameters.Add(PRM(26)) 01145: PRM(27) = New SqlParameter(ParmName27, ParmValue27) 01146: CMD.Parameters.Add(PRM(27)) 01147: PRM(28) = New SqlParameter(ParmName28, ParmValue28) 01148: CMD.Parameters.Add(PRM(28)) 01149: PRM(29) = New SqlParameter(ParmName29, ParmValue29) 01150: CMD.Parameters.Add(PRM(29)) 01151: End Sub 01152: End Class
Поскольку моя вышележащая функция подвергалась критике, якобы она не является СОВЕРШЕННЫМ КОДОМ, на который надо затаив дыхание - смотреть и учиться, я выкладываю вариант с другим построением конструкторов ниже, который выглядит лучше, но тестировать производительность которого мне просто лень, ибо я вижу сгенерированный IL-код и на глаз могу сказать что создание тридцати вложенных вызовов займет раз в тысячу больше времени чем мой вышележащий прямолинейный код.
Одновременно для всяких начинающих, которые прослушали лекции про типы данных ParamArray - разъясняю, что типы данных идут вперемешку - строка/обьект - пример вызова с формы выложен выше. И ParamArray здесь приведет к необходимости преобразования строки в обьект. Что во-первых неэффективно и ненужно, а во вторых отключит проверку типа параметра и легко можно будет пропустить название параметра и указать вместо него собственно значение параметра. При этом даже никакого сообщения на этапе компиляции не будет. Про неудобство ParamArray в виде внешнего интерфейса я еще писал тут.
Делать вариант этой функции так - сначала 30 параметров строчных, а потом 30 параметров с обьектами - смысла не имеет вообще, ибо установить соответствие между ними будет просто невозможно, к тому же эта функция у меня применена уже в десятке проектов и менять ее СОВЕРШЕННЫЙ интерфейс у меня нет никакого желания.
И наконец, при отсутствии такого полиморфного конструктора, принимающего от нуля до 30 параметров - эта функция и вовсе утрачивает смысл. Ибо тридцать строк на форме для одного обращения в базу? Это может показаться приемлимым только тем, кто вообще никогда не занимался программированием.
00132: Public Sub New() 00133: End Sub 00134: 00135: Public Sub New(ByVal ParmName0 As String, ByVal ParmValue0 As Object) 00136: PRM(0) = New SqlParameter(ParmName0, ParmValue0) 00137: CMD.Parameters.Add(PRM(0)) 00138: End Sub 00139: 00140: Public Sub New(ByVal ParmName0 As String, ByVal ParmValue0 As Object, ByVal ParmName1 As String, ByVal ParmValue1 As Object) 00141: Call Me.New(ParmName0, ParmValue0) 00142: PRM(1) = New SqlParameter(ParmName1, ParmValue1) 00143: CMD.Parameters.Add(PRM(1)) 00144: End Sub 00145: 00146: Public Sub New(ByVal ParmName0 As String, ByVal ParmValue0 As Object, ByVal ParmName1 As String, ByVal ParmValue1 As Object, ByVal ParmName2 As String, ByVal ParmValue2 As Object) 00147: Call Me.New(ParmName0, ParmValue0, ParmName1, ParmValue1) 00148: PRM(2) = New SqlParameter(ParmName2, ParmValue2) 00149: CMD.Parameters.Add(PRM(2)) 00150: End Sub 00151: 00152: Public Sub New(ByVal ParmName0 As String, ByVal ParmValue0 As Object, ByVal ParmName1 As String, ByVal ParmValue1 As Object, ByVal ParmName2 As String, ByVal ParmValue2 As Object, ByVal ParmName3 As String, ByVal ParmValue3 As Object) 00153: Call Me.New(ParmName0, ParmValue0, ParmName1, ParmValue1, ParmName2, ParmValue2) 00154: PRM(3) = New SqlParameter(ParmName3, ParmValue3) 00155: CMD.Parameters.Add(PRM(3)) 00156: End Sub 00157: 00158: Public Sub New(ByVal ParmName0 As String, ByVal ParmValue0 As Object, ByVal ParmName1 As String, ByVal ParmValue1 As Object, ByVal ParmName2 As String, ByVal ParmValue2 As Object, ByVal ParmName3 As String, ByVal ParmValue3 As Object, ByVal ParmName4 As String, ByVal ParmValue4 As Object) 00159: Call Me.New(ParmName0, ParmValue0, ParmName1, ParmValue1, ParmName2, ParmValue2, ParmName3, ParmValue3) 00160: PRM(4) = New SqlParameter(ParmName4, ParmValue4) 00161: CMD.Parameters.Add(PRM(4)) 00162: End Sub 00163: 00164: Public Sub New(ByVal ParmName0 As String, ByVal ParmValue0 As Object, ByVal ParmName1 As String, ByVal ParmValue1 As Object, ByVal ParmName2 As String, ByVal ParmValue2 As Object, ByVal ParmName3 As String, ByVal ParmValue3 As Object, ByVal ParmName4 As String, ByVal ParmValue4 As Object, ByVal ParmName5 As String, ByVal ParmValue5 As Object) 00165: Call Me.New(ParmName0, ParmValue0, ParmName1, ParmValue1, ParmName2, ParmValue2, ParmName3, ParmValue3, ParmName4, ParmValue4) 00166: PRM(5) = New SqlParameter(ParmName5, ParmValue5) 00167: CMD.Parameters.Add(PRM(5)) 00168: End Sub 00169: 00170: Public Sub New(ByVal ParmName0 As String, ByVal ParmValue0 As Object, ByVal ParmName1 As String, ByVal ParmValue1 As Object, ByVal ParmName2 As String, ByVal ParmValue2 As Object, ByVal ParmName3 As String, ByVal ParmValue3 As Object, ByVal ParmName4 As String, ByVal ParmValue4 As Object, ByVal ParmName5 As String, ByVal ParmValue5 As Object, ByVal ParmName6 As String, ByVal ParmValue6 As Object) 00171: Call Me.New(ParmName0, ParmValue0, ParmName1, ParmValue1, ParmName2, ParmValue2, ParmName3, ParmValue3, ParmName4, ParmValue4, ParmName5, ParmValue5) 00172: PRM(6) = New SqlParameter(ParmName6, ParmValue6) 00173: CMD.Parameters.Add(PRM(6)) 00174: End Sub 00175: 00176: Public Sub New(ByVal ParmName0 As String, ByVal ParmValue0 As Object, ByVal ParmName1 As String, ByVal ParmValue1 As Object, ByVal ParmName2 As String, ByVal ParmValue2 As Object, ByVal ParmName3 As String, ByVal ParmValue3 As Object, ByVal ParmName4 As String, ByVal ParmValue4 As Object, ByVal ParmName5 As String, ByVal ParmValue5 As Object, ByVal ParmName6 As String, ByVal ParmValue6 As Object, ByVal ParmName7 As String, ByVal ParmValue7 As Object) 00177: Call Me.New(ParmName0, ParmValue0, ParmName1, ParmValue1, ParmName2, ParmValue2, ParmName3, ParmValue3, ParmName4, ParmValue4, ParmName5, ParmValue5, ParmName6, ParmValue6) 00178: PRM(7) = New SqlParameter(ParmName7, ParmValue7) 00179: CMD.Parameters.Add(PRM(7)) 00180: End Sub 00181: 00182: Public Sub New(ByVal ParmName0 As String, ByVal ParmValue0 As Object, ByVal ParmName1 As String, ByVal ParmValue1 As Object, ByVal ParmName2 As String, ByVal ParmValue2 As Object, ByVal ParmName3 As String, ByVal ParmValue3 As Object, ByVal ParmName4 As String, ByVal ParmValue4 As Object, ByVal ParmName5 As String, ByVal ParmValue5 As Object, ByVal ParmName6 As String, ByVal ParmValue6 As Object, ByVal ParmName7 As String, ByVal ParmValue7 As Object, ByVal ParmName8 As String, ByVal ParmValue8 As Object) 00183: Call Me.New(ParmName0, ParmValue0, ParmName1, ParmValue1, ParmName2, ParmValue2, ParmName3, ParmValue3, ParmName4, ParmValue4, ParmName5, ParmValue5, ParmName6, ParmValue6, ParmName7, ParmValue7) 00184: PRM(8) = New SqlParameter(ParmName8, ParmValue8) 00185: CMD.Parameters.Add(PRM(8)) 00186: End Sub 00187: 00188: Public Sub New(ByVal ParmName0 As String, ByVal ParmValue0 As Object, ByVal ParmName1 As String, ByVal ParmValue1 As Object, ByVal ParmName2 As String, ByVal ParmValue2 As Object, ByVal ParmName3 As String, ByVal ParmValue3 As Object, ByVal ParmName4 As String, ByVal ParmValue4 As Object, ByVal ParmName5 As String, ByVal ParmValue5 As Object, ByVal ParmName6 As String, ByVal ParmValue6 As Object, ByVal ParmName7 As String, ByVal ParmValue7 As Object, ByVal ParmName8 As String, ByVal ParmValue8 As Object, ByVal ParmName9 As String, ByVal ParmValue9 As Object) 00189: Call Me.New(ParmName0, ParmValue0, ParmName1, ParmValue1, ParmName2, ParmValue2, ParmName3, ParmValue3, ParmName4, ParmValue4, ParmName5, ParmValue5, ParmName6, ParmValue6, ParmName7, ParmValue7, ParmName8, ParmValue8) 00190: PRM(9) = New SqlParameter(ParmName9, ParmValue9) 00191: CMD.Parameters.Add(PRM(9)) 00192: End Sub 00193: 00194: Public Sub New(ByVal ParmName0 As String, ByVal ParmValue0 As Object, ByVal ParmName1 As String, ByVal ParmValue1 As Object, ByVal ParmName2 As String, ByVal ParmValue2 As Object, ByVal ParmName3 As String, ByVal ParmValue3 As Object, ByVal ParmName4 As String, ByVal ParmValue4 As Object, ByVal ParmName5 As String, ByVal ParmValue5 As Object, ByVal ParmName6 As String, ByVal ParmValue6 As Object, ByVal ParmName7 As String, ByVal ParmValue7 As Object, ByVal ParmName8 As String, ByVal ParmValue8 As Object, ByVal ParmName9 As String, ByVal ParmValue9 As Object, ByVal ParmName10 As String, ByVal ParmValue10 As Object) 00195: Call Me.New(ParmName0, ParmValue0, ParmName1, ParmValue1, ParmName2, ParmValue2, ParmName3, ParmValue3, ParmName4, ParmValue4, ParmName5, ParmValue5, ParmName6, ParmValue6, ParmName7, ParmValue7, ParmName8, ParmValue8, ParmName9, ParmValue9) 00196: PRM(10) = New SqlParameter(ParmName10, ParmValue10) 00197: CMD.Parameters.Add(PRM(10)) 00198: End Sub 00199: 00200: Public Sub New(ByVal ParmName0 As String, ByVal ParmValue0 As Object, ByVal ParmName1 As String, ByVal ParmValue1 As Object, ByVal ParmName2 As String, ByVal ParmValue2 As Object, ByVal ParmName3 As String, ByVal ParmValue3 As Object, ByVal ParmName4 As String, ByVal ParmValue4 As Object, ByVal ParmName5 As String, ByVal ParmValue5 As Object, ByVal ParmName6 As String, ByVal ParmValue6 As Object, ByVal ParmName7 As String, ByVal ParmValue7 As Object, ByVal ParmName8 As String, ByVal ParmValue8 As Object, ByVal ParmName9 As String, ByVal ParmValue9 As Object, ByVal ParmName10 As String, ByVal ParmValue10 As Object, ByVal ParmName11 As String, ByVal ParmValue11 As Object) 00201: Call Me.New(ParmName0, ParmValue0, ParmName1, ParmValue1, ParmName2, ParmValue2, ParmName3, ParmValue3, ParmName4, ParmValue4, ParmName5, ParmValue5, ParmName6, ParmValue6, ParmName7, ParmValue7, ParmName8, ParmValue8, ParmName9, ParmValue9, ParmName10, ParmValue10) 00202: PRM(11) = New SqlParameter(ParmName11, ParmValue11) 00203: CMD.Parameters.Add(PRM(11)) 00204: End Sub 00205: 00206: Public Sub New(ByVal ParmName0 As String, ByVal ParmValue0 As Object, ByVal ParmName1 As String, ByVal ParmValue1 As Object, ByVal ParmName2 As String, ByVal ParmValue2 As Object, ByVal ParmName3 As String, ByVal ParmValue3 As Object, ByVal ParmName4 As String, ByVal ParmValue4 As Object, ByVal ParmName5 As String, ByVal ParmValue5 As Object, ByVal ParmName6 As String, ByVal ParmValue6 As Object, ByVal ParmName7 As String, ByVal ParmValue7 As Object, ByVal ParmName8 As String, ByVal ParmValue8 As Object, ByVal ParmName9 As String, ByVal ParmValue9 As Object, ByVal ParmName10 As String, ByVal ParmValue10 As Object, ByVal ParmName11 As String, ByVal ParmValue11 As Object, ByVal ParmName12 As String, ByVal ParmValue12 As Object) 00207: Call Me.New(ParmName0, ParmValue0, ParmName1, ParmValue1, ParmName2, ParmValue2, ParmName3, ParmValue3, ParmName4, ParmValue4, ParmName5, ParmValue5, ParmName6, ParmValue6, ParmName7, ParmValue7, ParmName8, ParmValue8, ParmName9, ParmValue9, ParmName10, ParmValue10, ParmName11, ParmValue11) 00208: PRM(12) = New SqlParameter(ParmName12, ParmValue12) 00209: CMD.Parameters.Add(PRM(12)) 00210: End Sub 00211: 00212: Public Sub New(ByVal ParmName0 As String, ByVal ParmValue0 As Object, ByVal ParmName1 As String, ByVal ParmValue1 As Object, ByVal ParmName2 As String, ByVal ParmValue2 As Object, ByVal ParmName3 As String, ByVal ParmValue3 As Object, ByVal ParmName4 As String, ByVal ParmValue4 As Object, ByVal ParmName5 As String, ByVal ParmValue5 As Object, ByVal ParmName6 As String, ByVal ParmValue6 As Object, ByVal ParmName7 As String, ByVal ParmValue7 As Object, ByVal ParmName8 As String, ByVal ParmValue8 As Object, ByVal ParmName9 As String, ByVal ParmValue9 As Object, ByVal ParmName10 As String, ByVal ParmValue10 As Object, ByVal ParmName11 As String, ByVal ParmValue11 As Object, ByVal ParmName12 As String, ByVal ParmValue12 As Object, ByVal ParmName13 As String, ByVal ParmValue13 As Object) 00213: Call Me.New(ParmName0, ParmValue0, ParmName1, ParmValue1, ParmName2, ParmValue2, ParmName3, ParmValue3, ParmName4, ParmValue4, ParmName5, ParmValue5, ParmName6, ParmValue6, ParmName7, ParmValue7, ParmName8, ParmValue8, ParmName9, ParmValue9, ParmName10, ParmValue10, ParmName11, ParmValue11, ParmName12, ParmValue12) 00214: PRM(13) = New SqlParameter(ParmName13, ParmValue13) 00215: CMD.Parameters.Add(PRM(13)) 00216: End Sub 00217: 00218: Public Sub New(ByVal ParmName0 As String, ByVal ParmValue0 As Object, ByVal ParmName1 As String, ByVal ParmValue1 As Object, ByVal ParmName2 As String, ByVal ParmValue2 As Object, ByVal ParmName3 As String, ByVal ParmValue3 As Object, ByVal ParmName4 As String, ByVal ParmValue4 As Object, ByVal ParmName5 As String, ByVal ParmValue5 As Object, ByVal ParmName6 As String, ByVal ParmValue6 As Object, ByVal ParmName7 As String, ByVal ParmValue7 As Object, ByVal ParmName8 As String, ByVal ParmValue8 As Object, ByVal ParmName9 As String, ByVal ParmValue9 As Object, ByVal ParmName10 As String, ByVal ParmValue10 As Object, ByVal ParmName11 As String, ByVal ParmValue11 As Object, ByVal ParmName12 As String, ByVal ParmValue12 As Object, ByVal ParmName13 As String, ByVal ParmValue13 As Object, ByVal ParmName14 As String, ByVal ParmValue14 As Object) 00219: Call Me.New(ParmName0, ParmValue0, ParmName1, ParmValue1, ParmName2, ParmValue2, ParmName3, ParmValue3, ParmName4, ParmValue4, ParmName5, ParmValue5, ParmName6, ParmValue6, ParmName7, ParmValue7, ParmName8, ParmValue8, ParmName9, ParmValue9, ParmName10, ParmValue10, ParmName11, ParmValue11, ParmName12, ParmValue12, ParmName13, ParmValue13) 00220: PRM(14) = New SqlParameter(ParmName14, ParmValue14) 00221: CMD.Parameters.Add(PRM(14)) 00222: End Sub 00223: 00224: Public Sub New(ByVal ParmName0 As String, ByVal ParmValue0 As Object, ByVal ParmName1 As String, ByVal ParmValue1 As Object, ByVal ParmName2 As String, ByVal ParmValue2 As Object, ByVal ParmName3 As String, ByVal ParmValue3 As Object, ByVal ParmName4 As String, ByVal ParmValue4 As Object, ByVal ParmName5 As String, ByVal ParmValue5 As Object, ByVal ParmName6 As String, ByVal ParmValue6 As Object, ByVal ParmName7 As String, ByVal ParmValue7 As Object, ByVal ParmName8 As String, ByVal ParmValue8 As Object, ByVal ParmName9 As String, ByVal ParmValue9 As Object, ByVal ParmName10 As String, ByVal ParmValue10 As Object, ByVal ParmName11 As String, ByVal ParmValue11 As Object, ByVal ParmName12 As String, ByVal ParmValue12 As Object, ByVal ParmName13 As String, ByVal ParmValue13 As Object, ByVal ParmName14 As String, ByVal ParmValue14 As Object, ByVal ParmName15 As String, ByVal ParmValue15 As Object) 00225: Call Me.New(ParmName0, ParmValue0, ParmName1, ParmValue1, ParmName2, ParmValue2, ParmName3, ParmValue3, ParmName4, ParmValue4, ParmName5, ParmValue5, ParmName6, ParmValue6, ParmName7, ParmValue7, ParmName8, ParmValue8, ParmName9, ParmValue9, ParmName10, ParmValue10, ParmName11, ParmValue11, ParmName12, ParmValue12, ParmName13, ParmValue13, ParmName14, ParmValue14) 00226: PRM(15) = New SqlParameter(ParmName15, ParmValue15) 00227: CMD.Parameters.Add(PRM(15)) 00228: End Sub 00229: 00230: Public Sub New(ByVal ParmName0 As String, ByVal ParmValue0 As Object, ByVal ParmName1 As String, ByVal ParmValue1 As Object, ByVal ParmName2 As String, ByVal ParmValue2 As Object, ByVal ParmName3 As String, ByVal ParmValue3 As Object, ByVal ParmName4 As String, ByVal ParmValue4 As Object, ByVal ParmName5 As String, ByVal ParmValue5 As Object, ByVal ParmName6 As String, ByVal ParmValue6 As Object, ByVal ParmName7 As String, ByVal ParmValue7 As Object, ByVal ParmName8 As String, ByVal ParmValue8 As Object, ByVal ParmName9 As String, ByVal ParmValue9 As Object, ByVal ParmName10 As String, ByVal ParmValue10 As Object, ByVal ParmName11 As String, ByVal ParmValue11 As Object, ByVal ParmName12 As String, ByVal ParmValue12 As Object, ByVal ParmName13 As String, ByVal ParmValue13 As Object, ByVal ParmName14 As String, ByVal ParmValue14 As Object, ByVal ParmName15 As String, ByVal ParmValue15 As Object, ByVal ParmName16 As String, ByVal ParmValue16 As Object) 00231: Call Me.New(ParmName0, ParmValue0, ParmName1, ParmValue1, ParmName2, ParmValue2, ParmName3, ParmValue3, ParmName4, ParmValue4, ParmName5, ParmValue5, ParmName6, ParmValue6, ParmName7, ParmValue7, ParmName8, ParmValue8, ParmName9, ParmValue9, ParmName10, ParmValue10, ParmName11, ParmValue11, ParmName12, ParmValue12, ParmName13, ParmValue13, ParmName14, ParmValue14, ParmName15, ParmValue15) 00232: PRM(16) = New SqlParameter(ParmName16, ParmValue16) 00233: CMD.Parameters.Add(PRM(16)) 00234: End Sub 00235: 00236: Public Sub New(ByVal ParmName0 As String, ByVal ParmValue0 As Object, ByVal ParmName1 As String, ByVal ParmValue1 As Object, ByVal ParmName2 As String, ByVal ParmValue2 As Object, ByVal ParmName3 As String, ByVal ParmValue3 As Object, ByVal ParmName4 As String, ByVal ParmValue4 As Object, ByVal ParmName5 As String, ByVal ParmValue5 As Object, ByVal ParmName6 As String, ByVal ParmValue6 As Object, ByVal ParmName7 As String, ByVal ParmValue7 As Object, ByVal ParmName8 As String, ByVal ParmValue8 As Object, ByVal ParmName9 As String, ByVal ParmValue9 As Object, ByVal ParmName10 As String, ByVal ParmValue10 As Object, ByVal ParmName11 As String, ByVal ParmValue11 As Object, ByVal ParmName12 As String, ByVal ParmValue12 As Object, ByVal ParmName13 As String, ByVal ParmValue13 As Object, ByVal ParmName14 As String, ByVal ParmValue14 As Object, ByVal ParmName15 As String, ByVal ParmValue15 As Object, ByVal ParmName16 As String, ByVal ParmValue16 As Object, ByVal ParmName17 As String, ByVal ParmValue17 As Object) 00237: Call Me.New(ParmName0, ParmValue0, ParmName1, ParmValue1, ParmName2, ParmValue2, ParmName3, ParmValue3, ParmName4, ParmValue4, ParmName5, ParmValue5, ParmName6, ParmValue6, ParmName7, ParmValue7, ParmName8, ParmValue8, ParmName9, ParmValue9, ParmName10, ParmValue10, ParmName11, ParmValue11, ParmName12, ParmValue12, ParmName13, ParmValue13, ParmName14, ParmValue14, ParmName15, ParmValue15, ParmName16, ParmValue16) 00238: PRM(17) = New SqlParameter(ParmName17, ParmValue17) 00239: CMD.Parameters.Add(PRM(17)) 00240: End Sub 00241: 00242: Public Sub New(ByVal ParmName0 As String, ByVal ParmValue0 As Object, ByVal ParmName1 As String, ByVal ParmValue1 As Object, ByVal ParmName2 As String, ByVal ParmValue2 As Object, ByVal ParmName3 As String, ByVal ParmValue3 As Object, ByVal ParmName4 As String, ByVal ParmValue4 As Object, ByVal ParmName5 As String, ByVal ParmValue5 As Object, ByVal ParmName6 As String, ByVal ParmValue6 As Object, ByVal ParmName7 As String, ByVal ParmValue7 As Object, ByVal ParmName8 As String, ByVal ParmValue8 As Object, ByVal ParmName9 As String, ByVal ParmValue9 As Object, ByVal ParmName10 As String, ByVal ParmValue10 As Object, ByVal ParmName11 As String, ByVal ParmValue11 As Object, ByVal ParmName12 As String, ByVal ParmValue12 As Object, ByVal ParmName13 As String, ByVal ParmValue13 As Object, ByVal ParmName14 As String, ByVal ParmValue14 As Object, ByVal ParmName15 As String, ByVal ParmValue15 As Object, ByVal ParmName16 As String, ByVal ParmValue16 As Object, ByVal ParmName17 As String, ByVal ParmValue17 As Object, ByVal ParmName18 As String, ByVal ParmValue18 As Object) 00243: Call Me.New(ParmName0, ParmValue0, ParmName1, ParmValue1, ParmName2, ParmValue2, ParmName3, ParmValue3, ParmName4, ParmValue4, ParmName5, ParmValue5, ParmName6, ParmValue6, ParmName7, ParmValue7, ParmName8, ParmValue8, ParmName9, ParmValue9, ParmName10, ParmValue10, ParmName11, ParmValue11, ParmName12, ParmValue12, ParmName13, ParmValue13, ParmName14, ParmValue14, ParmName15, ParmValue15, ParmName16, ParmValue16, ParmName17, ParmValue17) 00244: PRM(18) = New SqlParameter(ParmName18, ParmValue18) 00245: CMD.Parameters.Add(PRM(18)) 00246: End Sub 00247: 00248: Public Sub New(ByVal ParmName0 As String, ByVal ParmValue0 As Object, ByVal ParmName1 As String, ByVal ParmValue1 As Object, ByVal ParmName2 As String, ByVal ParmValue2 As Object, ByVal ParmName3 As String, ByVal ParmValue3 As Object, ByVal ParmName4 As String, ByVal ParmValue4 As Object, ByVal ParmName5 As String, ByVal ParmValue5 As Object, ByVal ParmName6 As String, ByVal ParmValue6 As Object, ByVal ParmName7 As String, ByVal ParmValue7 As Object, ByVal ParmName8 As String, ByVal ParmValue8 As Object, ByVal ParmName9 As String, ByVal ParmValue9 As Object, ByVal ParmName10 As String, ByVal ParmValue10 As Object, ByVal ParmName11 As String, ByVal ParmValue11 As Object, ByVal ParmName12 As String, ByVal ParmValue12 As Object, ByVal ParmName13 As String, ByVal ParmValue13 As Object, ByVal ParmName14 As String, ByVal ParmValue14 As Object, ByVal ParmName15 As String, ByVal ParmValue15 As Object, ByVal ParmName16 As String, ByVal ParmValue16 As Object, ByVal ParmName17 As String, ByVal ParmValue17 As Object, ByVal ParmName18 As String, ByVal ParmValue18 As Object, ByVal ParmName19 As String, ByVal ParmValue19 As Object) 00249: Call Me.New(ParmName0, ParmValue0, ParmName1, ParmValue1, ParmName2, ParmValue2, ParmName3, ParmValue3, ParmName4, ParmValue4, ParmName5, ParmValue5, ParmName6, ParmValue6, ParmName7, ParmValue7, ParmName8, ParmValue8, ParmName9, ParmValue9, ParmName10, ParmValue10, ParmName11, ParmValue11, ParmName12, ParmValue12, ParmName13, ParmValue13, ParmName14, ParmValue14, ParmName15, ParmValue15, ParmName16, ParmValue16, ParmName17, ParmValue17, ParmName18, ParmValue18) 00250: PRM(19) = New SqlParameter(ParmName19, ParmValue19) 00251: CMD.Parameters.Add(PRM(19)) 00252: End Sub 00253: 00254: Public Sub New(ByVal ParmName0 As String, ByVal ParmValue0 As Object, ByVal ParmName1 As String, ByVal ParmValue1 As Object, ByVal ParmName2 As String, ByVal ParmValue2 As Object, ByVal ParmName3 As String, ByVal ParmValue3 As Object, ByVal ParmName4 As String, ByVal ParmValue4 As Object, ByVal ParmName5 As String, ByVal ParmValue5 As Object, ByVal ParmName6 As String, ByVal ParmValue6 As Object, ByVal ParmName7 As String, ByVal ParmValue7 As Object, ByVal ParmName8 As String, ByVal ParmValue8 As Object, ByVal ParmName9 As String, ByVal ParmValue9 As Object, ByVal ParmName10 As String, ByVal ParmValue10 As Object, ByVal ParmName11 As String, ByVal ParmValue11 As Object, ByVal ParmName12 As String, ByVal ParmValue12 As Object, ByVal ParmName13 As String, ByVal ParmValue13 As Object, ByVal ParmName14 As String, ByVal ParmValue14 As Object, ByVal ParmName15 As String, ByVal ParmValue15 As Object, ByVal ParmName16 As String, ByVal ParmValue16 As Object, ByVal ParmName17 As String, ByVal ParmValue17 As Object, ByVal ParmName18 As String, ByVal ParmValue18 As Object, ByVal ParmName19 As String, ByVal ParmValue19 As Object, ByVal ParmName20 As String, ByVal ParmValue20 As Object) 00255: Call Me.New(ParmName0, ParmValue0, ParmName1, ParmValue1, ParmName2, ParmValue2, ParmName3, ParmValue3, ParmName4, ParmValue4, ParmName5, ParmValue5, ParmName6, ParmValue6, ParmName7, ParmValue7, ParmName8, ParmValue8, ParmName9, ParmValue9, ParmName10, ParmValue10, ParmName11, ParmValue11, ParmName12, ParmValue12, ParmName13, ParmValue13, ParmName14, ParmValue14, ParmName15, ParmValue15, ParmName16, ParmValue16, ParmName17, ParmValue17, ParmName18, ParmValue18, ParmName19, ParmValue19) 00256: PRM(20) = New SqlParameter(ParmName20, ParmValue20) 00257: CMD.Parameters.Add(PRM(20)) 00258: End Sub 00259: 00260: Public Sub New(ByVal ParmName0 As String, ByVal ParmValue0 As Object, ByVal ParmName1 As String, ByVal ParmValue1 As Object, ByVal ParmName2 As String, ByVal ParmValue2 As Object, ByVal ParmName3 As String, ByVal ParmValue3 As Object, ByVal ParmName4 As String, ByVal ParmValue4 As Object, ByVal ParmName5 As String, ByVal ParmValue5 As Object, ByVal ParmName6 As String, ByVal ParmValue6 As Object, ByVal ParmName7 As String, ByVal ParmValue7 As Object, ByVal ParmName8 As String, ByVal ParmValue8 As Object, ByVal ParmName9 As String, ByVal ParmValue9 As Object, ByVal ParmName10 As String, ByVal ParmValue10 As Object, ByVal ParmName11 As String, ByVal ParmValue11 As Object, ByVal ParmName12 As String, ByVal ParmValue12 As Object, ByVal ParmName13 As String, ByVal ParmValue13 As Object, ByVal ParmName14 As String, ByVal ParmValue14 As Object, ByVal ParmName15 As String, ByVal ParmValue15 As Object, ByVal ParmName16 As String, ByVal ParmValue16 As Object, ByVal ParmName17 As String, ByVal ParmValue17 As Object, ByVal ParmName18 As String, ByVal ParmValue18 As Object, ByVal ParmName19 As String, ByVal ParmValue19 As Object, ByVal ParmName20 As String, ByVal ParmValue20 As Object, ByVal ParmName21 As String, ByVal ParmValue21 As Object) 00261: Call Me.New(ParmName0, ParmValue0, ParmName1, ParmValue1, ParmName2, ParmValue2, ParmName3, ParmValue3, ParmName4, ParmValue4, ParmName5, ParmValue5, ParmName6, ParmValue6, ParmName7, ParmValue7, ParmName8, ParmValue8, ParmName9, ParmValue9, ParmName10, ParmValue10, ParmName11, ParmValue11, ParmName12, ParmValue12, ParmName13, ParmValue13, ParmName14, ParmValue14, ParmName15, ParmValue15, ParmName16, ParmValue16, ParmName17, ParmValue17, ParmName18, ParmValue18, ParmName19, ParmValue19, ParmName20, ParmValue20) 00262: PRM(21) = New SqlParameter(ParmName21, ParmValue21) 00263: CMD.Parameters.Add(PRM(21)) 00264: End Sub 00265: 00266: Public Sub New(ByVal ParmName0 As String, ByVal ParmValue0 As Object, ByVal ParmName1 As String, ByVal ParmValue1 As Object, ByVal ParmName2 As String, ByVal ParmValue2 As Object, ByVal ParmName3 As String, ByVal ParmValue3 As Object, ByVal ParmName4 As String, ByVal ParmValue4 As Object, ByVal ParmName5 As String, ByVal ParmValue5 As Object, ByVal ParmName6 As String, ByVal ParmValue6 As Object, ByVal ParmName7 As String, ByVal ParmValue7 As Object, ByVal ParmName8 As String, ByVal ParmValue8 As Object, ByVal ParmName9 As String, ByVal ParmValue9 As Object, ByVal ParmName10 As String, ByVal ParmValue10 As Object, ByVal ParmName11 As String, ByVal ParmValue11 As Object, ByVal ParmName12 As String, ByVal ParmValue12 As Object, ByVal ParmName13 As String, ByVal ParmValue13 As Object, ByVal ParmName14 As String, ByVal ParmValue14 As Object, ByVal ParmName15 As String, ByVal ParmValue15 As Object, ByVal ParmName16 As String, ByVal ParmValue16 As Object, ByVal ParmName17 As String, ByVal ParmValue17 As Object, ByVal ParmName18 As String, ByVal ParmValue18 As Object, ByVal ParmName19 As String, ByVal ParmValue19 As Object, ByVal ParmName20 As String, ByVal ParmValue20 As Object, ByVal ParmName21 As String, ByVal ParmValue21 As Object, ByVal ParmName22 As String, ByVal ParmValue22 As Object) 00267: Call Me.New(ParmName0, ParmValue0, ParmName1, ParmValue1, ParmName2, ParmValue2, ParmName3, ParmValue3, ParmName4, ParmValue4, ParmName5, ParmValue5, ParmName6, ParmValue6, ParmName7, ParmValue7, ParmName8, ParmValue8, ParmName9, ParmValue9, ParmName10, ParmValue10, ParmName11, ParmValue11, ParmName12, ParmValue12, ParmName13, ParmValue13, ParmName14, ParmValue14, ParmName15, ParmValue15, ParmName16, ParmValue16, ParmName17, ParmValue17, ParmName18, ParmValue18, ParmName19, ParmValue19, ParmName20, ParmValue20, ParmName21, ParmValue21) 00268: PRM(22) = New SqlParameter(ParmName22, ParmValue22) 00269: CMD.Parameters.Add(PRM(22)) 00270: End Sub 00271: 00272: Public Sub New(ByVal ParmName0 As String, ByVal ParmValue0 As Object, ByVal ParmName1 As String, ByVal ParmValue1 As Object, ByVal ParmName2 As String, ByVal ParmValue2 As Object, ByVal ParmName3 As String, ByVal ParmValue3 As Object, ByVal ParmName4 As String, ByVal ParmValue4 As Object, ByVal ParmName5 As String, ByVal ParmValue5 As Object, ByVal ParmName6 As String, ByVal ParmValue6 As Object, ByVal ParmName7 As String, ByVal ParmValue7 As Object, ByVal ParmName8 As String, ByVal ParmValue8 As Object, ByVal ParmName9 As String, ByVal ParmValue9 As Object, ByVal ParmName10 As String, ByVal ParmValue10 As Object, ByVal ParmName11 As String, ByVal ParmValue11 As Object, ByVal ParmName12 As String, ByVal ParmValue12 As Object, ByVal ParmName13 As String, ByVal ParmValue13 As Object, ByVal ParmName14 As String, ByVal ParmValue14 As Object, ByVal ParmName15 As String, ByVal ParmValue15 As Object, ByVal ParmName16 As String, ByVal ParmValue16 As Object, ByVal ParmName17 As String, ByVal ParmValue17 As Object, ByVal ParmName18 As String, ByVal ParmValue18 As Object, ByVal ParmName19 As String, ByVal ParmValue19 As Object, ByVal ParmName20 As String, ByVal ParmValue20 As Object, ByVal ParmName21 As String, ByVal ParmValue21 As Object, ByVal ParmName22 As String, ByVal ParmValue22 As Object, ByVal ParmName23 As String, ByVal ParmValue23 As Object) 00273: Call Me.New(ParmName0, ParmValue0, ParmName1, ParmValue1, ParmName2, ParmValue2, ParmName3, ParmValue3, ParmName4, ParmValue4, ParmName5, ParmValue5, ParmName6, ParmValue6, ParmName7, ParmValue7, ParmName8, ParmValue8, ParmName9, ParmValue9, ParmName10, ParmValue10, ParmName11, ParmValue11, ParmName12, ParmValue12, ParmName13, ParmValue13, ParmName14, ParmValue14, ParmName15, ParmValue15, ParmName16, ParmValue16, ParmName17, ParmValue17, ParmName18, ParmValue18, ParmName19, ParmValue19, ParmName20, ParmValue20, ParmName21, ParmValue21, ParmName22, ParmValue22) 00274: PRM(23) = New SqlParameter(ParmName23, ParmValue23) 00275: CMD.Parameters.Add(PRM(23)) 00276: End Sub 00277: 00278: Public Sub New(ByVal ParmName0 As String, ByVal ParmValue0 As Object, ByVal ParmName1 As String, ByVal ParmValue1 As Object, ByVal ParmName2 As String, ByVal ParmValue2 As Object, ByVal ParmName3 As String, ByVal ParmValue3 As Object, ByVal ParmName4 As String, ByVal ParmValue4 As Object, ByVal ParmName5 As String, ByVal ParmValue5 As Object, ByVal ParmName6 As String, ByVal ParmValue6 As Object, ByVal ParmName7 As String, ByVal ParmValue7 As Object, ByVal ParmName8 As String, ByVal ParmValue8 As Object, ByVal ParmName9 As String, ByVal ParmValue9 As Object, ByVal ParmName10 As String, ByVal ParmValue10 As Object, ByVal ParmName11 As String, ByVal ParmValue11 As Object, ByVal ParmName12 As String, ByVal ParmValue12 As Object, ByVal ParmName13 As String, ByVal ParmValue13 As Object, ByVal ParmName14 As String, ByVal ParmValue14 As Object, ByVal ParmName15 As String, ByVal ParmValue15 As Object, ByVal ParmName16 As String, ByVal ParmValue16 As Object, ByVal ParmName17 As String, ByVal ParmValue17 As Object, ByVal ParmName18 As String, ByVal ParmValue18 As Object, ByVal ParmName19 As String, ByVal ParmValue19 As Object, ByVal ParmName20 As String, ByVal ParmValue20 As Object, ByVal ParmName21 As String, ByVal ParmValue21 As Object, ByVal ParmName22 As String, ByVal ParmValue22 As Object, ByVal ParmName23 As String, ByVal ParmValue23 As Object, ByVal ParmName24 As String, ByVal ParmValue24 As Object) 00279: Call Me.New(ParmName0, ParmValue0, ParmName1, ParmValue1, ParmName2, ParmValue2, ParmName3, ParmValue3, ParmName4, ParmValue4, ParmName5, ParmValue5, ParmName6, ParmValue6, ParmName7, ParmValue7, ParmName8, ParmValue8, ParmName9, ParmValue9, ParmName10, ParmValue10, ParmName11, ParmValue11, ParmName12, ParmValue12, ParmName13, ParmValue13, ParmName14, ParmValue14, ParmName15, ParmValue15, ParmName16, ParmValue16, ParmName17, ParmValue17, ParmName18, ParmValue18, ParmName19, ParmValue19, ParmName20, ParmValue20, ParmName21, ParmValue21, ParmName22, ParmValue22, ParmName23, ParmValue23) 00280: PRM(24) = New SqlParameter(ParmName24, ParmValue24) 00281: CMD.Parameters.Add(PRM(24)) 00282: End Sub 00283: 00284: Public Sub New(ByVal ParmName0 As String, ByVal ParmValue0 As Object, ByVal ParmName1 As String, ByVal ParmValue1 As Object, ByVal ParmName2 As String, ByVal ParmValue2 As Object, ByVal ParmName3 As String, ByVal ParmValue3 As Object, ByVal ParmName4 As String, ByVal ParmValue4 As Object, ByVal ParmName5 As String, ByVal ParmValue5 As Object, ByVal ParmName6 As String, ByVal ParmValue6 As Object, ByVal ParmName7 As String, ByVal ParmValue7 As Object, ByVal ParmName8 As String, ByVal ParmValue8 As Object, ByVal ParmName9 As String, ByVal ParmValue9 As Object, ByVal ParmName10 As String, ByVal ParmValue10 As Object, ByVal ParmName11 As String, ByVal ParmValue11 As Object, ByVal ParmName12 As String, ByVal ParmValue12 As Object, ByVal ParmName13 As String, ByVal ParmValue13 As Object, ByVal ParmName14 As String, ByVal ParmValue14 As Object, ByVal ParmName15 As String, ByVal ParmValue15 As Object, ByVal ParmName16 As String, ByVal ParmValue16 As Object, ByVal ParmName17 As String, ByVal ParmValue17 As Object, ByVal ParmName18 As String, ByVal ParmValue18 As Object, ByVal ParmName19 As String, ByVal ParmValue19 As Object, ByVal ParmName20 As String, ByVal ParmValue20 As Object, ByVal ParmName21 As String, ByVal ParmValue21 As Object, ByVal ParmName22 As String, ByVal ParmValue22 As Object, ByVal ParmName23 As String, ByVal ParmValue23 As Object, ByVal ParmName24 As String, ByVal ParmValue24 As Object, ByVal ParmName25 As String, ByVal ParmValue25 As Object) 00285: Call Me.New(ParmName0, ParmValue0, ParmName1, ParmValue1, ParmName2, ParmValue2, ParmName3, ParmValue3, ParmName4, ParmValue4, ParmName5, ParmValue5, ParmName6, ParmValue6, ParmName7, ParmValue7, ParmName8, ParmValue8, ParmName9, ParmValue9, ParmName10, ParmValue10, ParmName11, ParmValue11, ParmName12, ParmValue12, ParmName13, ParmValue13, ParmName14, ParmValue14, ParmName15, ParmValue15, ParmName16, ParmValue16, ParmName17, ParmValue17, ParmName18, ParmValue18, ParmName19, ParmValue19, ParmName20, ParmValue20, ParmName21, ParmValue21, ParmName22, ParmValue22, ParmName23, ParmValue23, ParmName24, ParmValue24) 00286: PRM(25) = New SqlParameter(ParmName25, ParmValue25) 00287: CMD.Parameters.Add(PRM(25)) 00288: End Sub 00289: 00290: Public Sub New(ByVal ParmName0 As String, ByVal ParmValue0 As Object, ByVal ParmName1 As String, ByVal ParmValue1 As Object, ByVal ParmName2 As String, ByVal ParmValue2 As Object, ByVal ParmName3 As String, ByVal ParmValue3 As Object, ByVal ParmName4 As String, ByVal ParmValue4 As Object, ByVal ParmName5 As String, ByVal ParmValue5 As Object, ByVal ParmName6 As String, ByVal ParmValue6 As Object, ByVal ParmName7 As String, ByVal ParmValue7 As Object, ByVal ParmName8 As String, ByVal ParmValue8 As Object, ByVal ParmName9 As String, ByVal ParmValue9 As Object, ByVal ParmName10 As String, ByVal ParmValue10 As Object, ByVal ParmName11 As String, ByVal ParmValue11 As Object, ByVal ParmName12 As String, ByVal ParmValue12 As Object, ByVal ParmName13 As String, ByVal ParmValue13 As Object, ByVal ParmName14 As String, ByVal ParmValue14 As Object, ByVal ParmName15 As String, ByVal ParmValue15 As Object, ByVal ParmName16 As String, ByVal ParmValue16 As Object, ByVal ParmName17 As String, ByVal ParmValue17 As Object, ByVal ParmName18 As String, ByVal ParmValue18 As Object, ByVal ParmName19 As String, ByVal ParmValue19 As Object, ByVal ParmName20 As String, ByVal ParmValue20 As Object, ByVal ParmName21 As String, ByVal ParmValue21 As Object, ByVal ParmName22 As String, ByVal ParmValue22 As Object, ByVal ParmName23 As String, ByVal ParmValue23 As Object, ByVal ParmName24 As String, ByVal ParmValue24 As Object, ByVal ParmName25 As String, ByVal ParmValue25 As Object, ByVal ParmName26 As String, ByVal ParmValue26 As Object) 00291: Call Me.New(ParmName0, ParmValue0, ParmName1, ParmValue1, ParmName2, ParmValue2, ParmName3, ParmValue3, ParmName4, ParmValue4, ParmName5, ParmValue5, ParmName6, ParmValue6, ParmName7, ParmValue7, ParmName8, ParmValue8, ParmName9, ParmValue9, ParmName10, ParmValue10, ParmName11, ParmValue11, ParmName12, ParmValue12, ParmName13, ParmValue13, ParmName14, ParmValue14, ParmName15, ParmValue15, ParmName16, ParmValue16, ParmName17, ParmValue17, ParmName18, ParmValue18, ParmName19, ParmValue19, ParmName20, ParmValue20, ParmName21, ParmValue21, ParmName22, ParmValue22, ParmName23, ParmValue23, ParmName24, ParmValue24, ParmName25, ParmValue25) 00292: PRM(26) = New SqlParameter(ParmName26, ParmValue26) 00293: CMD.Parameters.Add(PRM(26)) 00294: End Sub 00295: 00296: Public Sub New(ByVal ParmName0 As String, ByVal ParmValue0 As Object, ByVal ParmName1 As String, ByVal ParmValue1 As Object, ByVal ParmName2 As String, ByVal ParmValue2 As Object, ByVal ParmName3 As String, ByVal ParmValue3 As Object, ByVal ParmName4 As String, ByVal ParmValue4 As Object, ByVal ParmName5 As String, ByVal ParmValue5 As Object, ByVal ParmName6 As String, ByVal ParmValue6 As Object, ByVal ParmName7 As String, ByVal ParmValue7 As Object, ByVal ParmName8 As String, ByVal ParmValue8 As Object, ByVal ParmName9 As String, ByVal ParmValue9 As Object, ByVal ParmName10 As String, ByVal ParmValue10 As Object, ByVal ParmName11 As String, ByVal ParmValue11 As Object, ByVal ParmName12 As String, ByVal ParmValue12 As Object, ByVal ParmName13 As String, ByVal ParmValue13 As Object, ByVal ParmName14 As String, ByVal ParmValue14 As Object, ByVal ParmName15 As String, ByVal ParmValue15 As Object, ByVal ParmName16 As String, ByVal ParmValue16 As Object, ByVal ParmName17 As String, ByVal ParmValue17 As Object, ByVal ParmName18 As String, ByVal ParmValue18 As Object, ByVal ParmName19 As String, ByVal ParmValue19 As Object, ByVal ParmName20 As String, ByVal ParmValue20 As Object, ByVal ParmName21 As String, ByVal ParmValue21 As Object, ByVal ParmName22 As String, ByVal ParmValue22 As Object, ByVal ParmName23 As String, ByVal ParmValue23 As Object, ByVal ParmName24 As String, ByVal ParmValue24 As Object, ByVal ParmName25 As String, ByVal ParmValue25 As Object, ByVal ParmName26 As String, ByVal ParmValue26 As Object, ByVal ParmName27 As String, ByVal ParmValue27 As Object) 00297: Call Me.New(ParmName0, ParmValue0, ParmName1, ParmValue1, ParmName2, ParmValue2, ParmName3, ParmValue3, ParmName4, ParmValue4, ParmName5, ParmValue5, ParmName6, ParmValue6, ParmName7, ParmValue7, ParmName8, ParmValue8, ParmName9, ParmValue9, ParmName10, ParmValue10, ParmName11, ParmValue11, ParmName12, ParmValue12, ParmName13, ParmValue13, ParmName14, ParmValue14, ParmName15, ParmValue15, ParmName16, ParmValue16, ParmName17, ParmValue17, ParmName18, ParmValue18, ParmName19, ParmValue19, ParmName20, ParmValue20, ParmName21, ParmValue21, ParmName22, ParmValue22, ParmName23, ParmValue23, ParmName24, ParmValue24, ParmName25, ParmValue25, ParmName26, ParmValue26) 00298: PRM(27) = New SqlParameter(ParmName27, ParmValue27) 00299: CMD.Parameters.Add(PRM(27)) 00300: End Sub 00301: 00302: Public Sub New(ByVal ParmName0 As String, ByVal ParmValue0 As Object, ByVal ParmName1 As String, ByVal ParmValue1 As Object, ByVal ParmName2 As String, ByVal ParmValue2 As Object, ByVal ParmName3 As String, ByVal ParmValue3 As Object, ByVal ParmName4 As String, ByVal ParmValue4 As Object, ByVal ParmName5 As String, ByVal ParmValue5 As Object, ByVal ParmName6 As String, ByVal ParmValue6 As Object, ByVal ParmName7 As String, ByVal ParmValue7 As Object, ByVal ParmName8 As String, ByVal ParmValue8 As Object, ByVal ParmName9 As String, ByVal ParmValue9 As Object, ByVal ParmName10 As String, ByVal ParmValue10 As Object, ByVal ParmName11 As String, ByVal ParmValue11 As Object, ByVal ParmName12 As String, ByVal ParmValue12 As Object, ByVal ParmName13 As String, ByVal ParmValue13 As Object, ByVal ParmName14 As String, ByVal ParmValue14 As Object, ByVal ParmName15 As String, ByVal ParmValue15 As Object, ByVal ParmName16 As String, ByVal ParmValue16 As Object, ByVal ParmName17 As String, ByVal ParmValue17 As Object, ByVal ParmName18 As String, ByVal ParmValue18 As Object, ByVal ParmName19 As String, ByVal ParmValue19 As Object, ByVal ParmName20 As String, ByVal ParmValue20 As Object, ByVal ParmName21 As String, ByVal ParmValue21 As Object, ByVal ParmName22 As String, ByVal ParmValue22 As Object, ByVal ParmName23 As String, ByVal ParmValue23 As Object, ByVal ParmName24 As String, ByVal ParmValue24 As Object, ByVal ParmName25 As String, ByVal ParmValue25 As Object, ByVal ParmName26 As String, ByVal ParmValue26 As Object, ByVal ParmName27 As String, ByVal ParmValue27 As Object, ByVal ParmName28 As String, ByVal ParmValue28 As Object) 00303: Call Me.New(ParmName0, ParmValue0, ParmName1, ParmValue1, ParmName2, ParmValue2, ParmName3, ParmValue3, ParmName4, ParmValue4, ParmName5, ParmValue5, ParmName6, ParmValue6, ParmName7, ParmValue7, ParmName8, ParmValue8, ParmName9, ParmValue9, ParmName10, ParmValue10, ParmName11, ParmValue11, ParmName12, ParmValue12, ParmName13, ParmValue13, ParmName14, ParmValue14, ParmName15, ParmValue15, ParmName16, ParmValue16, ParmName17, ParmValue17, ParmName18, ParmValue18, ParmName19, ParmValue19, ParmName20, ParmValue20, ParmName21, ParmValue21, ParmName22, ParmValue22, ParmName23, ParmValue23, ParmName24, ParmValue24, ParmName25, ParmValue25, ParmName26, ParmValue26, ParmName27, ParmValue27) 00304: PRM(28) = New SqlParameter(ParmName28, ParmValue28) 00305: CMD.Parameters.Add(PRM(28)) 00306: End Sub 00307: 00308: Public Sub New(ByVal ParmName0 As String, ByVal ParmValue0 As Object, ByVal ParmName1 As String, ByVal ParmValue1 As Object, ByVal ParmName2 As String, ByVal ParmValue2 As Object, ByVal ParmName3 As String, ByVal ParmValue3 As Object, ByVal ParmName4 As String, ByVal ParmValue4 As Object, ByVal ParmName5 As String, ByVal ParmValue5 As Object, ByVal ParmName6 As String, ByVal ParmValue6 As Object, ByVal ParmName7 As String, ByVal ParmValue7 As Object, ByVal ParmName8 As String, ByVal ParmValue8 As Object, ByVal ParmName9 As String, ByVal ParmValue9 As Object, ByVal ParmName10 As String, ByVal ParmValue10 As Object, ByVal ParmName11 As String, ByVal ParmValue11 As Object, ByVal ParmName12 As String, ByVal ParmValue12 As Object, ByVal ParmName13 As String, ByVal ParmValue13 As Object, ByVal ParmName14 As String, ByVal ParmValue14 As Object, ByVal ParmName15 As String, ByVal ParmValue15 As Object, ByVal ParmName16 As String, ByVal ParmValue16 As Object, ByVal ParmName17 As String, ByVal ParmValue17 As Object, ByVal ParmName18 As String, ByVal ParmValue18 As Object, ByVal ParmName19 As String, ByVal ParmValue19 As Object, ByVal ParmName20 As String, ByVal ParmValue20 As Object, ByVal ParmName21 As String, ByVal ParmValue21 As Object, ByVal ParmName22 As String, ByVal ParmValue22 As Object, ByVal ParmName23 As String, ByVal ParmValue23 As Object, ByVal ParmName24 As String, ByVal ParmValue24 As Object, ByVal ParmName25 As String, ByVal ParmValue25 As Object, ByVal ParmName26 As String, ByVal ParmValue26 As Object, ByVal ParmName27 As String, ByVal ParmValue27 As Object, ByVal ParmName28 As String, ByVal ParmValue28 As Object, ByVal ParmName29 As String, ByVal ParmValue29 As Object) 00309: Call Me.New(ParmName0, ParmValue0, ParmName1, ParmValue1, ParmName2, ParmValue2, ParmName3, ParmValue3, ParmName4, ParmValue4, ParmName5, ParmValue5, ParmName6, ParmValue6, ParmName7, ParmValue7, ParmName8, ParmValue8, ParmName9, ParmValue9, ParmName10, ParmValue10, ParmName11, ParmValue11, ParmName12, ParmValue12, ParmName13, ParmValue13, ParmName14, ParmValue14, ParmName15, ParmValue15, ParmName16, ParmValue16, ParmName17, ParmValue17, ParmName18, ParmValue18, ParmName19, ParmValue19, ParmName20, ParmValue20, ParmName21, ParmValue21, ParmName22, ParmValue22, ParmName23, ParmValue23, ParmName24, ParmValue24, ParmName25, ParmValue25, ParmName26, ParmValue26, ParmName27, ParmValue27, ParmName28, ParmValue28) 00310: PRM(29) = New SqlParameter(ParmName29, ParmValue29) 00311: CMD.Parameters.Add(PRM(29)) 00312: End Sub 00313: 00314: End Class
А вот как выглядела эта же функция в далеком 1994 году на пятом бейсике. Вот как дорого нам обошлось отсутствие ключевого слова Optional - тысячу строк вместо восьмидесяти!
Кстати, обратите внимание на эту картинку. Пятый бейсик был намного КОМПАКТНЕЕ по ширине текста относительно восьмого и вообще не требовал скроллинга по ширине. А теперь текст без скролинка по ширине практически невозможным. Впрочем это я не рассматриваю это как недостаток. Это дело привычки. К тому же у меня стандартная мышь MS IntelliMouseExplorer - которая как раз стандартно достаточно приемлимо скролит текст по ширине.
00001: Public Function SPr(SPName As String, Optional Arg1Name As String, Optional ByRef Arg1, Optional Arg2Name As String, Optional ByRef Arg2, Optional Arg3Name As String, Optional ByRef Arg3, Optional Arg4Name As String, Optional ByRef Arg4, Optional Arg5Name As String, Optional ByRef Arg5, Optional Arg6Name As String, Optional ByRef Arg6, Optional Arg7Name As String, Optional ByRef Arg7, Optional Arg8Name As String, Optional ByRef Arg8, Optional Arg9Name As String, Optional ByRef Arg9, Optional Arg10Name As String, Optional ByRef Arg10, _ 00002: Optional Arg11Name As String, Optional ByRef Arg11, Optional Arg12Name As String, Optional ByRef Arg12, Optional Arg13Name As String, Optional ByRef Arg13, Optional Arg14Name As String, Optional ByRef Arg14, Optional Arg15Name As String, Optional ByRef Arg15, Optional Arg16Name As String, Optional ByRef Arg16, Optional Arg17Name As String, Optional ByRef Arg17, Optional Arg18Name As String, Optional ByRef Arg18, Optional Arg19Name As String, Optional ByRef Arg19, Optional Arg20Name As String, Optional ByRef Arg20, _ 00003: Optional Arg21Name As String, Optional ByRef Arg21, Optional Arg22Name As String, Optional ByRef Arg22, Optional Arg23Name As String, Optional ByRef Arg23, Optional Arg24Name As String, Optional ByRef Arg24, Optional Arg25Name As String, Optional ByRef Arg25, Optional Arg26Name As String, Optional ByRef Arg26, Optional Arg27Name As String, Optional ByRef Arg27, Optional Arg28Name As String, Optional ByRef Arg28, Optional Arg29Name As String, Optional ByRef Arg29) As ADODB.Recordset 00004: 00005: Dim CMD As New ADODB.Command 00006: Set CMD.ActiveConnection = UDE 00007: CMD.CommandText = SPName 00008: CMD.CommandType = adCmdStoredProc 00009: CMD.CommandTimeout = CMD.ActiveConnection.CommandTimeout 00010: CMD.Parameters.Refresh 00011: If Not IsNone(Arg1Name) Then CMD.Parameters(Arg1Name) = Arg1 Else GoTo Execute 00012: If Not IsNone(Arg2Name) Then CMD.Parameters(Arg2Name) = Arg2 Else GoTo Execute 00013: If Not IsNone(Arg3Name) Then CMD.Parameters(Arg3Name) = Arg3 Else GoTo Execute 00014: If Not IsNone(Arg4Name) Then CMD.Parameters(Arg4Name) = Arg4 Else GoTo Execute 00015: If Not IsNone(Arg5Name) Then CMD.Parameters(Arg5Name) = Arg5 Else GoTo Execute 00016: If Not IsNone(Arg6Name) Then CMD.Parameters(Arg6Name) = Arg6 Else GoTo Execute 00017: If Not IsNone(Arg7Name) Then CMD.Parameters(Arg7Name) = Arg7 Else GoTo Execute 00018: If Not IsNone(Arg8Name) Then CMD.Parameters(Arg8Name) = Arg8 Else GoTo Execute 00019: If Not IsNone(Arg9Name) Then CMD.Parameters(Arg9Name) = Arg9 Else GoTo Execute 00020: If Not IsNone(Arg10Name) Then CMD.Parameters(Arg10Name) = Arg10 Else GoTo Execute 00021: If Not IsNone(Arg11Name) Then CMD.Parameters(Arg11Name) = Arg11 Else GoTo Execute 00022: If Not IsNone(Arg12Name) Then CMD.Parameters(Arg12Name) = Arg12 Else GoTo Execute 00023: If Not IsNone(Arg13Name) Then CMD.Parameters(Arg13Name) = Arg13 Else GoTo Execute 00024: If Not IsNone(Arg14Name) Then CMD.Parameters(Arg14Name) = Arg14 Else GoTo Execute 00025: If Not IsNone(Arg15Name) Then CMD.Parameters(Arg15Name) = Arg15 Else GoTo Execute 00026: If Not IsNone(Arg16Name) Then CMD.Parameters(Arg16Name) = Arg16 Else GoTo Execute 00027: If Not IsNone(Arg17Name) Then CMD.Parameters(Arg17Name) = Arg17 Else GoTo Execute 00028: If Not IsNone(Arg18Name) Then CMD.Parameters(Arg18Name) = Arg18 Else GoTo Execute 00029: If Not IsNone(Arg19Name) Then CMD.Parameters(Arg19Name) = Arg19 Else GoTo Execute 00030: If Not IsNone(Arg20Name) Then CMD.Parameters(Arg20Name) = Arg20 Else GoTo Execute 00031: If Not IsNone(Arg21Name) Then CMD.Parameters(Arg21Name) = Arg21 Else GoTo Execute 00032: If Not IsNone(Arg22Name) Then CMD.Parameters(Arg22Name) = Arg22 Else GoTo Execute 00033: If Not IsNone(Arg23Name) Then CMD.Parameters(Arg23Name) = Arg23 Else GoTo Execute 00034: If Not IsNone(Arg24Name) Then CMD.Parameters(Arg24Name) = Arg24 Else GoTo Execute 00035: If Not IsNone(Arg25Name) Then CMD.Parameters(Arg25Name) = Arg25 Else GoTo Execute 00036: If Not IsNone(Arg26Name) Then CMD.Parameters(Arg26Name) = Arg26 Else GoTo Execute 00037: If Not IsNone(Arg27Name) Then CMD.Parameters(Arg27Name) = Arg27 Else GoTo Execute 00038: If Not IsNone(Arg28Name) Then CMD.Parameters(Arg28Name) = Arg28 Else GoTo Execute 00039: If Not IsNone(Arg29Name) Then CMD.Parameters(Arg29Name) = Arg29 Else GoTo Execute 00040: Execute: 00041: On Error Resume Next 00042: Set SPr = CMD.Execute 00043: 00044: If Err = 0 Then 00045: If IsNone(Arg1Name) Then GoTo Ext Else If EqualSomeOf(CMD.Parameters(Arg1Name).Direction, adParamInputOutput, adParamOutput) Then Arg1 = CMD.Parameters(Arg1Name) 00046: If IsNone(Arg2Name) Then GoTo Ext Else If EqualSomeOf(CMD.Parameters(Arg2Name).Direction, adParamInputOutput, adParamOutput) Then Arg2 = CMD.Parameters(Arg2Name) 00047: If IsNone(Arg3Name) Then GoTo Ext Else If EqualSomeOf(CMD.Parameters(Arg3Name).Direction, adParamInputOutput, adParamOutput) Then Arg3 = CMD.Parameters(Arg3Name) 00048: If IsNone(Arg4Name) Then GoTo Ext Else If EqualSomeOf(CMD.Parameters(Arg4Name).Direction, adParamInputOutput, adParamOutput) Then Arg4 = CMD.Parameters(Arg4Name) 00049: If IsNone(Arg5Name) Then GoTo Ext Else If EqualSomeOf(CMD.Parameters(Arg5Name).Direction, adParamInputOutput, adParamOutput) Then Arg5 = CMD.Parameters(Arg5Name) 00050: If IsNone(Arg6Name) Then GoTo Ext Else If EqualSomeOf(CMD.Parameters(Arg6Name).Direction, adParamInputOutput, adParamOutput) Then Arg6 = CMD.Parameters(Arg6Name) 00051: If IsNone(Arg7Name) Then GoTo Ext Else If EqualSomeOf(CMD.Parameters(Arg7Name).Direction, adParamInputOutput, adParamOutput) Then Arg7 = CMD.Parameters(Arg7Name) 00052: If IsNone(Arg8Name) Then GoTo Ext Else If EqualSomeOf(CMD.Parameters(Arg8Name).Direction, adParamInputOutput, adParamOutput) Then Arg8 = CMD.Parameters(Arg8Name) 00053: If IsNone(Arg9Name) Then GoTo Ext Else If EqualSomeOf(CMD.Parameters(Arg9Name).Direction, adParamInputOutput, adParamOutput) Then Arg9 = CMD.Parameters(Arg9Name) 00054: If IsNone(Arg10Name) Then GoTo Ext Else If EqualSomeOf(CMD.Parameters(Arg10Name).Direction, adParamInputOutput, adParamOutput) Then Arg10 = CMD.Parameters(Arg10Name) 00055: If IsNone(Arg11Name) Then GoTo Ext Else If EqualSomeOf(CMD.Parameters(Arg11Name).Direction, adParamInputOutput, adParamOutput) Then Arg11 = CMD.Parameters(Arg11Name) 00056: If IsNone(Arg12Name) Then GoTo Ext Else If EqualSomeOf(CMD.Parameters(Arg12Name).Direction, adParamInputOutput, adParamOutput) Then Arg12 = CMD.Parameters(Arg12Name) 00057: If IsNone(Arg13Name) Then GoTo Ext Else If EqualSomeOf(CMD.Parameters(Arg13Name).Direction, adParamInputOutput, adParamOutput) Then Arg13 = CMD.Parameters(Arg13Name) 00058: If IsNone(Arg14Name) Then GoTo Ext Else If EqualSomeOf(CMD.Parameters(Arg14Name).Direction, adParamInputOutput, adParamOutput) Then Arg14 = CMD.Parameters(Arg14Name) 00059: If IsNone(Arg15Name) Then GoTo Ext Else If EqualSomeOf(CMD.Parameters(Arg15Name).Direction, adParamInputOutput, adParamOutput) Then Arg15 = CMD.Parameters(Arg15Name) 00060: If IsNone(Arg16Name) Then GoTo Ext Else If EqualSomeOf(CMD.Parameters(Arg16Name).Direction, adParamInputOutput, adParamOutput) Then Arg16 = CMD.Parameters(Arg16Name) 00061: If IsNone(Arg17Name) Then GoTo Ext Else If EqualSomeOf(CMD.Parameters(Arg17Name).Direction, adParamInputOutput, adParamOutput) Then Arg17 = CMD.Parameters(Arg17Name) 00062: If IsNone(Arg18Name) Then GoTo Ext Else If EqualSomeOf(CMD.Parameters(Arg18Name).Direction, adParamInputOutput, adParamOutput) Then Arg18 = CMD.Parameters(Arg18Name) 00063: If IsNone(Arg19Name) Then GoTo Ext Else If EqualSomeOf(CMD.Parameters(Arg19Name).Direction, adParamInputOutput, adParamOutput) Then Arg19 = CMD.Parameters(Arg19Name) 00064: If IsNone(Arg20Name) Then GoTo Ext Else If EqualSomeOf(CMD.Parameters(Arg20Name).Direction, adParamInputOutput, adParamOutput) Then Arg20 = CMD.Parameters(Arg20Name) 00065: If IsNone(Arg21Name) Then GoTo Ext Else If EqualSomeOf(CMD.Parameters(Arg21Name).Direction, adParamInputOutput, adParamOutput) Then Arg21 = CMD.Parameters(Arg21Name) 00066: If IsNone(Arg22Name) Then GoTo Ext Else If EqualSomeOf(CMD.Parameters(Arg22Name).Direction, adParamInputOutput, adParamOutput) Then Arg22 = CMD.Parameters(Arg22Name) 00067: If IsNone(Arg23Name) Then GoTo Ext Else If EqualSomeOf(CMD.Parameters(Arg23Name).Direction, adParamInputOutput, adParamOutput) Then Arg23 = CMD.Parameters(Arg23Name) 00068: If IsNone(Arg24Name) Then GoTo Ext Else If EqualSomeOf(CMD.Parameters(Arg24Name).Direction, adParamInputOutput, adParamOutput) Then Arg24 = CMD.Parameters(Arg24Name) 00069: If IsNone(Arg25Name) Then GoTo Ext Else If EqualSomeOf(CMD.Parameters(Arg25Name).Direction, adParamInputOutput, adParamOutput) Then Arg25 = CMD.Parameters(Arg25Name) 00070: If IsNone(Arg26Name) Then GoTo Ext Else If EqualSomeOf(CMD.Parameters(Arg26Name).Direction, adParamInputOutput, adParamOutput) Then Arg26 = CMD.Parameters(Arg26Name) 00071: If IsNone(Arg27Name) Then GoTo Ext Else If EqualSomeOf(CMD.Parameters(Arg27Name).Direction, adParamInputOutput, adParamOutput) Then Arg27 = CMD.Parameters(Arg27Name) 00072: If IsNone(Arg28Name) Then GoTo Ext Else If EqualSomeOf(CMD.Parameters(Arg28Name).Direction, adParamInputOutput, adParamOutput) Then Arg28 = CMD.Parameters(Arg28Name) 00073: If IsNone(Arg29Name) Then GoTo Ext Else If EqualSomeOf(CMD.Parameters(Arg29Name).Direction, adParamInputOutput, adParamOutput) Then Arg29 = CMD.Parameters(Arg29Name) 00074: Ext: 00075: Else 00076: MsgBox "Произошла ошибка в " & SPName & vbCrLf & Err.Number & ":" & Err.Source & vbCrLf & Err.Description 00077: End If 00078: Set CMD.ActiveConnection = Nothing 00079: 00080: End Function
Comments (
)
)
<00>
<01>
<02>
<03>
<04>
<05>
<06>
<07>
<08>
<09>
<10>
<11>
<12>
<13>
<14>
<15>
<16>
<17>
<18>
<19>
<20>
<21>
<22>
<23>
Link to this page:
//www.vb-net.com/asp2/11/index.htm
| <Return> <Return> <Return> <Return> <Return> <SITEMAP> <MVC> <ASP> <NET> <DATA> <KIOSK> <FLEX> <SQL> <NOTES> <LINUX> <MONO> <FREEWARE> <DOCS> <ENG> <CHAT ME> <ABOUT ME> < THANKS ME> |