Set objLayer = Application.Map.Layers("Parcel") Dim pDS Set pDS = Application.Map.Layers("Parcel").DataSource Dim pRS Set pRS = pDS.Execute("SELECT * FROM PARCEL WHERE APN = 225112008") If (pRS is Nothing) Then MsgBox("No Record Found!") Exit Sub End If pRS.MoveFirst Do While Not pRS.EOF msgBox(pRS.Fields(3).Name & ": " & pRS.Fields(3).Value & vbnewline & pRS.Fields(5).Name & ": " & pRS.Fields(5).Value) pRS.MoveNext Loop
Angemeldete Mitglieder können Beiträge verfassen, Updates folgen und mehr. Neu hier? Registriere ein kostenloses Konto.
Find useful guides, FAQs, and documents to help you navigate and make the most of Esri Community.