日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

RELATEED CONSULTING
相關(guān)咨詢
選擇下列產(chǎn)品馬上在線溝通
服務(wù)時間：8:30-17:00
你可能遇到了下面的問題
關(guān)閉右側(cè)工具欄

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營銷解決方案
VB.NET調(diào)用存儲過程詳細代碼編寫方式解讀

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

創(chuàng)新互聯(lián)是一家專注于網(wǎng)站設(shè)計制作、成都網(wǎng)站設(shè)計與策劃設(shè)計,項城網(wǎng)站建設(shè)哪家好?創(chuàng)新互聯(lián)做網(wǎng)站,專注于網(wǎng)站建設(shè)十多年,網(wǎng)設(shè)計領(lǐng)域的專業(yè)建站公司;建站業(yè)務(wù)涵蓋:項城等地區(qū)。項城做網(wǎng)站價格咨詢:18982081108

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. //評價標準  
  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)用存儲過程:

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

VB.NET調(diào)用存儲過程返回數(shù)組字符串

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

 
 
 
      
  
  
  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.   
  
  
  2. Dim conn As OleDbConnection = 
    New OleDbConnection(sConnString)  
    3.   
  
  
  3. ReDim TableInfo(2)  
    4.   
  
  
  4. Try  
    5.   
  
  
  5. conn.Open()  
    6.   
  
  
  6. Dim command As OleDbCommand = 
    New OleDbCommand("P_GET_QueryValue", conn)  
    7.   
  
  
  7. command.CommandType = CommandType.
    StoredProcedure  
    8.   
  
  
  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.   
  
  
  9. sqlParams(2).Direction = ParameterDirection.Output  
    10.   
  
  
  10. sqlParams(3).Direction = ParameterDirection.Output  
    11.   
  
  
  11. sqlParams(4).Direction = ParameterDirection.Output  
    12.   
  
  
  12. Dim i As Integer = 0 
    13.   
  
  
  13. While i < sqlParams.Length 
    14.   
  
  
  14. command.Parameters.Add(sqlParams(i))  
    15.   
  
  
  15. i += 1  
    16.   
  
  
  16. End While  
    17.   
  
  
  17. command.ExecuteNonQuery()  
    18.   
  
  
  18. If sqlParams(2).Value.ToString().Length > 0 Then  
    19.   
  
  
  19. TableInfo(0) = sqlParams(2).Value.ToString()  
    20.   
  
  
  20. Else  
    21.   
  
  
  21. End If  
    22.   
  
  
  22. If sqlParams(3).Value.ToString().Length > 0 Then  
    23.   
  
  
  23. TableInfo(1) = sqlParams(3).Value.ToString()  
    24.   
  
  
  24. Else  
    25.   
  
  
  25. End If  
    26.   
  
  
  26. If sqlParams(4).Value.ToString().Length > 0 Then  
    27.   
  
  
  27. TableInfo(2) = sqlParams(4).Value.ToString()  
    28.   
  
  
  28. Else  
    29.   
  
  
  29. End If  
    30.   
  
  
  30. Catch ex As Exception  
    31.   
  
  
  31. ZeHua.Log.exNoteBugs(ex, "SigleStcdEdit.aspx") 
    'sb.Append(ex.Message)  
    32.   
  
  
  32. Finally  
    33.   
  
  
  33. conn.Close()  
    34.   
  
  
  34. End Try  
    35.   
  
  
  35. End Function 
    36.

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


名稱欄目：VB.NET調(diào)用存儲過程詳細代碼編寫方式解讀
文章URL：http://m.5511xx.com/article/djpppdd.html