请看一下这代码是什么意思呢?有点不明白吖
Private Function BuildIntCommand(ByVal storedProcName As String, ByVal Parameters As IDataParameter()) As SqlCommand
Dim Command As SqlCommand = BuildQueryCommand(storedProcName, Parameters)
Dim parameter As New SqlParameter
With parameter
.ParameterName = "ReturnValue"
.DbType = SqlDbType.Int
.Size = 4
.Direction = ParameterDirection.ReturnValue
.IsNullable = False
.Precision = 0
.Scale = 0
.SourceColumn = String.Empty
.SourceVersion = DataRowVersion.Default
.Value = Nothing
End With
Command.Parameters.Add(parameter)
Return Command
End Function
Private Function BuildQueryCommand(ByVal storedProcName As String, ByVal Parameters As IDataParameter()) As SqlCommand
Dim Command As New SqlCommand(storedProcName, myConnection)
Command.CommandType = CommandType.StoredProcedure
Dim parameter As SqlParameter
For Each parameter In Parameters
Command.Parameters.Add(parameter)
Next
Return Command
End Function