Register Register Member Login Member Login Member Login Forgot Password ??
PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone
 

Registered : 107,791

HOME > SQL Server กับ Stored Procedure สอนเขียน Stored Procedure บน SQL Server Database > ตอนที่ 18 : Visual Basic (VB.Net) เรียกใช้ EXEC SQL Server Stored Procedure





Clound SSD Virtual Server

ตอนที่ 18 : Visual Basic (VB.Net) เรียกใช้ EXEC SQL Server Stored Procedure

ตอนที่ 18 : Visual Basic (VB.Net) เรียกใช้ EXEC/CALL - SQL Server Stored Procedure ในหัวข้อนี้เราจะมาเรียนรู้วิธีการใช้ Visual Basic (VB.Net) บน .NET Application เรียกใช้งาน Stored Procedure ของ SQL Server Database ซึ่งในการเรียกใช้งาน Stored Procedure สามารถใช้ได้กับในหลาย ๆ Connector เช่น System.Data.SqlClient ส่วนคำสั่งในการการเรียกนั้น เราสามารถใช้คำสั่ง EXEC procedure_name() ได้ทันที ถ้าหากมีค่า Parameters ก็จะต้องทำการ Pass ค่าไปกับ Query ด้วย หรือจะใช้แบบ Parameter Query แบบ CommandType.StoredProcedure ก็ได้ โดยทั้ง 2 วิธีสามารถใช้ได้เหมือนกัน และหลังจากที่ EXEC แล้วก็สามารถที่จะอ่าน Result ที่ Stored Procedure นั้นได้ส่งกลับมาให้

Call SQL Server Stored Procedure
EXEC procedure_name agr1,agr2,...

โครงสร้างของตาราง CUSTOMER

Table : CUSTOMER

Stored Procedure บน SQL Server


Example 1 : การใช้ .NET เรียก Stored Procedure แบบ Query ข้อมูลออกมา

Stored Procedure Name : getCustomer()
CREATE PROCEDURE [dbo].[getCustomer]
	@pCountryCode	VARCHAR(2)
AS
BEGIN

	-- set customer
	SELECT * FROM CUSTOMER WHERE COUNTRY_CODE = @pCountryCode

END

Code (VB.Net)
Imports System.Data.SqlClient
Imports System.Data

Module MyModule

    Sub Main()
        Dim objConn As New SqlConnection()
        Dim objCmd As New SqlCommand()
        Dim dtAdapter As New SqlDataAdapter()

        Dim ds As New DataSet()
        Dim dt As DataTable
        Dim strConnString As String, strSQL As String

        strConnString = "Server=localhost;UID=sa;PASSWORD=;database=mydatabase; " & _
            " Max Pool Size=400;Connect Timeout=600;"

        strSQL = "EXEC getCustomer 'US' "

        objConn.ConnectionString = strConnString
        objConn.Open()
        objCmd.Connection = objConn
        objCmd.CommandText = strSQL
        objCmd.CommandType = CommandType.Text

        dtAdapter.SelectCommand = objCmd

        dtAdapter.Fill(ds)
        dt = ds.Tables(0)

        For i As Integer = 0 To dt.Rows.Count - 1
            Console.Write(dt.Rows(i)("CUSTOMER_ID"))
            Console.Write(" - ")
            Console.Write(dt.Rows(i)("NAME"))
            Console.Write(" - ")
            Console.Write(dt.Rows(i)("EMAIL"))
            Console.Write(" - ")
            Console.Write(dt.Rows(i)("COUNTRY_CODE"))
            Console.Write(" - ")
            Console.Write(dt.Rows(i)("BUDGET"))
            Console.Write(" - ")
            Console.Write(dt.Rows(i)("USED"))
            Console.Write("")
        Next

        dtAdapter = Nothing
        objConn.Close()
        objConn = Nothing
    End Sub

End Module

Result

C003 - Jame Born - [email protected] - US - 3000000.00 - 600000.00
C004 - Chalee Angel - [email protected] - US - 4000000.00 - 100000.00









หรือจะใช้แบบ Parameter Query หรือ CommandType.StoredProcedure ก็ได้เช่นเดียวกัน

Code (VB.Net)
Imports System.Data.SqlClient
Imports System.Data

Module MyModule

    Sub Main()
        Dim objConn As New SqlConnection()
        Dim objCmd As New SqlCommand()
        Dim dtAdapter As New SqlDataAdapter()

        Dim ds As New DataSet()
        Dim dt As DataTable
        Dim strConnString As String, strStored As String

        strConnString = "Server=localhost;UID=sa;PASSWORD=;database=mydatabase; " & _
            " Max Pool Size=400;Connect Timeout=600;"

        strStored = "getCustomer"
        objCmd.Parameters.Add(New SqlParameter("@pCountryCode", "US"))

        objConn.ConnectionString = strConnString
        objConn.Open()
        objCmd.Connection = objConn
        objCmd.CommandText = strStored
        objCmd.CommandType = CommandType.StoredProcedure

        dtAdapter.SelectCommand = objCmd

        dtAdapter.Fill(ds)
        dt = ds.Tables(0)

        For i As Integer = 0 To dt.Rows.Count - 1
            Console.Write(dt.Rows(i)("CUSTOMER_ID"))
            Console.Write(" - ")
            Console.Write(dt.Rows(i)("NAME"))
            Console.Write(" - ")
            Console.Write(dt.Rows(i)("EMAIL"))
            Console.Write(" - ")
            Console.Write(dt.Rows(i)("COUNTRY_CODE"))
            Console.Write(" - ")
            Console.Write(dt.Rows(i)("BUDGET"))
            Console.Write(" - ")
            Console.Write(dt.Rows(i)("USED"))
            Console.Write("")
        Next

        dtAdapter = Nothing
        objConn.Close()
        objConn = Nothing
    End Sub

End Module


Example 2 : การใช้ .NET เรียก Stored Procedure แบบ Query เพื่อ Insert ข้อมูล

Stored Procedure Name : insertCustomer()
CREATE PROCEDURE [dbo].[insertCustomer]
	@pCustomerID	VARCHAR(4),
	@pName			VARCHAR(50),
	@pEmail			VARCHAR(50),
	@pCountryCode	VARCHAR(2),
	@pBudget		DECIMAL(18,2),
	@pUsed			DECIMAL(18,2)
AS
BEGIN

	-- insert customer
	INSERT INTO CUSTOMER VALUES (@pCustomerID,@pName,@pEmail,@pCountryCode,@pBudget,@pUsed);

END

Code (VB.Net)
Imports System.Data.SqlClient
Imports System.Data

Module MyModule

    Sub Main()
        Dim objConn As New SqlConnection()
        Dim objCmd As New SqlCommand()
        Dim strConnString As String, strSQL As String

        strConnString = "Server=localhost;UID=sa;PASSWORD=;database=mydatabase; " & _
                " Max Pool Size=400;Connect Timeout=600;"

        Dim sCustomerID As String = "C005"
        Dim sName As String = "Fun Wipa"
        Dim sEmail As String = "[email protected]"
        Dim sCountryCode As String = "TH"
        Dim dBudget As Decimal = 1000000
        Dim dUsed As Decimal = 0

        strSQL = "EXEC insertCustomer '" & sCustomerID & "','" & sName & "' " & _
            ",'" & sEmail & "','" & sCountryCode & "','" & dBudget & "','" & dUsed & "' "

        objConn.ConnectionString = strConnString
        objConn.Open()
        objCmd.Connection = objConn
        objCmd.CommandText = strSQL
        objCmd.CommandType = CommandType.Text

        objCmd.ExecuteNonQuery()

        objConn.Close()
        objConn = Nothing
    End Sub

End Module

หรือจะใช้แบบ Parameter Query หรือ CommandType.StoredProcedure ก็ได้เช่นเดียวกัน

Code (VB.Net)
Imports System.Data.SqlClient
Imports System.Data

Module MyModule

    Sub Main()
        Dim objConn As New SqlConnection()
        Dim objCmd As New SqlCommand()
        Dim strConnString As String, strStored As String

        strConnString = "Server=localhost;UID=sa;PASSWORD=;database=mydatabase; " & _
                " Max Pool Size=400;Connect Timeout=600;"

        Dim sCustomerID As String = "C005"
        Dim sName As String = "Fun Wipa"
        Dim sEmail As String = "[email protected]"
        Dim sCountryCode As String = "TH"
        Dim dBudget As Decimal = 1000000
        Dim dUsed As Decimal = 0

        strStored = "insertCustomer"
        objCmd.Parameters.Add(New SqlParameter("@pCustomerID", sCustomerID))
        objCmd.Parameters.Add(New SqlParameter("@pName", sName))
        objCmd.Parameters.Add(New SqlParameter("@pEmail", sEmail))
        objCmd.Parameters.Add(New SqlParameter("@pCountryCode", sCountryCode))
        objCmd.Parameters.Add(New SqlParameter("@pBudget", dBudget))
        objCmd.Parameters.Add(New SqlParameter("@pUsed", dUsed))

        objConn.ConnectionString = strConnString
        objConn.Open()
        objCmd.Connection = objConn
        objCmd.CommandText = strStored
        objCmd.CommandType = CommandType.StoredProcedure

        objCmd.ExecuteNonQuery()

        objConn.Close()
        objConn = Nothing
    End Sub

End Module

ส่วนวิธีการ UPDATE และ DELETE ก็ใช้หลักการเดียวกับการ INSERT ข้อมูล

เพิ่มเติม : ในกรณีที่ต้องการกำหนดชนิด DataType ของ Parameters
        objCmd.Parameters.Add("@pCustomerID", SqlDbType.VarChar).Value = sCustomerID
        objCmd.Parameters.Add("@pName", SqlDbType.VarChar).Value = sName
        objCmd.Parameters.Add("@pEmail", SqlDbType.VarChar).Value = sEmail
        objCmd.Parameters.Add("@pCountryCode", SqlDbType.VarChar).Value = sCountryCode
        objCmd.Parameters.Add("@pBudget", SqlDbType.Decimal).Value = dBudget
        objCmd.Parameters.Add("@pUsed", SqlDbType.Decimal).Value = dUsed


สำหรับตัวอย่างที่ 3 และ 4 จะเป็นการอ่านจาก OUTPUT หรือ OUT

ตอนที่ 10 : การใช้ OUTPUT และ OUT เพื่อส่งค่ากลับ (SQL Server : Stored Procedure)









Example 3 : การใช้ .NET เรียก Stored Procedure และอ่านค่า OUTPUT พร้อมกับ SELECT ข้อมูล

Stored Procedure Name : getCustomer()
CREATE PROCEDURE [dbo].[getCustomer]
	@pCountryCode	VARCHAR(2),
	@pRowFound	INT OUTPUT
AS
BEGIN

	-- set rowcount
	SELECT @pRowFound = COUNT(*) FROM CUSTOMER WHERE COUNTRY_CODE = @pCountryCode

	-- set customer
	SELECT * FROM CUSTOMER WHERE COUNTRY_CODE = @pCountryCode

END

Code (VB.Net)
Imports System.Data.SqlClient
Imports System.Data

Module MyModule

    Sub Main()

        Dim objConn As New SqlConnection()
        Dim objCmd As New SqlCommand()
        Dim dtAdapter As New SqlDataAdapter()

        Dim ds As New DataSet()
        Dim dt As DataTable
        Dim strConnString As String, strStored As String

        strConnString = "Server=localhost;UID=sa;PASSWORD=;database=mydatabase; " & _
            " Max Pool Size=400;Connect Timeout=600;"

        strStored = "getCustomer"
        objCmd.Parameters.Add(New SqlParameter("@pCountryCode", SqlDbType.VarChar)).Value = "US" ' IN
        objCmd.Parameters.Add(New SqlParameter("pRowFound", SqlDbType.Int)).Direction = ParameterDirection.Output ' OUT

        objConn.ConnectionString = strConnString
        objConn.Open()
        objCmd.Connection = objConn
        objCmd.CommandText = strStored
        objCmd.CommandType = CommandType.StoredProcedure

        ' Get Select
        dtAdapter.SelectCommand = objCmd
        dtAdapter.Fill(ds)

        ' Get Result 
        ' objCmd.Parameters["pRowFound"].Value
        Console.WriteLine(String.Format("pRowFound = {0}", objCmd.Parameters("pRowFound").Value))
        Console.WriteLine("")

        ' Loop Data Table
        dt = ds.Tables(0)
        ' *** Cursor at 0 , 1 , 2, ...
        For i As Integer = 0 To dt.Rows.Count - 1
            Console.Write(dt.Rows(i)("CUSTOMER_ID"))
            Console.Write(" - ")
            Console.Write(dt.Rows(i)("NAME"))
            Console.Write(" - ")
            Console.Write(dt.Rows(i)("EMAIL"))
            Console.Write(" - ")
            Console.Write(dt.Rows(i)("COUNTRY_CODE"))
            Console.Write(" - ")
            Console.Write(dt.Rows(i)("BUDGET"))
            Console.Write(" - ")
            Console.Write(dt.Rows(i)("USED"))
            Console.WriteLine("")
        Next

        objConn.Close()
        objConn = Nothing

    End Sub

End Module

VB.Net SQL Server Stored OUTPUT

ค่าที่ถูกส่งมาทั้ง SELECT และ Parameters ที่เป็นแบบ OUT

Example 4 : การใช้ .NET เรียก Stored Procedure และอ่านค่า OUTPUT ที่มีตั้งแต่ 2 ค่าขึ้นไป

Stored Procedure Name : insertCustomer()
CREATE PROCEDURE [dbo].[insertCustomer]
	@pCustomerID	VARCHAR(4),
	@pName			VARCHAR(50),
	@pEmail			VARCHAR(50),
	@pCountryCode	VARCHAR(2),
	@pBudget		DECIMAL(18,2),
	@pUsed			DECIMAL(18,2),
	@pResult		INT OUTPUT,
	@pMessage		VARCHAR(500) OUTPUT
AS
BEGIN

	BEGIN TRY
		-- insert customer
		INSERT INTO CUSTOMER VALUES (@pCustomerID,@pName,@pEmail,@pCountryCode,@pBudget,@pUsed);
		SET @pResult = @@ROWCOUNT;
		SET @pMessage = 'Insert Data Successfully';
	END TRY
	BEGIN CATCH
		SET @pResult = 0;
		SELECT @pMessage = ERROR_MESSAGE();
	END CATCH

END

Code (VB.Net)
Imports System.Data.SqlClient
Imports System.Data

Module MyModule

    Sub Main()

        Dim objConn As New SqlConnection()
        Dim objCmd As New SqlCommand()

        Dim strConnString As String, strStored As String

        strConnString = "Server=localhost;UID=sa;PASSWORD=;database=mydatabase; " & _
            " Max Pool Size=400;Connect Timeout=600;"
        objConn.ConnectionString = strConnString
        objConn.Open()

        Dim strCustomerID As String = "C005"
        Dim strName As String = "Fun Wipa"
        Dim strEmail As String = "[email protected]"
        Dim strCountryCode As String = "TH"
        Dim dBudget As Decimal = 100000
        Dim dUsed As Decimal = 0

        strStored = "insertCustomer"
        objCmd.Parameters.Add(New SqlParameter("pCustomerID", SqlDbType.VarChar, 4)).Value = strCustomerID ' IN
        objCmd.Parameters.Add(New SqlParameter("pName", SqlDbType.VarChar, 150)).Value = strName ' IN
        objCmd.Parameters.Add(New SqlParameter("pEmail", SqlDbType.VarChar, 150)).Value = strEmail ' IN
        objCmd.Parameters.Add(New SqlParameter("pCountryCode", SqlDbType.VarChar, 2)).Value = strCountryCode ' IN
        objCmd.Parameters.Add(New SqlParameter("pBudget", SqlDbType.VarChar)).Value = dBudget ' IN
        objCmd.Parameters.Add(New SqlParameter("pUsed", SqlDbType.VarChar)).Value = dUsed ' IN

        objCmd.Parameters.Add(New SqlParameter("pResult", SqlDbType.Int)).Direction = ParameterDirection.Output ' OUT
        objCmd.Parameters.Add(New SqlParameter("pMessage", SqlDbType.VarChar, 500)).Direction = ParameterDirection.Output ' OUT

        objCmd.Connection = objConn
        objCmd.CommandText = strStored
        objCmd.CommandType = CommandType.StoredProcedure

        objCmd.ExecuteNonQuery()

        ' Get Result 
        ' objCmd.Parameters["pResult"].Value
        Console.WriteLine(String.Format("pResult = {0}", objCmd.Parameters("pResult").Value))

        ' objCmd.Parameters["pMessage"].Value
        Console.WriteLine(String.Format("pMessage = {0}", objCmd.Parameters("pMessage").Value))

        objConn.Close()
        objConn = Nothing

    End Sub

End Module

VB.Net SQL Server Stored OUTPUT

กรณีที่ Insert ข้อมูลสำเร็จ

VB.Net SQL Server Stored OUTPUT

กรณีที่ Insert ข้อมูลไม่สำเร็จ

ตอนที่ 20 : Visual C# (C# .Net) เรียกใช้ EXEC SQL Server Stored Procedure


   
Share


ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน Source Code 2.0 ของทีมงานไทยครีเอท


ลองใช้ค้นหาข้อมูล


   


Bookmark.   
       
  By : ThaiCreate.Com Team (บทความเป็นลิขสิทธิ์ของเว็บไทยครีเอทห้ามนำเผยแพร่ ณ เว็บไซต์อื่น ๆ)
  Score Rating :  
  Create/Update Date : 2015-10-16 11:39:07 / 2017-03-24 22:34:41
  Download : No files
 Sponsored Links / Related

 
ตอนที่ 1 : รู้จักและการเขียน Stored Procedure บน SQL Server (SQL Server : Stored Procedure)
Rating :

 
ตอนที่ 2 : การสร้าง Parameters รับค่าบน Stored Procedure (SQL Server : Stored Procedure)
Rating :

 
ตอนที่ 3: การ Print และแสดงผลบน Stored Procedure (SQL Server : Stored Procedure)
Rating :

 
ตอนที่ 4 : การสร้างตัวแปร Declare Variable บน Stored Procedure (SQL Server : Stored Procedure)
Rating :

 
ตอนที่ 5 : การสร้าง Declare Table สร้างตัวแปรแบบตาราง (SQL Server : Stored Procedure)
Rating :

 
ตอนที่ 6 : การสร้าง Loop ข้อมูลบน Stored Procedure (SQL Server : Stored Procedure)
Rating :

 
ตอนที่ 7 : การใช้ Cursor บน Stored Procedure (SQL Server : Stored Procedure)
Rating :

 
ตอนที่ 8 : การใช้ If ....Else If...Else สร้างเงื่อนไข (SQL Server : Stored Procedure)
Rating :

 
ตอนที่ 9 : การใช้ Try Catch บน Stored Procedure (SQL Server : Stored Procedure)
Rating :

 
ตอนที่ 10 : การใช้ OUTPUT และ OUT เพื่อส่งค่ากลับ (SQL Server : Stored Procedure)
Rating :

 
ตอนที่ 11 : การใช้ Transaction เพื่อ Rollback และ Commit (SQL Server : Stored Procedure)
Rating :

 
ตอนที่ 12 : การใช้ Cursor ระหว่าง (Between) Stored Procedure (SQL Server : Stored Procedure)
Rating :

 
ตอนที่ 13 : การ Debug Stored Procedure บน Visual Studio 2010,2012,2013,2015 และอื่น ๆ
Rating :

 
ตอนที่ 14 : การสร้าง View Table บน SQL Server Database (SQL Server : View Table)
Rating :

 
ตอนที่ 15 : การสร้าง Trigger บน SQL Server Database (SQL Server : Trigger)
Rating :

 
ตอนที่ 16 : การสร้าง Function บน Server Database (SQL Server : Function)
Rating :

 
ตอนที่ 17 : PHP เรียกใช้ EXEC/CALL - SQL Server Stored Procedure ด้วย sqlsrv และ pdo
Rating :

 
ตอนที่ 19 : Java เรียกใช้ EXEC/CALL - SQL Server Stored Procedure ด้วย (JDBC)
Rating :

 
ตอนที่ 20 : Visual C# (C# .Net) เรียกใช้ EXEC/CALL - SQL Server Stored Procedure
Rating :


ThaiCreate.Com Forum


Comunity Forum Free Web Script
Jobs Freelance Free Uploads
Free Web Hosting Free Tools

สอน PHP ผ่าน Youtube ฟรี
สอน Android การเขียนโปรแกรม Android
สอน Windows Phone การเขียนโปรแกรม Windows Phone 7 และ 8
สอน iOS การเขียนโปรแกรม iPhone, iPad
สอน Java การเขียนโปรแกรม ภาษา Java
สอน Java GUI การเขียนโปรแกรม ภาษา Java GUI
สอน JSP การเขียนโปรแกรม ภาษา Java
สอน jQuery การเขียนโปรแกรม ภาษา jQuery
สอน .Net การเขียนโปรแกรม ภาษา .Net
Free Tutorial
สอน Google Maps Api
สอน Windows Service
สอน Entity Framework
สอน Android
สอน Java เขียน Java
Java GUI Swing
สอน JSP (Web App)
iOS (iPhone,iPad)
Windows Phone
Windows Azure
Windows Store
Laravel Framework
Yii PHP Framework
สอน jQuery
สอน jQuery กับ Ajax
สอน PHP OOP (Vdo)
Ajax Tutorials
SQL Tutorials
สอน SQL (Part 2)
JavaScript Tutorial
Javascript Tips
VBScript Tutorial
VBScript Validation
Microsoft Access
MySQL Tutorials
-- Stored Procedure
MariaDB Database
SQL Server Tutorial
SQL Server 2005
SQL Server 2008
SQL Server 2012
-- Stored Procedure
Oracle Database
-- Stored Procedure
SVN (Subversion)
แนวทางการทำ SEO
ปรับแต่งเว็บให้โหลดเร็ว


สุดยอด Source Code V2.0
 

แจ้งชำระเงิน/โอนเงิน
 

Hit Link
   







Load balance : Server 05
ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2019 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
[Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 , 08-9968-0655 อัตราราคา คลิกที่นี่