(ASP.NET) ASP.NET (2006 год)

Асинхронные странички

Несмотря на сложные описания работы асинхронных страничек (особенно у Экспозито) на практике это досточно простая технология. И в сущности сводится к одному из двух методов - создание нового потока для долгоиграющей операции - как в этом случае и в применение асинхронных операций ввода-вывода, которое я покажу на примере этой странички.





В данном случае, изображенный выше контрол содержит вложенный контрол - 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 ("&lt;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 & " /&gt;")
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:




В заключение я выложу для интересующихся одну свою небольшую библиотечную функцию 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


Комментарии к этой страничке ( )
ссылка на эту страничку: http://www.vb-net.ru/asp2/11/index.htm
<Назад>  <Назад>  <Назад>  <Назад>  <Назад>  <На главную>  <В раздел ASP>  <В раздел NET>  <В раздел SQL>  <В раздел Разное>  <Написать автору>  < Поблагодарить>