Ada kalanya kita menggunakan return value untuk mengecek suatu kondisi pada sebuah table. Misalkan kita akan mengecek apakah sebuah table mempunyai record atau tidak, atau mungkin untuk mendapatkan error number dari T-SQL yang digunakan di dalam stored procedure bila terjadi error.
Pertama kita buat terlebih dahulu stored procedurenya. Asumsikan saya punya sebuah table namanya Books, kemudian kita ingin cek apakah table tsb mempunyai record atau tidak.
Setelah itu kita buat aplikasi sederhana untuk test apakah stored proc tersebut berjalan sesuai dengan harapan :) . Asumsikan saya punya sebuah Button dimana code untuk EvenHandler Click nya spt dibawah ini :
1: Imports System.Data.SqlClient
2:
3: Public Class ReturnValueTest
4:
5: Private Sub btnCekRetVal_Click(ByVal sender As System.Object, _
6: ByVal e As System.EventArgs) Handles btnCekRetVal.Click
7:
8: Using myConn As New SqlConnection _
9: ("Database=AdventureWorks;Server=.\SqlDev2k5;" & _
10: "Integrated Security=SSPI")
11: Using myCmd As New SqlCommand
12: With myCmd
13: .CommandType = CommandType.StoredProcedure
14: .Connection = myConn
15: .CommandText = "TestReturnValue"
16: .Parameters.Add("@retval", _
17: SqlDbType.Int).Direction = _
18: ParameterDirection.ReturnValue
19:
20: myConn.Open()
21: myCmd.ExecuteNonQuery()
22:
23: Dim intRetVal As Int32 = _
24: CType(myCmd.Parameters.Item("@retval").Value, _
25: Int32)
26:
27: If intRetVal = 0 Then
28: MessageBox.Show("No Record on the" & _
29: "Books table")
30: Else
31: MessageBox.Show("There are Record(s)" & _
32: "on the Books table")
33: End If
34: End With
35: End Using
36: End Using
37: End Sub
38:
39: End Class
Ok...that's it...try this code at home :)