Re: wwBusiness and SQL Identity column

I have been using SQL Server with a number of applications.
I have subclassed the wwsql class and modified a few of the methods.
Specifically saving data (I have columns that can have default null values, or have a default value like GETDATE() and so my code specifically will not include those fields
on an insert if the value is null. Also, getting back the primary key is valuable too!)
Anyway, here is the sub-classed code of my save method.
Note that after the save of data, I do a specific call to the load method with the primary key to
load the oData object with the values just saved, including the primary key.
The buildrecordinfo is an extra method I added for cases where I wanted to display the date and time of the last edit
(pretty well all my tables have columns for who created the record, when it was created, who modified and when modified.
These date fields are updated by a triggers)

I should be using Scope_Identity() instead of @@Identity but as long as inserts don't add records in other tables I am okay.
But I should update this. (This code has been in place for years!)

LOCAL lcPKField, llRetVal, loRecord, lcSqlCommand, loSQL, loTSql
llRetVal = .T.

THIS.SetError()

*** Optional auto Validation
IF THIS.lValidateOnSave AND ;
      !THIS.VALIDATE()
   RETURN .F.
ENDIF

loRecord = THIS.oData

IF !THIS.OPEN()
   RETURN .F.
ENDIF

   LOCAL loSQL as wwsql, llUseNamedParameters
   loSQL = THIS.oSQL
   loSQL.lError = .F.
   
   llUseNamedParameters = WWVFPVERSION > 7
   *--llUseNamedParameters = .f.
   
   DO CASE
   CASE THIS.nupdatemode = 2      && New
      loSQL.cSQL = loSQL.SQLBuildInsertStatementFromObject(loRecord,THIS.cTableName,,llUseNamedParameters)
      loSQL.Execute("", this.csqlcursor)
 
      IF loSQL.lError
         THIS.SetError(loSQL.cErrorMsg)
         RETURN .F.
      ENDIF
      THIS.nupdatemode = 1
      
      *-- since we have just inserted a record, let's get the IDENTITY Value
      *-- that we can pass back
       loSQL.cSQL = [SELECT @@IDENTITY]
      loSQL.Execute([SELECT ident = @@IDENTITY], [c_ident])

      IF loSQL.lError
         THIS.SetError(loSQL.cErrorMsg)
         RETURN .F.
      ENDIF
     
     	pkfield = [this.odata.] + this.cpkfield
     	&pkfield = c_ident.ident
     	
		*-- reload the data into the data object
		this.load(c_ident.ident)
     	USE IN c_ident
		this.buildrecordinfo()
				     	
   CASE THIS.nupdatemode = 1      && Edit
      *** Check if exists first
      lcPKField = THIS.cPKField
      loSQL.Execute("select " + lcPKField +" from " + THIS.cTableName+ " where " + THIS.cPKField + "=" + TRANS(loRecord.&lcPKField) )
      IF loSQL.lError
         THIS.SetError(loSQL.cSQL)
         RETURN .F.
      ENDIF

      IF RECCOUNT() < 1
         lcSqlCommand = loSQL.SQLBuildInsertStatementFromObject(loRecord,THIS.cTableName,,llUseNamedParameters)
      ELSE
         lcSqlCommand = loSQL.SqlBuildUpdateStatementFromObject(loRecord,THIS.cTableName,lcPKField,;
            IIF(THIS.lcompareupdates,THIS.oOrigData,.F.),,llUseNamedParameters )
      ENDIF
      
      IF !EMPTY(lcSqlCommand)
         loSQL.Execute( lcSqlCommand, this.csqlcursor)
      ENDIF

      IF loSQL.lError
         THIS.SetError(loSQL.cErrorMsg)
         RETURN .F.
      ENDIF
      
      this.load(loRecord.&lcPKField)
      this.buildrecordinfo()

   ENDCASE


*-- clear any parameters in the parameter object
loSQL.oParameters = NULL

RETURN llRetVal

Bob

Hi,

I am going to use a wwBusiness subclass to connect to an MS SQL table, which has an identity (auto increment) primary key column. I am using wwSQL to connect to the SQL server. I assume that I have to specify the PK column for cSkipFieldsForUpdates. When I insert a new row, the PK column will not have a value. When I save the row, will the wwBusiness class refresh the identity value or do I have to make a call to @@IDENTITY?

Thanks,

David