VB.NET中怎么调用存储过程

本篇文章给大家分享的是有关VB.NET中怎么调用存储过程,小编觉得挺实用的,因此分享给大家学习,希望大家阅读完这篇文章后可以有所收获,话不多说,跟着小编一起来看看吧。

创新互联公司长期为超过千家客户提供的网站建设服务,团队从业经验10年,关注不同地域、不同群体,并针对不同对象提供差异化的产品和服务;打造开放共赢平台,与合作伙伴共同营造健康的互联网生态环境。为邛崃企业提供专业的做网站、成都网站制作,邛崃网站改版等技术服务。拥有十多年丰富建站经验和众多成功案例,为您定制开发。

  • 八种常用VB.NET语法详解

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

  • 实际操作VB.NET启动外部程序技巧讲解

  • 迅速实现VB.NET图像操作方法简介

  • VB.NET多窗体实际编写方式讲解

VB.NET调用存储过程返回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. //评价标准  

  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; //无数据  

  26. }  

  27. else  

  28. {  

  29. return ret;  

  30. }  

  31. }  

  32. catch(Exception e)  

  33. {  

  34. //数据库操作发生错误,返回错误代码  

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

  36. return -1001;  

  37. }  

  38. finally  

  39. {  

  40. Constring.Close();  

  41. cmd.Parameters.Clear();  

VB.NET调用存储过程:

  1. Private Sub BindingDataGrid_Query()  

  2. Dim ds As System.Data.DataSet  

  3. Zehua.Water.Appraise.SingleSTCD
    ("1999-5-1", "1999-9-1", 1, "Ⅲ", "", 
    "50181300,50185050,50181350,50185100,
    50185150,50185200,50185250,50181200,
    50185150,51282300", ds)  

  4. DataGrid_Query.DataSource = ds 

  5. DataGrid_Query.DataBind()  

  6. End Sub 

VB.NET调用存储过程返回数组字符串

REM 执行存储过程,返回一数组

  1. Public Shared Function ExecuteSP_ToArrary
    (ByVal sConnString As String, ByVal 
    Text_STCD As String, ByVal Text_TIME 
    As String, ByRef TableInfo() As String)  

  2. Dim conn As OleDbConnection = 
    New OleDbConnection(sConnString)  

  3. ReDim TableInfo(2)  

  4. Try  

  5. conn.Open()  

  6. Dim command As OleDbCommand = 
    New OleDbCommand("P_GET_QueryValue", conn)  

  7. command.CommandType = CommandType.
    StoredProcedure  

  8. 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)}  

  9. sqlParams(2).Direction = ParameterDirection.Output  

  10. sqlParams(3).Direction = ParameterDirection.Output  

  11. sqlParams(4).Direction = ParameterDirection.Output  

  12. Dim i As Integer = 0 

  13. While i < sqlParams.Length 

  14. command.Parameters.Add(sqlParams(i))  

  15. i += 1  

  16. End While  

  17. command.ExecuteNonQuery()  

  18. If sqlParams(2).Value.ToString().Length > 0 Then  

  19. TableInfo(0) = sqlParams(2).Value.ToString()  

  20. Else  

  21. End If  

  22. If sqlParams(3).Value.ToString().Length > 0 Then  

  23. TableInfo(1) = sqlParams(3).Value.ToString()  

  24. Else  

  25. End If  

  26. If sqlParams(4).Value.ToString().Length > 0 Then  

  27. TableInfo(2) = sqlParams(4).Value.ToString()  

  28. Else  

  29. End If  

  30. Catch ex As Exception  

  31. ZeHua.Log.exNoteBugs(ex, "SigleStcdEdit.aspx") 
    'sb.Append(ex.Message)  

  32. Finally  

  33. conn.Close()  

  34. End Try  

  35. End Function 

以上就是VB.NET中怎么调用存储过程,小编相信有部分知识点可能是我们日常工作会见到或用到的。希望你能通过这篇文章学到更多知识。更多详情敬请关注创新互联行业资讯频道。


当前标题:VB.NET中怎么调用存储过程
网站路径:http://pwwzsj.com/article/iheeho.html