' 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
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。