Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Structural Changes
Message
From
04/04/2000 00:09:39
Jill Derickson
Software Specialties
Saipan, CNMI
 
 
To
03/04/2000 20:19:37
Stan Vaninger
Mitek Industries, Inc
Missouri, United States
General information
Forum:
Visual FoxPro
Category:
Stonefield
Miscellaneous
Thread ID:
00354149
Message ID:
00354798
Views:
18
Stan,

>Is your update program written in VFP or something else? If in VFP, how is it executed at a client site that does not have VFP installed?
VFP...I compile it into an exe file.

> Can you send me some or all of the code you use?
>
>Stan

I basically bring up a form telling the user that the tables will be updated and that no other users can be accessing the files when it runs...they can Continue or Cancel.

In the Click method of the Continue button is:
PRIVATE oMeta

oMeta = NewObject( 'DBCXMgr', 'DBCXMGR.VCX', "", IIF( Debugging, .T., .F. ) )
IF TYPE( 'oMeta' ) <> 'O' or IsNull( oMeta )
* display an error message and exit, because DBCX cannot be used
	WAIT WINDOW "Cannot open DBCXMgr..."
ELSE
	oMeta.SetDatabase(dbc())
	lnTables = adbObjects( laTables, 'Table' )	&& get number of tables
	FOR lnI = 1 TO lnTables
		IF oMeta.oSDTMgr.NeedUpdate( laTables[ lnI ] )
			lSuccess = oMeta.oSDTMgr.Update( laTables[ lnI ] )
			IF lSuccess
				WAIT WINDOW "Updated " + ALLTRIM( laTables[ lnI ] )
			ENDIF
		ENDIF
	NEXT
ENDIF
HTH J
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform