[VB.Net]Public Shared Function Get
DataTableBy
ValueAAnd
ValueB(ByVal
ValueA As String, ByVal
ValueB As String) As DataTable
Dim ds As New DataSet
Dim SqlParam As SqlParameter() = Nothing
addParameter(SqlParam, "@
ValueA ",
ValueA)
addParameter(SqlParam, "@
ValueB",
ValueB)
Helper.SqlHelper.FillDataset(ConnectionString _
, CommandType.StoredProcedure _
, "spPBG_Trn_TrackingList_Get
DataTableBy
ValueAAnd
ValueB" _
, ds _
, dtName _
, SqlParam)
Return ds.Tables(dtName(0))
End Function
[VB.Net]Public Shared Function Get
ResultBy
ValueAAnd
ValueBAnd
ValueC(ByVal
ValueA As String, ByVal
ValueB As String, ByVal
ValueC As String) As Integer
Dim SqlParam As SqlParameter() = Nothing
addParameter(SqlParam, "@
ValueA",
ValueA)
addParameter(SqlParam, "@
ValueB",
ValueB)
addParameter(SqlParam, "@
ValueC",
ValueC )
Dim dr As SqlDataReader = Helper.SqlHelper.ExecuteReader(ConnectionString, CommandType.StoredProcedure, "Get
ResultBy
ValueAAnd
ValueBAnd
ValueC", SqlParam)
If dr.Read() Then
Result = (Helper.ConvertHelper.NullToNothing(dr("
Result")))
End If
Return
ResultEnd Function