将参数添加到dataAdapter.fill（）

Question

我想添加一个参数到sqlDataAdapter。我试图使用parameters.add（），但适配器不是一个sqlCommand。这是我的一些代码。

Private Sub convertToCSV(ByVal SqlQuery As String) 
     Dim Dt As New DataTable() 
     Dim SqlCon As New SqlConnection("Data Source=db;Initial Catalog=productionservicereminder;User Id=id;Password=pass;") 
     Dim Ada As New SqlDataAdapter(SqlQuery, SqlCon) 

     Ada.Fill(Dt) 

    Public Sub excSP(ByVal ReprtID As Integer, ByVal pgid As Integer) 

convertToCSV(sql4) 

End Sub 

基本上我试图做这样的事情：

Ada.Parameters.Add(New SqlParameter("@pgid", pgid)) 

Answer 1

使用的SelectCommand：

ADA.SelectCommand.Parameters.Add（新的SqlParameter（ “@ PGID”，PGID） ）

http://msdn.microsoft.com/en-us/library/system.data.sqlclient.sqldataadapter.selectcommand.aspx