向 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

使用选择命令：

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

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