looping through the records of a standalone table

Question

I am using VBA in version 9.3.1. I just want to loop through the records of a standalone table I added to a mxd.

Dim pAccessWSF As IWorkspaceFactory
Dim pWorkSpace As IWorkspace
Dim pFeatws As IFeatureWorkspace
Dim ptable As ITable

Set pAccessWSF = New AccessWorkspaceFactory

Set pWorkSpace = pAccessWSF.OpenFromFile("C:\Calsmoke\CalSmoke.mdb", 0)
Set pFeatws = pWorkSpace
Set ptable = pFeatws.OpenTable("Daysmoke_emissions")

Dim pMap As IMap
Dim pMx As IMxDocument
Set pMx = ThisDocument
Set pMap = pMx.FocusMap
Set pStTab = New StandaloneTable
Set pStTab.Table = ptable
Set pStTabColl = pMap
pStTabColl.AddStandaloneTable pStTab
pMx.UpdateContents

Dim pRow As IRow

Set pRow = pStTab.Table.GetRow(1)

When I execute the last line of code I get the following error message a run time error -2147467259: syntax error(missing operator) in query expression '=0'.

Thanks,

David

DavidKelly1 · Answer

The Update cursor worked.  Thank you!  I was getting very frustrated.

vincentLahaye · Answer

hi,

did you tried update cursor.  
Set pTabCursor = pStTab.Table.update(Nothing, false)
Set pRow = pTabCursor.NextRow

While Not pRow Is Nothing

Set pPoint = New Point

pPoint.x = pRow.Value(10)

Debug.Print pPoint.x

pPoint.y = pRow.Value(11)

pPoint.PutCoords pRow.Value(10), pRow.Value(11)

pPoint.Project pGCS

pRow.Value(12) = pPoint.y

pRow.Value(13) = pPoint.x

pTabCursor.UpdateRow(pRow)

Set pRow = pTabCursor.NextRow

Wend

RenatoSalvaleon3_0-1744289811634.png

GBacon_0-1744290108667.png

DavidKelly1 · Answer

My response above may have not been clear. I am trying to update two lat/long fields in a table in a personal geodatabase; it is a standalone table. Using the code above I can loop through the table and correctly generate the Lat/Longs from the Lambert coordinates in two other fields. Since the table does not have an OID field it will not let me store the generated Lat/Longs in their fields in the table.

How do you update fields in a standalone table in a personal geodatabase?

Thanks for your help,

David Kelly