2017-04-18 33 views
0

我怎麼能叫下面的代碼,而不是如果SqlCommand的語句的存儲過程,存儲過程中配合

<WebMethod> _ 
Public Function GetPtPrt() As String 
    Dim constr As String = ConfigurationManager.ConnectionStrings("ARTSQLConStrng").ConnectionString 
    Using con As New SqlConnection(constr) 
     Using cmd As New SqlCommand("SELECT TblRegjoin.PrtFilenum, TblReg.Fname + ' ' + TblReg.Sname + ' ' + TblReg.Lname, PrtStatus FROM TblReg INNER JOIN TblRegjoin ON TblReg.Filenum = TblRegjoin.PrtFilenum WHERE (TblRegjoin.PtFilenum = 15090248) ORDER BY TblRegjoin.PrtFilenum") 
      cmd.Connection = con 
      Dim ds As New DataSet() 
      Using sda As New SqlDataAdapter(cmd) 
       sda.Fill(ds, "PtPrt") 
      End Using 
      Return ds.GetXml() 
     End Using 
    End Using 
End Function 
+1

'使用cmd作爲新的SqlCommand(「StoredProcedureName」,con)'後跟'cmd.CommandType = CommandType.StoredProcedure'可以解決您的問題。 –

+0

你可以請張貼它作爲一個答案,而不是一個評論,所以我可以標記它,,,它工作,,,非常感謝 – JSON

回答

2

試試這個:

<WebMethod> _ 
    Public Function GetPtPrt() As String 
     Dim constr As String = ConfigurationManager.ConnectionStrings("ARTSQLConStrng").ConnectionString 
     Using con As New SqlConnection(constr) 
      Using cmd As New SqlCommand("ProcedureName", con) 
       cmd.CommandType = CommandType.StoredProcedure 
       cmd.Connection = con 
       Dim ds As New DataSet() 
       Using sda As New SqlDataAdapter(cmd) 
        sda.Fill(ds, "PtPrt") 
       End Using 
       Return ds.GetXml() 
      End Using 
     End Using 
    End Function 

希望它能幫助。