Public Shared Function DoQuery (ByVal ResourceName As String, ByVal layerName As String, ByVal adfMap Как ESRI.ArcGIS.ADF.Web.UI.WebControls.Map, ByVal WherQ As String) Как DataTable
' Get the ID of the layer to query
Dim layerID As String = GetLayerID(resourceName, layerName, adfMap)
Dim _WherQ = ""
_WherQ = Replace(WherQ, "where", "")
Dim Qf As QueryFilter = New QueryFilter()
Qf.MaxRecords = 10000
Qf.ReturnADFGeometries = True
_WherQ = "OBJECTID>0"
Qf.WhereClause = _WherQ
' Get a query functionality from the map resource to query
Dim mapResource As IMapResource = adfMap.MapResourceManagerInstance.GetResource(resourceName)
Dim queryFunctionality As IQueryFunctionality = TryCast(mapResource.CreateFunctionality(GetType(IQueryFunctionality), Nothing), IQueryFunctionality)
Dim dt As System.Data.DataTable
dt = queryFunctionality.Query(Nothing, layerID, Qf)
Return dt
End Function
Может вы делитесь своими кодами? –