本篇文章給大家分享的是有關(guān)VB.NET中怎么調(diào)用存儲(chǔ)過程，小編覺得挺實(shí)用的，因此分享給大家學(xué)習(xí)，希望大家閱讀完這篇文章后可以有所收獲，話不多說，跟著小編一起來看看吧。

創(chuàng)新互聯(lián)公司長(zhǎng)期為超過千家客戶提供的網(wǎng)站建設(shè)服務(wù)，團(tuán)隊(duì)從業(yè)經(jīng)驗(yàn)10年，關(guān)注不同地域、不同群體，并針對(duì)不同對(duì)象提供差異化的產(chǎn)品和服務(wù)；打造開放共贏平臺(tái)，與合作伙伴共同營造健康的互聯(lián)網(wǎng)生態(tài)環(huán)境。為邛崍企業(yè)提供專業(yè)的做網(wǎng)站、成都網(wǎng)站制作，邛崍網(wǎng)站改版等技術(shù)服務(wù)。擁有十多年豐富建站經(jīng)驗(yàn)和眾多成功案例,為您定制開發(fā)。

• 八種常用VB.NET語法詳解

• VB.NET事件通道使用技巧須知

• 實(shí)際操作VB.NET啟動(dòng)外部程序技巧講解

• 迅速實(shí)現(xiàn)VB.NET圖像操作方法簡(jiǎn)介

• VB.NET多窗體實(shí)際編寫方式講解

VB.NET調(diào)用存儲(chǔ)過程返回DataSet 的例子:

C# 代碼 :通用類

1. public static int SingleSTCD
   (DateTime StartTime,DateTime EndTime,
   int SMTP,string JL,string STDCD,string 
   STCDSTR, out DataSet ds )  

2. {  

3. int ret=0;  

4. ds=null;  

5. OleDbConnection Constring=
   new OleDbConnection(Appraise.ConStr);  

6. OleDbCommand cmd=new OleDbCommand
   ("P_Get_STCD_SingleAppraise_XunQi",
   Constring);  

7. try  

8. {  

9. OleDbDataAdapter ada=
   new OleDbDataAdapter();  

10. cmd.CommandType=CommandType.
    StoredProcedure;  

11. cmd.Parameters.Add("@StartTime", 
    OleDbType.DBTimeStamp).Value=StartTime ;   

12. cmd.Parameters.Add("@EndTime", 
    OleDbType.DBTimeStamp).Value=EndTime ;   

13. cmd.Parameters.Add("@SMTP", 
    OleDbType.Integer).Value=SMTP ;   

14. cmd.Parameters.Add("@JL", OleDbType.
    VarChar, 50).Value=JL ;   

15. //cmd.Parameters.Add("@STDCD", 
    OleDbType.VarChar, 50).Value=STDCD ; 

16. //評(píng)價(jià)標(biāo)準(zhǔn)  

17. cmd.Parameters.Add("@STCDSTR", 
    OleDbType.VarChar, 8000).Value=STCDSTR ;   

18. System.Data.DataSet data = new DataSet();  

19. ada.SelectCommand = cmd;  

20. ada.Fill(data,"table");  

21. ds = data;  

22. ret=ds.Tables[0].Rows.Count;  

23. if ( ret ==-1 )  

24. {  

25. return -1000; //無數(shù)據(jù)  

26. }  

27. else  

28. {  

29. return ret;  

30. }  

31. }  

32. catch(Exception e)  

33. {  

34. //數(shù)據(jù)庫操作發(fā)生錯(cuò)誤,返回錯(cuò)誤代碼  

35. System.Diagnostics.Debug.
    WriteLine(e.Message);  

36. return -1001;  

37. }  

38. finally  

39. {  

40. Constring.Close();  

41. cmd.Parameters.Clear();  

42. } 

VB.NET調(diào)用存儲(chǔ)過程:

Private Sub BindingDataGrid_Query()  
Dim ds As System.Data.DataSet  
Zehua.Water.Appraise.SingleSTCD
("1999-5-1", "1999-9-1", 1, "Ⅲ", "", 
"50181300,50185050,50181350,50185100,
50185150,50185200,50185250,50181200,
50185150,51282300", ds)  
DataGrid_Query.DataSource = ds 
DataGrid_Query.DataBind()  
End Sub 

VB.NET調(diào)用存儲(chǔ)過程返回?cái)?shù)組字符串

REM 執(zhí)行存儲(chǔ)過程,返回一數(shù)組

Public Shared Function ExecuteSP_ToArrary
(ByVal sConnString As String, ByVal 
Text_STCD As String, ByVal Text_TIME 
As String, ByRef TableInfo() As String)  
Dim conn As OleDbConnection = 
New OleDbConnection(sConnString)  
ReDim TableInfo(2)  
Try  
conn.Open()  
Dim command As OleDbCommand = 
New OleDbCommand("P_GET_QueryValue", conn)  
command.CommandType = CommandType.
StoredProcedure  
Dim sqlParams() As OleDbParameter = 
{New OleDbParameter("@STCD", Text_STCD), 
New OleDbParameter("@GETM", Text_TIME), 
New OleDbParameter("@ReturnValue", OleDbType.
VarChar, 8000), New OleDbParameter
("@ReturnColumnCode", OleDbType.VarChar, 
8000), New OleDbParameter
("@ReturnColumnName", OleDbType.VarChar, 8000)}  
sqlParams(2).Direction = ParameterDirection.Output  
sqlParams(3).Direction = ParameterDirection.Output  
sqlParams(4).Direction = ParameterDirection.Output  
Dim i As Integer = 0 
While i < sqlParams.Length 
command.Parameters.Add(sqlParams(i))  
i += 1  
End While  
command.ExecuteNonQuery()  
If sqlParams(2).Value.ToString().Length > 0 Then  
TableInfo(0) = sqlParams(2).Value.ToString()  
Else  
End If  
If sqlParams(3).Value.ToString().Length > 0 Then  
TableInfo(1) = sqlParams(3).Value.ToString()  
Else  
End If  
If sqlParams(4).Value.ToString().Length > 0 Then  
TableInfo(2) = sqlParams(4).Value.ToString()  
Else  
End If  
Catch ex As Exception  
ZeHua.Log.exNoteBugs(ex, "SigleStcdEdit.aspx") 
'sb.Append(ex.Message)  
Finally  
conn.Close()  
End Try  
End Function 

以上就是VB.NET中怎么調(diào)用存儲(chǔ)過程，小編相信有部分知識(shí)點(diǎn)可能是我們?nèi)粘９ぷ鲿?huì)見到或用到的。希望你能通過這篇文章學(xué)到更多知識(shí)。更多詳情敬請(qǐng)關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道。

網(wǎng)站欄目：VB.NET中怎么調(diào)用存儲(chǔ)過程
網(wǎng)頁鏈接：http://chinadenli.net/article40/iheeho.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供響應(yīng)式網(wǎng)站、軟件開發(fā)、網(wǎng)站排名、品牌網(wǎng)站制作、建站公司、外貿(mào)建站

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)