Not using the GetQueryExecutionParametersByID method but we had a discussion about a week ago on using other methods in the dynamic query that might accomplish the same goal. Message number: 92175 is the start of the discussion.
JK
JK
--- In vantage@yahoogroups.com, "jeffery_p_sanders" <jps@...> wrote:
>
>
> Does anyone have any example VB code for sending parameters to a BAQ using the Dynamic Query Adapter's GetQueryExecutionParametersByID method?
>
> I'm very close but can't get the syntax correct on the ExecutionParameter dataset.
>
> I don't see the ExecutionParameters in object explorer under the DynamicQueryAdapter.
>
> I can get the correct results using the BL tester.
>
> My BAQ has two mandatory parameters: StartDate and EndDate
>
> My code:
>
> Dim startDate as string = epiDateTimeEditorC1.Value
> Dim endDate as string = epiDateTimeEditorC2.Value
>
> Dim LAdpt As DynamicQueryAdapter = New DynamicQueryAdapter(UD35Form)
> LAdpt.BOConnect()
>
> Dim ds As Epicor.Mfg.BO.QueryExecutionDataSet = LAdpt.GetQueryExecutionParametersByID("MyBAQName")
>
> 'This does not work:
> ds.ExecutionParameter.NewExecutionParameterRow()
> ds.ExecutionParameter.rows(0)("ParameterName") = "StartDate"
> ds.ExecutionParameter.rows(0)("ParameterValue") = startDate
> ds.ExecutionParameter.rows(0)("ValueType") = "Date"
> ds.ExecutionParameter.rows(0)("IsEmpty") = false
> ds.ExecutionParameter.rows(0)("RowIdent") = "A"
>
>
> ds.ExecutionParameter.NewExecutionParameterRow()
> ds.ExecutionParameter.rows(0)("ParameterName") = "EndDate"
> ds.ExecutionParameter.rows(0)("ParameterValue") = endDate
> ds.ExecutionParameter.rows(0)("ValueType") = "Date"
> ds.ExecutionParameter.rows(0)("IsEmpty") = false
> ds.ExecutionParameter.rows(0)("RowIdent") = "A"
>
> dim resultFieldList as string = string.empty
>
> LAdpt.ExecuteByIDParametrized("MyBAQName",ds,resultFieldList,9000, True)
>
> Dim dSet as DataSet = LAdpt.QueryResults
> epiUltraGridC1.datasource = dSet
> LAdpt.Dispose()
>
> Jeff Sanders
>