LPARAMETERS lCloseAll TRY IF lCloseAll = .T. CLOSE DATABASES ALL ENDIF IF VARTYPE(oVar) # 'O' &&Creation of Empty Object to store Variable Values MakeoVar(SYS(16)) &&Adding a reference to the calling program for log purposes ENDIF PUBLIC lo lo = NEWOBJECT("caUnit") OPEN DATABASE webbanking USE lBankUnit EXCLUSIVE ALTER TABLE lBankUnit ALTER COLUMN UnitID i(4) SELECT lBankUnit SCAN INSERT INTO cUnit (UnitNumber, ; UnitName,; TranDate, ACTIVE) ; VALUES (lBankUnit.UnitNumber, ; PADR(lBankUnit.UnitName,60), TTOD(lBankUnit.TranDate),1)It is at this point that I would like to get the value of the UnitID from cUnit . UnitID is a auto_incremented integer field in the mySQL database. When I look at cUnit the record I just inserted is not there.
DEFINE CLASS caUnit AS CURSORADAPTER TAG = "dsn=WebBanking;uid=root;trusted_connection=no;" HEIGHT = 22 WIDTH = 23 SELECTCMD = "See Init" CURSORSCHEMA = "UNITID I, UNITNUMBER I, UNITNAME C(60), TRANDATE D, ACTIVE I, USERID I" ALIAS = "cUnit" DATASOURCETYPE = "ODBC" FLAGS = 0 KEYFIELDLIST = "See Init" TABLES = "lbankunit" UPDATABLEFIELDLIST = "See Init" UPDATENAMELIST = "See Init" NAME = "caUnit" PROCEDURE INIT LOCAL llReturn DO CASE CASE NOT pemstatus(THIS, '__VFPSetup', 5) THIS.ADDPROPERTY('__VFPSetup', 0) CASE THIS.__VFPSetup = 2 THIS.__VFPSetup = 0 RETURN ENDCASE llReturn = DODEFAULT() *** Select connection code: DO NOT REMOVE SET MULTILOCKS ON ***<DataSource> THIS.DATASOURCE = SQLSTRINGCONNECT([dsn=WebBanking;uid=root;trusted_connection=no;]) ***</DataSource> *** End of Select connection code: DO NOT REMOVE *** Setup code: DO NOT REMOVE ***<SelectCmd> TEXT to This.SelectCmd noshow select lbankunit.UNITID, lbankunit.UNITNUMBER, lbankunit.UNITNAME, lbankunit.TRANDATE, lbankunit.ACTIVE, lbankunit.USERID from lbankunit ENDTEXT ***</SelectCmd> ***<KeyFieldList> TEXT to This.KeyFieldList noshow UNITID ENDTEXT ***</KeyFieldList> ***<UpdateNameList> TEXT to This.UpdateNameList noshow UNITID lbankunit.UNITID, UNITNUMBER lbankunit.UNITNUMBER, UNITNAME lbankunit.UNITNAME, TRANDATE lbankunit.TRANDATE, ACTIVE lbankunit.ACTIVE, USERID lbankunit.USERID ENDTEXT ***</UpdateNameList> ***<UpdatableFieldList> TEXT to This.UpdatableFieldList noshow UNITNUMBER, UNITNAME, TRANDATE, ACTIVE, USERID ENDTEXT ***</UpdatableFieldList> *** End of Setup code: DO NOT REMOVE THIS.ALIAS = 'cUnit' THIS.CURSORFILL() IF THIS.__VFPSetup = 1 THIS.__VFPSetup = 2 ENDIF RETURN llReturn ENDPROC PROCEDURE AUTOOPEN *** Setup code: DO NOT REMOVE IF NOT pemstatus(THIS, '__VFPSetup', 5) THIS.ADDPROPERTY('__VFPSetup', 1) THIS.INIT() ENDIF *** End of Setup code: DO NOT REMOVE ENDPROC ENDDEFINEI'm sure it is something stupid I am forgetting. I appreciate any assistance you can provide.