Public Function InsertMCostHeaderNew(ByVal strCon As String, ByVal ModelId As String, ByVal ModelCost As Decimal, ByVal UserId As Single) As Boolean Dim retval As Boolean Dim osqlParameters As SqlParameterCollection retval = True osqlParameters(0) = New SqlParameter("@ModelId", SqlDbType.VarChar, 5) osqlParameters(1) = New SqlParameter("@ModelCost", SqlDbType.Decimal, 5) osqlParameters(2) = New SqlParameter("@LogId", SqlDbType.SmallInt, 5) osqlParameters(3) = New SqlParameter("@MCostId", SqlDbType.VarChar, 6) osqlParameters(0).Value = ModelId osqlParameters(1).Value = ModelCost osqlParameters(2).Value = UserId osqlParameters(3).Direction = ParameterDirection.Output Try oAppCon.ExecuteNonQuery(strCon, "usp_InsertModelCost", CommandType.StoredProcedure, osqlParameters) Catch ex As Exception retval = False End Try Return retval End Function
Dim osqlParameters As SqlParameterCollection
Dim osqlParameters As New SqlParameterCollection
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)