VB.NET在使用帶參數(shù)的存儲過程進(jìn)行調(diào)用的時候，應(yīng)該如何編寫具體的代碼來進(jìn)行功能去求的實現(xiàn)呢？下面就為大家?guī)砹酥饕牟僮骷记?，希望能夠在大家實際編寫的過程中給與一些幫助。#t#

VB.NET調(diào)用存儲過程返回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. //評價標(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ā)生錯誤,返回錯誤代碼  
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)用存儲過程:

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)用存儲過程返回數(shù)組字符串

REM 執(zhí)行存儲過程,返回一數(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 

以上就為我們?yōu)榇蠹医榻B的VB.NET調(diào)用存儲過程的相關(guān)概念及操作方法。