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

Registered : 103,817

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



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

ตอนที่ 20 : Visual Basic (VB.Net) เรียกใช้ Oracle Stored Procedure ในหัวข้อนี้เราจะมาเรียนรู้วิธีการใช้ Visual Basic (VB.Net) บน .NET Application เรียกใช้งาน Stored Procedure ของ Oracle Database ซึ่งในการเรียกใช้งาน Stored Procedure สามารถใช้ได้กับ Connector ชื่อว่า Oracle.DataAccess ส่วน System.Data.OracleClient นั้นได้ถูกประกาศยกเลิกไปแล้ว ส่วนคำสั่งในการการเรียกนั้น เราสามารถใช้คำสั่งเรียกชื่อ Stored ได้เลย โดยใช้ชุดการทำงานของ CommandType.StoredProcedure ถ้าหากมีค่า Parameters ก็จะต้องทำการ Pass ในรูปแบบของ IN หรือ OUT ค่าไปกับ Query ด้วย และหลังจากที่ CALL แล้วก็สามารถที่จะอ่าน Result ที่ Stored Procedure นั้นได้ส่งกลับมาให้ในรูปแบบของ Parameters ที่เป็น OUT

Table : CUSTOMER

Oracle Database Create Table

การ Add Library ของ Oracle.DataAccess

Stored Procedure บน Oracle

คลิกขวาที่ Project เลือก Add Reference

Stored Procedure บน Oracle

เลือก Oracle.DataAccess แต่ทั้งนี้จะต้องทำการติดตั้ง Oracle Instance Client ให้เรียบร้อยซะก่อน








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

Stored Procedure Name : GET_CUSTOMER()
CREATE OR REPLACE PROCEDURE GET_CUSTOMER
  (pCountryCode IN VARCHAR2, pRowFound OUT NUMBER, pCustomer OUT SYS_REFCURSOR)
AS
BEGIN
  
  -- OUT pCustomer
  OPEN pCustomer FOR
       SELECT *
         FROM CUSTOMER WHERE COUNTRY_CODE = pCountryCode;
         
  -- OUT pRowFound       
  SELECT COUNT(*) INTO pRowFound
         FROM CUSTOMER WHERE COUNTRY_CODE = pCountryCode;
END;

Call
VAR  pRowFound NUMBER;
VAR  pCustomer REFCURSOR;
EXEC GET_CUSTOMER('US',:pRowFound,:pCustomer)
PRINT pRowFound;
PRINT pCustomer;

Stored Procedure บน Oracle

Code (VB.Net)
Imports System.Data
Imports Oracle.DataAccess.Client
Imports Oracle.DataAccess.Types

Module MyModule

    Sub Main()

        Dim objConn As New OracleConnection()
        Dim objCmd As New OracleCommand()
        Dim dtAdapter As New OracleDataAdapter()

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

        strConnString = "Data Source=TCDB;User Id=myuser;Password=mypassword;"
        objConn.ConnectionString = strConnString
        objConn.Open()

        Dim sCountryCode As String = "US"

        strStored = "GET_CUSTOMER"
        objCmd.Parameters.Add(New OracleParameter("pCountryCode", OracleDbType.Varchar2)).Value = sCountryCode ' IN

        objCmd.Parameters.Add(New OracleParameter("pRowFound", OracleDbType.Int32)).Direction = ParameterDirection.Output ' OUT
        objCmd.Parameters.Add(New OracleParameter("pCustomer", OracleDbType.RefCursor)).Direction = ParameterDirection.Output ' OUT

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

        ' objCmd.Parameters("pCustomer").Value (REF CURSOR)
        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, ...
        Console.WriteLine("pCustomer")
        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

Result

Stored Procedure บน Oracle








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

Stored Procedure Name : INSERT_CUSTOMER()
CREATE OR REPLACE PROCEDURE INSERT_CUSTOMER
(
  pCustomerID IN VARCHAR2,
  pName IN VARCHAR2,
  pEmail IN VARCHAR2,
  pCountryCode IN VARCHAR2,
  pBudget IN DECIMAL,
  pUsed IN DECIMAL,
  pResult OUT NUMBER,
  pMessage OUT VARCHAR2
)
AS
BEGIN

  -- Insert Statement 1
  INSERT INTO CUSTOMER (CUSTOMER_ID, NAME, EMAIL, COUNTRY_CODE, BUDGET, USED)
    VALUES (pCustomerID, pName, pEmail, pCountryCode, pBudget, pUsed);
 
  -- Return row effected  
  pResult := SQL%ROWCOUNT;
  pMessage := 'Insert Data Successfully';
  
  -- Return error exception
   EXCEPTION 
    WHEN OTHERS THEN
      BEGIN
        pResult := 0;
        pMessage := 'Error - ' || SQLERRM; 
      END;  
    
END;

Call
VAR pResult NUMBER;
VAR pMessage VARCHAR2;
EXEC INSERT_CUSTOMER('C005','Fun Wipa','fun.wipa@thaicreate.com','TH','100000','0',:pResult,:pMessage);
PRINT pResult;
PRINT pMessage;

Stored Procedure บน Oracle

Code (VB.Net)
Imports System.Data
Imports Oracle.DataAccess.Client
Imports Oracle.DataAccess.Types

Module MyModule

    Sub Main()

        Dim objConn As New OracleConnection()
        Dim objCmd As New OracleCommand()

        Dim strConnString As String, strStored As String

        strConnString = "Data Source=TCDB;User Id=myuser;Password=mypassword;"
        objConn.ConnectionString = strConnString
        objConn.Open()

        Dim strCustomerID As String = "C005"
        Dim strName As String = "Fun Wipa"
        Dim strEmail As String = "fun.wipa@thaicreate.com"
        Dim strCountryCode As String = "TH"
        Dim dBudget As Decimal = 100000
        Dim dUsed As Decimal = 0

        strStored = "INSERT_CUSTOMER"
        objCmd.Parameters.Add(New OracleParameter("pCustomerID", OracleDbType.Varchar2, 4)).Value = strCustomerID ' IN
        objCmd.Parameters.Add(New OracleParameter("pName", OracleDbType.Varchar2, 150)).Value = strName ' IN
        objCmd.Parameters.Add(New OracleParameter("pEmail", OracleDbType.Varchar2, 150)).Value = strEmail ' IN
        objCmd.Parameters.Add(New OracleParameter("pCountryCode", OracleDbType.Varchar2, 2)).Value = strCountryCode ' IN

        objCmd.Parameters.Add(New OracleParameter("pBudget", OracleDbType.Varchar2)).Value = dBudget ' IN
        objCmd.Parameters.Add(New OracleParameter("pUsed", OracleDbType.Varchar2)).Value = dUsed ' IN

        objCmd.Parameters.Add(New OracleParameter("pResult", OracleDbType.Int32)).Direction = ParameterDirection.Output ' OUT
        objCmd.Parameters.Add(New OracleParameter("pMessage", OracleDbType.Varchar2, 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

Result

Stored Procedure บน Oracle

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

Stored Procedure บน Oracle

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

Stored Procedure บน Oracle

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


   
Share


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


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


   


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

 
ตอนที่ 1 : ดาวน์โหลดและติดตั้ง Database Oracle 11g ฟรี จากเว็บไซต์ของ Oracle
Rating :

 
ตอนที่ 2 : การสร้าง Database และ Instance ใหม่บน Oracle Database
Rating :

 
ตอนที่ 3 : ติดตั้ง Oracle SQL Developer จัดการกับ Oracle Database การสร้าง User/Grant สิทธิ์
Rating :

 
ตอนที่ 4 : การสร้าง Table และ Insert เพิ่ม Data ลงใน Table ของ Oracle Database
Rating :

 
ตอนที่ 5 : รู้จัก Stored Procedure บน Oracle การรับส่ง Parameters (Oracle : Stored Procedure)
Rating :

 
ตอนที่ 6 : การ Print Message และ DBMS_OUTPUT.PUT_LINE (Oracle : Stored Procedure)
Rating :

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

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

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

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

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

 
ตอนที่ 12 : การใช้ Try Catch Exception ดักจับข้อผิดลาด (Oracle : Stored Procedure)
Rating :

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

 
ตอนที่ 14 : รู้จัก Oracle Package คืออะไร การใช้งาน Package (Oracle : Stored Procedure)
Rating :

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

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

 
ตอนที่ 17 : การสร้าง Trigger Events บน Oracle Database (Oracle : Trigger)
Rating :

 
ตอนที่ 18 : การสร้าง Export/Import รายการ Table และอื่น ๆ บน Oracle Database
Rating :

 
ตอนที่ 19 : PHP ฟังก์ชั่น oci และการใช้ oci เรียกใช้ Oracle Stored Procedure (IN, OUT)
Rating :

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

 
ตอนที่ 22 : Visual C# (C# .Net) เรียกใช้ Oracle 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
   


Acc : thaicreate@hotmail.com










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