<output id="os3gq"><ruby id="os3gq"></ruby></output>

    1. <mark id="os3gq"></mark>
    2. 調用參數存儲過程-螢火蟲
      Access軟件網QQ交流學習群(群號碼198465573),歡迎您的加入!
      首頁 >技術文章> ADP及SQL SERVER


      調用參數存儲過程

      發表時間:2018/6/27 10:52:47 評論(0) 瀏覽(2315)  評論 | 加入收藏 | 復制
         
      摘 要:調用參數存儲過程兩種方法。
      正 文:

      具體示例代碼如下:

      第一種方法:


      Public Sub Ex_Parameter()
          Dim cnnDB As New ADODB.Connection
          Dim cmdObject As New ADODB.Command
          Dim parInput1 As ADODB.Parameter
          Dim parInput2 As ADODB.Parameter
          Dim parOutput As ADODB.Parameter
          Set cnnDB = CurrentProject.Connection    
          cmdObject.ActiveConnection = cnnDB
          cmdObject.CommandText = "訂單日期筆數查詢SP"
          cmdObject.CommandType = adCmdStoredProc
          Set parInput1 = cmdObject.CreateParameter _
                          ("Para1", adDate, adParamInput, , "2018/6/26")                              
          cmdObject.Parameters.Append parInput1
          cmdObject.Execute
          Debug.Print "從" & parInput1.Value & "到" & parInput2.Value & _
                      "共有" & parOutput.Value & "筆訂單"
          cnnDB.Close 
          Set cnnDB = Nothing
      End Sub

      第二種方法:



      Public Sub Ex_Parameter()
          Dim cnnDB As New ADODB.Connection
          Dim cmdObject As New ADODB.Command
          Dim parInput1 As ADODB.Parameter
          Dim parInput2 As ADODB.Parameter
          Dim parOutput As ADODB.Parameter
          Set cnnDB = CurrentProject.Connection    
          cmdObject.ActiveConnection = cnnDB
          cmdObject.CommandText = "訂單日期筆數查詢SP"
          cmdObject.CommandType = adCmdStoredProc         
          Set parInput2 = cmdObject.CreateParameter
          parInput2.Name = "Para2" 
          parInput2.Direction = adParamInput
          parInput2.Type = adDate 
          parInput2.Value = "2018/6/27"                               
          cmdObject.Parameters.Append parInput2
          Set parOutput = cmdObject.CreateParameter _
                          ("RowCount", adInteger, adParamOutput)                             
          cmdObject.Parameters.Append parOutput
          cmdObject.Execute
          Debug.Print "從" & parInput1.Value & "到" & parInput2.Value & _
                      "共有" & parOutput.Value & "筆訂單"
          cnnDB.Close 
          Set cnnDB = Nothing
      End Sub



      Access軟件網交流QQ群(群號:198465573)
       
       相關文章
      快速開發平臺--用Access命令按鈕執行SQL存儲過程的方法  【紅塵如煙  2014/1/26】
      微軟未公開的SQLServer存儲過程及有用的函數  【金宇  2015/6/2】
      在Access快速開發平臺中調用SqlServer存儲過程優化性能...  【紅塵如煙  2017/10/20】
      獲取SQL SERVER某個數據庫中所有存儲過程的參數  【宏鵬  2017/12/13】
      平臺企業版如何運行后臺sql中其他數據庫中的存儲過程  【123  2018/4/9】
       
       訪客評論
      總記錄:0篇  頁次:0/0 9 1 :
       
       發表評論
      評論內容 (必填)

      常見問答
      技術分類
      相關資源
      文章搜索
      關于作者

      螢火蟲

      文章分類

      文章存檔

      友情鏈接
       
         
      湖北11选5