Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Givng a new name to multiple Cursors for each month
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Base de données, Tables, Vues, Index et syntaxe SQL
Versions des environnements
Visual FoxPro:
VFP 9 SP2
Database:
Visual FoxPro
Divers
Thread ID:
01512741
Message ID:
01512742
Vues:
76
This message has been marked as the solution to the initial question of the thread.
>I would like to give a new name to each of the 12 months of data cursors that I will produce in the below SQL statements, but the below isn't working. How do you give a variable name to the cursor name?

Try
FOR nMonth = 1 TO 12
	lcMonth = GetAlphaMonth(nMonth)
	ldDate = date(2010,nMonth,1) && First Day of the month

	ldStartOfMonth=ldDate
	ldStartOfNextMonth=GOMONTH(ldDate,1) && First day of next month
	
	SELECT lcMonth+" 2010" AS Month_Year, ;
			GrpID, Emp_ID, ;
			SUM(bill_prem) AS Month_Billed, ;
			BnftName, ;
			0000000.00 AS Month_Collected ;
		FROM tmp1 ;
		WHERE bill_date>= ldStartOfMonth and  bill_date<ldStartOfNextMonth ;
		INTO CURSOR ("tmp" +alltrim(str(nMonth)));
		GROUP BY GrpID, Emp_ID, BnftName
	
ENDFOR
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