Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Stopping a SELECT command
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Divers
Thread ID:
00661167
Message ID:
00661186
Vues:
37
>Hi, is there any way to stop a SELECT? There are some queries that can take a long time to complete and I want to enable a "STOP QUERY" feature.
>
>Regards,

To add to previous answers: (from Mike's Asherman code)
		* support user Escapes for interrupting query processing
		prevonesc = on('escape')			&& save previous Escape handler
		prevescape = set('escape')			&& previous Escape enablement state
		set escape on						&& enable escape handling
		querhalt = .f.						&& allow loop to run until this flag is toggled
		on escape querhalt = .t.			&& force immediate termination if user escapes
		SET TALK ON							&& yields VFP thermometer on slow SELECT - SQL queries
		
		* invoke output generation - multi-line, macro-expanded SELECT statement
		* NSL 10/23/01 Added the groupby clause
		&selectcmd1 ;
		  &selectcmd2 ;
		  &lcgroupbyexp ;
		  &nextdest

* restore temp settings changed surrounding query
		set talk off						&& in case the next line would otherwise cause TALK output
		set talk &prevtalk					&& restore original verbosity setting
		on escape &prevonesc				&& restore previous Escape handler
		set escape &prevescape				&& restore previous Escape enablement
If it's not broken, fix it until it is.


My Blog
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform