Why are you creating oMeta again? You only need to have
oMeta = Newobject() once. This is all you should need:
PRIVATE oMeta
>oMeta = NEWOBJECT('DBCXMgr', 'DBCXMGR.VCX')
>IF TYPE('oMeta') <> 'O' OR ISNULL(oMeta)
> * Error message would be here.
> * other code to deal with client.
> CLOSE DATABASE
> CLEAR EVENTS
> CLEAR ALL
> QUIT
>ENDIF
>oMeta.SetDatabase(DBC())
remove next line or use it to replace the first oMeta line.
** oMeta = NEWOBJECT('DBCXMgr', 'DBCXMGR.VCX', '', .F., JustPath(DBC()))
>IF oMeta.oSDTMgr.NeedUpdate()
> WAIT WINDOW "Updating your Application - Please Wait" NOWAIT
> oMeta.oSDTMgr.Update()
> WAIT CLEAR
>ENDIF oMeta.oSDTMgr.NeedUpdate()
>I am new to SDT and am testing the Update on a second machine which has the application installed. I am making changes to the tables on the development machine, and transfer them to the second machine as if it were a client. All of the necessary SDT files have been transferred along with the new VFP files and EXE. The following lines of code are in the MAIN startup program of the app, yet the Update does not run. Any help or suggestions here would be appreciated.
>
>Adam
>
>PRIVATE oMeta
>oMeta = NEWOBJECT('DBCXMgr', 'DBCXMGR.VCX')
>IF TYPE('oMeta') <> 'O' OR ISNULL(oMeta)
> * Error message would be here.
> * other code to deal with client.
> CLOSE DATABASE
> CLEAR EVENTS
> CLEAR ALL
> QUIT
>ENDIF
>oMeta.SetDatabase(DBC())
>oMeta = NEWOBJECT('DBCXMgr', 'DBCXMGR.VCX', '', .F., JustPath(DBC()))
>
>IF oMeta.oSDTMgr.NeedUpdate()
> WAIT WINDOW "Updating your Application - Please Wait" NOWAIT
> oMeta.oSDTMgr.Update()
> WAIT CLEAR
>ENDIF oMeta.oSDTMgr.NeedUpdate()
Mark McCasland
Midlothian, TX USA