>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.
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement