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

Registered : 109,027

HOME > MySQL สอนเขียน Stored Procedure, View Table, Function, Trigger บน MySQL Database > ตอนที่ 20 : Visual Basic (VB.Net) เรียกใช้ Call MySQL Stored Procedure



Clound SSD Virtual Server

ตอนที่ 20 : Visual Basic (VB.Net) เรียกใช้ Call MySQL Stored Procedure

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

Call MySQL Stored Procedure
CALL procedure_name(agr1,agr2,...)

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

Table : customer

Stored Procedure บน MySQL

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

Stored Procedure Name : getCustomer()
DROP PROCEDURE IF EXISTS getCustomer;

DELIMITER //
CREATE PROCEDURE getCustomer(IN pCountryCode VARCHAR(2))
BEGIN
   SELECT * FROM customer WHERE COUNTRY_CODE = pCountryCode;
END //
DELIMITER ;

Code (VB.Net)
Imports MySql.Data.MySqlClient
Imports System.Data

Module MyModule

    Sub Main()
        Dim objConn As New MySqlConnection()
        Dim objCmd As New MySqlCommand()
        Dim dtAdapter As New MySqlDataAdapter()

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

        strConnString = "Server=localhost;User Id=root; Password=root; Database=mydatabase; Pooling=false"

        strSQL = "CALL 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 MySql.Data.MySqlClient
Imports System.Data

Module MyModule

    Sub Main()
        Dim objConn As New MySqlConnection()
        Dim objCmd As New MySqlCommand()
        Dim dtAdapter As New MySqlDataAdapter()

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

        strConnString = "Server=localhost;User Id=root; Password=root; Database=mydatabase; Pooling=false"

        strStored = "getCustomer"
        objCmd.Parameters.Add(New MySqlParameter("?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()
DROP PROCEDURE IF EXISTS insertCustomer;

DELIMITER //
CREATE PROCEDURE insertCustomer(IN pCustomerID VARCHAR(4),
	IN pName VARCHAR(150),
	IN pEmail VARCHAR(150),
	IN pCountryCode VARCHAR(2),
	IN pBudget DECIMAL(18,2),
	IN pUsed DECIMAL(18,2))
BEGIN
   INSERT INTO customer (CUSTOMER_ID, NAME, EMAIL, COUNTRY_CODE, BUDGET, USED)
	VALUES (pCustomerID, pName, pEmail, pCountryCode, pBudget, pUsed);
END //
DELIMITER ;

Code (VB.Net)
Imports MySql.Data.MySqlClient
Imports System.Data

Module MyModule

    Sub Main()
        Dim objConn As New MySqlConnection()
        Dim objCmd As New MySqlCommand()
        Dim strConnString As String, strSQL As String

        strConnString = "Server=localhost;User Id=root; Password=root; Database=mydatabase; Pooling=false"

        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 = "CALL 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 MySql.Data.MySqlClient
Imports System.Data

Module MyModule

    Sub Main()
        Dim objConn As New MySqlConnection()
        Dim objCmd As New MySqlCommand()
        Dim strConnString As String, strStored As String

        strConnString = "Server=localhost;User Id=root; Password=root; Database=mydatabase; Pooling=false"

        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 MySqlParameter("?pCustomerID", sCustomerID))
        objCmd.Parameters.Add(New MySqlParameter("?pName", sName))
        objCmd.Parameters.Add(New MySqlParameter("?pEmail", sEmail))
        objCmd.Parameters.Add(New MySqlParameter("?pCountryCode", sCountryCode))
        objCmd.Parameters.Add(New MySqlParameter("?pBudget", dBudget))
        objCmd.Parameters.Add(New MySqlParameter("?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", MySqlDbType.VarChar).Value = sCustomerID
            objCmd.Parameters.Add("?pName", MySqlDbType.VarChar).Value = sName
            objCmd.Parameters.Add("?pEmail", MySqlDbType.VarChar).Value = sEmail
            objCmd.Parameters.Add("?pCountryCode", MySqlDbType.VarChar).Value = sCountryCode
            objCmd.Parameters.Add("?pBudget", MySqlDbType.Decimal).Value = dBudget
            objCmd.Parameters.Add("?pUsed", MySqlDbType.Decimal).Value = dUsed


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








ตอนที่ 9 : การใช้พารามิเตอร์ชนิด OUT เพื่อส่งค่ากลับ (MySQL : Stored Procedure)


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

Stored Procedure Name : getCustomer()
DROP PROCEDURE IF EXISTS getCustomer;

DELIMITER //
CREATE PROCEDURE getCustomer(IN pCountryCode VARCHAR(2),
	OUT pRowFound INT)
BEGIN

	# Return SELECT
	SELECT * FROM customer WHERE COUNTRY_CODE = sCountryCode;
	
	# Return  pRowFound
	SET pRowFound  = FOUND_ROWS();
        
END //

DELIMITER ;

Code (VB.Net)
Imports MySql.Data.MySqlClient
Imports System.Data

Module MyModule

    Sub Main()

        Dim objConn As New MySqlConnection()
        Dim objCmd As New MySqlCommand()
        Dim dtAdapter As New MySqlDataAdapter()

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

        strConnString = "Server=localhost;User Id=root; Password=root; Database=mydatabase; Pooling=false"

        strStored = "getCustomer"
        objCmd.Parameters.Add(New MySqlParameter("?pCountryCode", MySqlDbType.VarChar)).Value = "US" ' IN
        objCmd.Parameters.Add(New MySqlParameter("?pRowFound", MySqlDbType.Int32)).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 MySQL Stored OUTPUT

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

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

Stored Procedure Name : insertCustomer()
DROP PROCEDURE IF EXISTS insertCustomer;

DELIMITER //
CREATE PROCEDURE insertCustomer(IN pCustomerID VARCHAR(4),
	IN pName VARCHAR(150),
	IN pEmail VARCHAR(150),
	IN pCountryCode VARCHAR(2),
	IN pBudget DECIMAL(18,2),
	IN pUsed DECIMAL(18,2),
	OUT pResult INT,
	OUT pMessage VARCHAR(500))
BEGIN
	
	# Declare Variable
	DECLARE errCode CHAR(5) DEFAULT '00000';
	DECLARE errMsg TEXT;
	DECLARE effRows INT;

	# Declare Handler Exception
	DECLARE CONTINUE HANDLER FOR SQLEXCEPTION
	    BEGIN
	      GET DIAGNOSTICS CONDITION 1
		errCode = RETURNED_SQLSTATE, errMsg = MESSAGE_TEXT;
	    END;

	# Statement 
	INSERT INTO customer (CUSTOMER_ID, NAME, EMAIL, COUNTRY_CODE, BUDGET, USED)
		VALUES (pCustomerID, pName, pEmail, pCountryCode, pBudget, pUsed);

	# Set Result 
	IF errCode = '00000' THEN
		GET DIAGNOSTICS effRows = ROW_COUNT;
		SET pResult  = effRows;
		SET pMessage = 'Insert Data Successfully';
	ELSE
		SET pResult  = 0;
		SET pMessage = CONCAT('Error, Code = ',errCode,', Message = ',errMsg);
	END IF;

END //
DELIMITER ;

Code (VB.Net)
Imports MySql.Data.MySqlClient
Imports System.Data

Module MyModule

    Sub Main()

        Dim objConn As New MySqlConnection()
        Dim objCmd As New MySqlCommand()

        Dim strConnString As String, strStored As String

        strConnString = "Server=localhost;User Id=root; Password=root; Database=mydatabase; Pooling=false"
        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 MySqlParameter("?pCustomerID", MySqlDbType.VarChar, 4)).Value = strCustomerID ' IN
        objCmd.Parameters.Add(New MySqlParameter("?pName", MySqlDbType.VarChar, 150)).Value = strName ' IN
        objCmd.Parameters.Add(New MySqlParameter("?pEmail", MySqlDbType.VarChar, 150)).Value = strEmail ' IN
        objCmd.Parameters.Add(New MySqlParameter("?pCountryCode", MySqlDbType.VarChar, 2)).Value = strCountryCode ' IN
        objCmd.Parameters.Add(New MySqlParameter("?pBudget", MySqlDbType.VarChar)).Value = dBudget ' IN
        objCmd.Parameters.Add(New MySqlParameter("?pUsed", MySqlDbType.VarChar)).Value = dUsed ' IN

        objCmd.Parameters.Add(New MySqlParameter("?pResult", MySqlDbType.Int32)).Direction = ParameterDirection.Output ' OUT
        objCmd.Parameters.Add(New MySqlParameter("?pMessage", MySqlDbType.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 MySQL Stored OUTPUT

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

VB.Net MySQL Stored OUTPUT

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



ตอนที่ 22 : Visual C# (C# .Net) เรียกใช้ Call MySQL Stored Procedure


   
Share


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


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


   


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

 
ตอนที่ 1 : รู้จักและการสร้าง Stored Procedure บน MySQL (MySQL : Stored Procedure)
Rating :

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

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

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

 
ตอนที่ 5 : การสร้าง Declare Temp Table - TEMPORARY (MySQL : Stored Procedure)
Rating :

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

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

 
ตอนที่ 8 : การใช้ IF....ELSE... สร้างเงื่อนไข (MySQL : Stored Procedure)
Rating :

 
ตอนที่ 9 : การใช้พารามิเตอร์ชนิด OUT เพื่อส่งค่ากลับ (MySQL : Stored Procedure)
Rating :

 
ตอนที่ 10 : การใช้ CASE WHEN บน Stored Procedure (MySQL : Stored Procedure)
Rating :

 
ตอนที่ 11 : การใช้ Error Handling หรือ Try Catch ดักจับข้อผิดลาด (MySQL : Stored Procedure)
Rating :

 
ตอนที่ 12 : การใช้ Transaction บน MySQL Stored Procedure (MySQL : Stored Procedure)
Rating :

 
ตอนที่ 13 : การสร้าง VIEW Table บน MySQL Database (MySQL : View Table)
Rating :

 
ตอนที่ 14 : การสร้าง Trigger บน MySQL Database (MySQL : Trigger)
Rating :

 
ตอนที่ 15 : การสร้าง Function บน MySQL Database (MySQL : Function)
Rating :

 
ตอนที่ 16 : การใช้ phpMyAdmin : Stored Procedure, View, Function, Trigger บน MySQL
Rating :

 
ตอนที่ 17 : การ Export/Import : Stored Procedure, View, Function, Trigger บน MySQL
Rating :

 
ตอนที่ 18 : การ Debug Stored Procedure บน MySQL เพื่อตรวจสอบค่าตัวแปร
Rating :

 
ตอนที่ 19 : PHP เรียกใช้ Call MySQL Stored Procedure และการส่งค่า Parameters ด้วย mysqli
Rating :

 
ตอนที่ 21 : Java เรียกใช้ Call MySQL Stored Procedure ด้วย (JDBC)
Rating :

 
ตอนที่ 22 : Visual C# (C# .Net) เรียกใช้ Call MySQL 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
ปรับแต่งเว็บให้โหลดเร็ว


Hit Link
   







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