Latest Contributions by AdrianWelsh

I love using Flickr for hosting, storing, and sharing the photos that I take of my family.  I also like how you can geotag your photos in Flickr as well.  For a while, I really wanted to do more with this ability to geotag, such as add my photos to an Esri Story Map.  However, it seemed that this ability did not exist just yet. I recall reading an Esri blog post from Bern Szukalski about possibly using the features found in pipes.yahoo.com to try and link your Flickr photos to an ArcGIS Online map (link here) that really confused me.  After about a year later, a new blog post came out (that turned into an ArcWatch Article) that demonstrated how to easily use geotagged photos from Flickr and put them in a story map (link here). So, without much modifications, here is my first Story Map! Trip to San Diego - July 2014 This is my first story map, so I am still tinkering around with it some! I am not sure if that link will work, so here is the url: http://www.arcgis.com/apps/MapTour/index.html?appid=c9e34c9abf90460796dd0a438ca3ee3f&webmap=92649bcd58204a72bcb6a3148676…‌ Please let me know what you think!  ~Adrian ... View more

I'm getting back into Python coding and couldn't find any examples of this.  I basically want to write a script that displays an input box where the user will type in an address.  I want the address to be found and then zoomed to on the map.  Later on, this location will have a point added to it.  But my question is, is there a way to use Python to find one user-entered address? Thanks! ... View more

I had code written a long time ago (probably borrowed from ArcGIS 😎 in VBA where an input box pops up and the user enters an address.  This address is then geocoded, and a feature class is updated with that point and other info is thrown in there. Is there any sample code for doing something like this in Python in ArcGIS 10?  I don't know Python very well and I can't figure out how to have any user input in the form of a box and then have python geocode this single address based on a geocoder that's already in the mxd.  It seems that any Python geocoding code that I've seen wants to geocode a table only, not a single inputted address. Thanks in advance and I may post this on the ArcObjects board to see about ideas from there (need to migrate my old, broken VBA code!) ... View more

I have recently found a script from ArcScripts on how to get an Access table in ArcGIS programmatically and it works well.  But this is for Access 2003 (.mdb extension) and earlier.  The code is posted below, and I want to know how to modify it for using Access 2007 (.accdb extension) and later databases. Attribute VB_Name = "Access_connect" Sub Open_Access_Connect()   'V. Guissard Jan. 2007   On Error GoTo EH   Dim data_source As String   Dim pTable As ITable   Dim TableName As String     Dim pFeatWorkspace As IFeatureWorkspace   Dim pMap As IMap   Dim mxDoc As IMxDocument   Dim pPropset As IPropertySet   Dim pStTab As IStandaloneTable   Dim pStTabColl As IStandaloneTableCollection   Dim pWorkspace As IWorkspace   Dim pWorkspaceFact As IWorkspaceFactory       Set pPropset = New PropertySet   ' Get MDB file name   data_source = GetFolder("mdb")   ' Connect to the MDB database   pPropset.SetProperty "CONNECTSTRING", "Provider=Microsoft.Jet.OLEDB.4.0;" _   & "Data source=" & data_source & ";User ID=Admin;Password="   Set pWorkspaceFact = New OLEDBWorkspaceFactory   Set pWorkspace = pWorkspaceFact.Open(pPropset, 0)   Set pFeatWorkspace = pWorkspace     ' Get table name   TableName = SelectDataSet(pFeatWorkspace, "Table")   ' Open the table   Set pTable = pFeatWorkspace.OpenTable(TableName)   'Create Table collection and add the table to ArcMap   Set mxDoc = ThisDocument   Set pMap = mxDoc.FocusMap   Set pStTab = New StandaloneTable   Set pStTab.Table = pTable   Set pStTabColl = pMap   pStTabColl.AddStandaloneTable pStTab     ' Update ArcMap Source TOC   mxDoc.UpdateContents      Exit Sub   EH:     MsgBox "Access connect: " & Err.Number & " " & Err.Description End Sub Public Function GetFolder(Optional aFilter As String) As String   ' Open a GUI to let the user select a Folder path name (by default) or :   ' Set aFilter = "shp" to get a shapefile name   ' Set aFilter = "mdb" to get an MS Access file name   ' Return the Folder Path or phath & file name As String   ' V. Guissard Jan. 2007     Dim pGxDialog As IGxDialog   Dim pFilterCol As IGxObjectFilterCollection   Dim pCurrentFilter As IGxObjectFilter   Dim pEnumGx As IEnumGxObject     Select Case aFilter     Case "shp"       Set pCurrentFilter = New GxFilterShapefiles       aTitle = "Select Shapefile"     Case "mdb"       Set pCurrentFilter = New GxFilterContainers       aTitle = "Select MS Access database"     Case Else       Set pCurrentFilter = New GxFilterBasicTypes       aTitle = "Select Folder"   End Select     Set pGxDialog = New GxDialog   Set pFilterCol = pGxDialog   With pFilterCol     .AddFilter pCurrentFilter, True   End With   With pGxDialog     .Title = aTitle     .ButtonCaption = "Select"   End With     If Not pGxDialog.DoModalOpen(0, pEnumGx) Then     Smp = MsgBox("No selection : Exit", vbCritical)     End     'Exit Function 'Exit if user press Cancel   End If   GetFolder = pEnumGx.Next.FullName   End Function Public Function SelectDataSet(pWorkspace As IWorkspace, Optional theDataType As String) As String   ' Open a GUI to let the user select a DataSet into a Workspace   ' (Table or Request into an MS Access Database or a Geodatabase File)   ' Set pWorkspace to the DataSet IWorkspace   ' Set theDataType = "Table" to select a Table name of the DataSet   ' Return the selected Table or Request Table name As String   ' V. Guissard Jan. 2007       Dim aDataset As Boolean   Dim boolOK As Boolean   Dim DataSetList As New Collection   Dim datasetType As Integer   Dim n As Integer     Dim pDataSetName As IDatasetName   Dim pListDlg As IListDialog   Dim pEnumDatasetName As IEnumDatasetName     ' Set the Dataset Type   Select Case theDataType     Case "Table"       datasetType = 10     Case Else       Answ = MsgBox("Need a Dataset Type : Exit", vbCritical, "SelectDataset")       End   End Select     ' Get the Dataset Names included in the workspace   Set pEnumDatasetName = pWorkspace.DatasetNames(datasetType)     ' Create the Dataset Names List Dialog   aDataset = False   Set pListDlg = New ListDialog   pEnumDatasetName.Reset   Set pDataSetName = pEnumDatasetName.Next   Do While Not pDataSetName Is Nothing                pListDlg.AddString pDataSetName.name        DataSetList.Add (pDataSetName.name)         Set pDataSetName = pEnumDatasetName.Next         aDataset = True   Loop     ' Open a GUI for the user to select a dataset   If aDataset Then     boolOK = pListDlg.DoModal("Select a " & theDataType, 0, Application.hwnd)     n = pListDlg.choice     If (n <> -1) Then         SelectDataSet = DataSetList(n + 1)     Else         Sup = MsgBox("No DataSet selected : EXIT", vbCritical, "SelectDataset")         End     End If   End If End Function Here is the link to the ArcScript: http://arcscripts.esri.com/Data/AS14882.bas PS I know this code is written in VBA and I don't know if a modified version is in VB.NET or whatever else language. Thanks, Adrian ... View more

I am using a standalone form to get a feature layer and then put it in an open ArcMap project.  It's a short code and it works in VBA, but I don't know why it wouldn't work in a VB.NET form.  Here is the code Private Sub btnImportArcMap_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnImportArcMap.Click         Dim pMxDoc As IMxDocument         Dim pMap As IMap         pMxDoc = m_pApp.Document         pMap = pMxDoc.FocusMap         Dim pFLayer As IFeatureLayer = New FeatureLayer         Dim pFClass As IFeatureClass         Dim pGPUtilities As IGPUtilities = New GPUtilities         Try             pFClass = pGPUtilities.OpenFeatureClassFromString("C:\Visualization.gdb\temp")             pFLayer.FeatureClass = pFClass             pFLayer.Name = pFClass.AliasName             pMap.AddLayer (pFLayer)             pMxDoc.UpdateContents()             pMxDoc.ActiveView.Refresh()         Catch ex As Exception             MessageBox.Show (ex.Message)         End Try         MessageBox.Show ("Complete")     End Sub I have a sub before this that calls the m_pApp as IApplication and opens a new ArcMap project.  The problem with my code is at the pMap.AddLayer (pFLayer) part.  Can anyone tell me what I need to add or change to this code? Thanks! ... View more