Question

I have a query that will go away an and find data

 Dim HSNs As String = String.Join(",", ListOfHSNs.Cast(Of String)().ToArray())



        Dim query As String = "SELECT VALUE O FROM v_BillData AS O WHERE O.HSNumber IN {'" & HSNs & "'}"



        Dim hs As New ObjectQuery(Of v_BillData)(query, CType(Session("ObjectCon"), ObjectContext))

what I now wish to do is to use the results of this query to databind to a EntityDataSource
How can I do this?

Answer 1

You can try to use the Selecting EntityDataSource event like in the following example:

Protected Sub EntityDataSource1_Selecting(ByVal sender As Object, ByVal e As EntityDataSourceSelectingEventArgs)
  Dim HSNs As String = String.Join(",", ListOfHSNs.Cast(Of String)().ToArray())
  Dim query As String = "SELECT VALUE O FROM v_BillData AS O WHERE O.HSNumber IN {'" & HSNs & "'}"
  Dim source As EntityDataSource = Nothing
  source = TryCast(Me.Page.FindControl("EntityDataSource1"),EntityDataSource)
  If (Not source Is Nothing) Then
    source.EntitySetName = Nothing
    source.CommandText = query
  End If
End Sub

You should set EntitySetName to Nothing because it will throw an error if you have setup EntityDataSource before.