2017-04-18 83 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 

希望它能帮助。