makeITsimple wiki

Cette page est en lecture seule. Vous pouvez afficher le texte source, mais ne pourrez pas le modifier. Contactez votre administrateur si vous pensez qu'il s'agit d'une erreur.

====== Windev: SQLConnecte exemple ======

<code>
SI SQLConnecte(DBHost, DBUser,DBPass,DBName, DBType) ALORS
	
	Marequete est une chaîne = [
		// SELECT * FROM "%1\mouvement" where EXERCICE = %2 AND Journal="CAVC" AND DateDocument >= %3 AND DateDocument <= %4
		SELECT MVT.Article as REF, ART.LibelléFR, sum(MVT.Quantité) as Quantité, sum(MVT.Prix) as PV FROM "%1\mouvement" MVT left join "%1\Article" ART on MVT.Article = ART.Article where EXERCICE = %2 AND DateDocument >= %3 AND DateDocument <= %4 AND Journal='CAVC' group by MVT.Article, ART.LibelléFR  ORDER BY MVT.ARTICLE DESC
	]
	
	Marequete = ChaîneConstruit(Marequete,COMBO_Dossier.ValeurAffichée, COMBO_Exercice.ValeurAffichée,ChaîneVersDate(SAI_DateDebut), ChaîneVersDate(SAI_DateFin))
	//
	SI SQLExec(Marequete,"REQ1") ALORS
		Trace (Marequete)
		TANTQUE SQLAvance("REQ1") = 0
			TableAjouteLigne(TABLE_Caisse,SQLLitCol("REQ1", 1),SQLLitCol("REQ1", 2) ,SQLLitCol("REQ1", 3),SQLLitCol("REQ1", 4))
			
			
		FIN
		SQLFerme("REQ1")
	SINON 			
		//Trace (Marequete)
		ToastAffiche("Requête incorrecte ",toastCourt,cvBas,chDroite, RougePastel)
		
	FIN		
	
SINON
	ToastAffiche("Connexion échouée ",toastCourt,cvBas,chDroite, RougePastel)
	
	
FIN
</code>