>Okay. Here it is:
>
>* get the handle and get the @@identity number
> lnSQLHandle = cursorgetprop('ConnectHandle', (lctable))
> * requery the table with the identity parameter for this record
> lnUpdated = sqlexe(lnSQLHandle, 'Select @@Identity', 'sqlresult')
> If lnUpdated <= 0
> msg = "Identity value was not found -- call a programmer now"
> messagebox(msg, 0+16+0, "Identity Value Failure")
> aerror(aSqlError)
> list memory like aSqlError noconsole to print
> else
> oVar.PrimaryKey = sqlresult.exp
> select (lctable)
> lnUpdated = requery()
> If lnUpdated <=0
> msg = "Verification Requery Failed -- call a programmer now"
> messagebox(msg, 0+16+0, "Validation Requery Error")
> aerror(aSqlError)
> list memory like aSqlError noconsole to print
> else
> endif
> endif
PMFJI but, you need to be careful when reading the PK in a separate call from the insert statement. @@IDENTITY returns the last inserted identity value. If several users are inserting records at the same time or several records are being added you may not get the right PK value.
I know this doesn't answer your question but just wanted to point this out. I do not use RV's myself.
Previous
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only