如何使用Visual Basic調用DB2存儲過程？

我想從DB2數據庫調用Visual Basic中的存儲過程。我想從我的Visual Basic代碼中將一個變量的輸入作爲參數發送出去，並將輸出放入我的VB代碼中的變量中。這裏是我的存儲過程的代碼：如何使用Visual Basic調用DB2存儲過程？

CREATE PROCEDURE VendorPROCEDURE (IN p_vendor_name VARCHAR(50), 
           OUT p_name VARCHAR(25), 
           OUT p_company_name VARCHAR(50), 
           OUT p_address VARCHAR(25), 
           OUT p_csz VARCHAR(50), 
           OUT p_phone CHAR(13)) 
DYNAMIC RESULT SETS 1 
P1: BEGIN 
DECLARE v_name VARCHAR(25); 
DECLARE v_company_name VARCHAR(50); 
DECLARE v_address VARCHAR(25); 
DECLARE v_csz VARCHAR(50); 
DECLARE v_phone CHAR(13); 

SELECT RTRIM(REP_F_NAME || ' ' || REP_L_NAME), COMPANY_NAME, STREET, 
RTRIM(CITY || ', ' || STATE || ' ' || VENDOR.ZIP_CODE) AS CSZ, PHONE_NUM 
INTO v_name, v_company_name, v_address, v_csz, v_phone 
FROM SALES_REP, VENDOR, ZIP 
WHERE SALES_REP.REP_NUM = VENDOR.REP_NUM 
AND ZIP.ZIP_CODE = VENDOR.ZIP_CODE 
AND COMPANY_NAME = p_vendor_name; 

SET p_name = v_name; 
SET p_company_name = v_company_name; 
SET p_address = v_address; 
SET p_csz = v_csz; 
SET p_phone = v_phone; 

END P1

在我的VB代碼，我導入的IBM.Data.DB2，這裏是我的代碼至今：

Dim vendorName As String 
    vendorName = Vendor_ComboBox.Text 
    cmd = connectionstring.CreateCommand() 
    connectionstring.Open() 
    Dim trans As DB2Transaction = connectionstring.BeginTransaction() 
    cmd.Transaction() = trans 
    Dim reader As DB2DataReader 
    Dim procName As String = "VENDORPROCEDURE" 
    cmd.CommandType = CommandType.StoredProcedure 
    cmd.CommandText = procName

我不知道在哪裏從那裏出發。

來源

2016-04-06 Brett

從這裏出發？嘗試添加'cmd.Execute'。另外，VB與VBA不同。後者主要運行在MS Office產品中。請相應標記。 – Parfait

首先添加您的參數param = new sqlparameter（「p_vendor_name」，）param.direction =輸入cmd.parameters.add（param）等等，改變輸出參數的方向 –

從那裏，你會做這樣的事情：

cmd.Parameters.Add("p_vendor_name", DB2DbType.VarChar, 50).Value = vendorName 
cmd.Parameters.Add("p_name", DB2DbType.VarChar, 25).Direction = ParameterDirection.Output 
'Etc.' 
reader = cmd.ExecuteReader()

您可以通過在線使用數據讀取器然後讀取查詢結果集行。你可以這樣做：

If reader.HasRows Then 
    'Read the data here.' 
Else 
    'There is no data so act accordingly here.' 
End If

，或者你可能只是這樣做：

While reader.Read() 
    'Get data from current row of reader by column name or ordinal here.' 
End While

在第二種情況下，Read回報False時，有沒有更多的數據讀取時，如果沒有行，沒有什麼會發生，因爲你永遠不會進入循環。

來源

2016-04-07 01:57:07 jmcilhinney

如何使用Visual Basic調用DB2存儲過程？

回答

相關問題