Advertisement
Advertisement
| 01.14.2008 at 12:09PM PST, ID: 23081919 |
|
[x]
Attachment Details
|
||
|
[x]
The Solution Rating System
|
||
With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.
Your Input Matters If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support. Thank you! |
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41: 42: 43: 44: 45: 46: |
stored procedure
select UPC from SalesTPR where UPC = UPC and UserId = UserId
vb///////////
Private Function VerifyUnicUPCCode(ByVal UPCCode As String) As Boolean
Dim conn As New SqlConnection(Application("A1SConnString"))
Dim cmd As New SqlCommand("spA1SCheckUnicUPCforTPR", conn)
'Dim cmd As New SqlCommand("select UPC from SalesTPR where UPC = @UPC and UserId = UserId", conn)
Dim sqlDR As SqlDataReader
Dim prm As SqlParameter
conn.Open()
sqlDR = cmd.ExecuteReader
VerifyUnicUPCCode = True
While sqlDR.Read
If UPCCode = sqlDR("UPC") Then
VerifyUnicUPCCode = False
Exit While
Else
VerifyUnicUPCCode = True
End If
End While
If (Not sqlDR Is Nothing) Then
If Not (sqlDR.IsClosed) Then
sqlDR.Close()
End If
End If
sqlDR = Nothing
If (Not conn Is Nothing) Then
If conn.State <> ConnectionState.Closed Then conn.Close()
conn.Dispose()
End If
If Not cmd Is Nothing Then cmd.Dispose()
Return VerifyUnicUPCCode
'cmd.Parameters.Add(New SqlClient.SqlParameter("@UPC", UPCCode.Substring))
End Function
|
