I need to update a table in a remote database. My code seems to be okay. The remote table displays as a cursor in my current app but is blank. Here is the code. By the way there is a record with sys(0) in it.

Public gnIsRung2
pcd1a2 = "'" + sys(0) + "'"
f1 = "supcomid, isrung, actdate"

gnIsRung2 = SQLCONNECT('pdmsupflag')
isrung1 = "Select * From pdmsupt Where AllT(supcomid) == &pcd1a2"


=SQLEXEC(gnIsRung2, isrung1, 'cRuning2')
=CURSORSETPROP("Tables" , "pdmsupt")
=CURSORSETPROP("UpdateNameList" , "supcomid pdmsupt.supcomid, isrung pdmsupt.isrung, actdate pdmsupt.actdate")
=CURSORSETPROP("KeyFieldList", "supcomid, isrung, actdate")
=CURSORSETPROP("UpdatableFieldList", f1)
=CURSORSETPROP("SendUpdates", .T.)
Browse
Go Top
Use
=SQLDISCONNECT(gnIsRung2)