Agregue el parámetro a dataAdapter.fill()

Question

Estoy intentando agregar un parámetro a un sqlDataAdapter. He intentado usar parameters.add() pero el adaptador no es un sqlCommand. Aquí hay algo de mi código.

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 

Básicamente estoy tratando de hacer algo como esto:

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

Answer 1

Use SelectCommand:

ADA.SelectCommand.Parameters.Add (Nueva SqlParameter ("@ pgid", pgid))

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