' Dim paramsCount As Integer = 1
' Dim parameters(1) As IDataParameter

' If (Not carCd = Integer.MinValue) AndAlso (Not carCdSeqNo = Integer.MinValue) Then
' sql += sqlManager.GetsqlString("KYT003","SelectCarMst2")
' paramsCount += 1
' ReDim Preserve parameters(paramsCount)

' ’’’’’’’’’’’’’’’’’’作为参数的数据

' parameters(paramsCount) = adapter.CreateDataParameter("@CarCd")

' parameters(paramsCount).DbType = DbType.Int32

’’’’’’’’’’’’’’’’’’参数

' parameters(paramsCount).Value = carCd


' paramsCount += 1
' ReDim Preserve parameters(paramsCount)

’’’’’’’’’’’’’’’’’’作为参数的数据

' parameters(paramsCount) = adapter.CreateDataParameter("@CarCdSeqNo")

' parameters(paramsCount).DbType = DbType.Int32

' ’’’’’’’’’’’’’’’’’’参数

parameters(paramsCount).Value = carCdSeqNo

' End If

原文链接：https://www.f2er.com/vb/257594.html