I am assuming that you are generating the PK id in the front end. I tried this but decided it was too tough. Instead I have a stored proc that I call from the front end, that returns the next id that I use and insert into my cursor before doing a TABLEUPDATE(1,.F.)


Works for me.


>Hello all,
>
>I'm trying to start to develop an n-tier application and I was going to use the cursor adapter for my data tier.
>I have developed a cursor adapter class which works great except when I am working with an insert. I have a problem getting the record set back if I use an auto increment. To solve this problem I set the PK value before inserting the record. I them update the SQL cmd to reflect the new PK and call the cursorFill() instead of the CursorRefresh. Isn't there an easier way to accomplish this?
>**I added the class code below**
>
>**************************************************
>*-- Class: opersistentdataobject (c:\onicon\classlib\dataobjects.vcx)
>*-- ParentClass: ocursoradapter (c:\onicon\classlib\dataobjects.vcx)
>*-- BaseClass: cursoradapter
>*-- Time Stamp: 05/05/04 04:26:11 PM
>*
>DEFINE CLASS opersistentdataobject AS ocursoradapter
>
>
> idprimarykey = 0
> Name = "opersistentdataobject"
> lnew = .F.
>
>
> *-- Adds a new record to the cursor.
> PROCEDURE add
> LPARAMETERS eItem, cKey, eBefore, eAfter
> SELECT (this.Alias)
> APPEND BLANK
> This.lnew = .T.
> ENDPROC
>
>
> *-- Deletes the record.
> PROCEDURE delete
> SELECT (this.Alias)
> DELETE
> ENDPROC
>
>
> *-- sets the primary id
> PROCEDURE setprimaryid
> LPARAMETERS tnidPrimaryKey
> IF PCOUNT() = 1 AND VARTYPE(tnidPrimaryKey) = 'N'
> this.idprimarykey = tnidPrimaryKey
> ENDIF
> ENDPROC
>
>
> *-- returns the primary id
> PROCEDURE getprimaryid
> RETURN this.idprimarykey
> ENDPROC
>
>
> *-- runs a table update to the cursor
> PROCEDURE update
> LOCAL llReturn
> WITH THIS
> IF this.lnew
> *// If we are inserting a record we will need
> *// to create the id and update it before adding the record.
> .setprimaryid(GETKEY(ALLTRIM(UPPER(.TABLES))))
> SELECT (.alias)
> REPLACE (.KEYFIELDLIST) WITH .getprimaryid()
> *// update the sql statement to match new id.
> .SetSQLStatement()
> ENDIF
> llReturn = TABLEUPDATE(1,.T.,.ALIAS)
> IF llReturn
> IF !this.lnew
> .CURSORREFRESH()
> ELSE
> .CursorFill
> .lnew = .F.
> ENDIF
> ENDIF
> ENDWITH
> RETURN llReturn
> ENDPROC
>
>
> *-- resets changes to the cursur since the last change.
> PROCEDURE revert
> TABLEREVERT(.T,this.Alias)
> ENDPROC
>
>
> PROCEDURE Init
> LPARAMETERS tnidPrimaryKey, tcUniqueQueryName
> IF PCOUNT() >= 1 AND VARTYPE(tnidPrimaryKey) = 'N'
> this.idprimarykey = tnidPrimaryKey
> ENDIF
> IF PCOUNT() >= 2 AND VARTYPE(tcUniqueQueryName) = 'C'
> This.Alias = tcUniqueQueryName
> ENDIF
> This.InsertCmdDataSourceType ="NATIVE"
> This.UpdateCmdDataSourceType ="NATIVE"
> This.InsertCmdDataSourceType ="NATIVE"
> this.WhereType = 2
> ENDPROC
>
>
> PROCEDURE BeforeInsert
> LPARAMETERS cFldState, lForce, cInsertCmd
> WITH THIS
>
> ENDWITH
> DODEFAULT( cFldState, lForce, cInsertCmd)
> ENDPROC
>
>
>ENDDEFINE
>*
>*-- EndDefine: opersistentdataobject
>**************************************************