HDecritConnexion

si HOuvreConnexion(ConnexionBDDNew) = vrai alors
    HChangeConnexion("*",ConnexionBDDNew)
    ToastAffiche("Connexion OK",toastcourt,cvmilieu,chCentre,VertClair)
    HCréationSiInexistant("*")
Sinon
    ToastAffiche("Connexion NOT OK",toastcourt,cvmilieu,chCentre,VertClair)
FIN

Autre possibilité:

//SQLConnecte(

SI SQLConnecte(SAI_INI_Serveur, SAI_INI_User, SAI_INI_Pass, SAI_INI_Database, "HFSQLCS")
// HOuvreConnexion("data", SAI_INI_User, SAI_INI_Pass , SAI_INI_Serveur, SAI_INI_Database, hAccèsHFClientServeur , hOLectureEcriture) alors
	Info("Yahoo ça marche")
	
	ResSQL est un booléen 

	
	// [MaSociete.EMonAppli.Core].[BusinessEntity]
	ResSQL = SQLExec("SELECT ""creembal\fournisseur"".Fournisseur FROM  ""creembal\fournisseur"" ", "REQ1")
	SI ResSQL ALORS
		
		SQLPremier("REQ1")
		Info(SQL.NbLig)
		TANTQUE PAS SQL.EnDehors
			TableAjouteLigne(TABLE_Factureclient, SQLCol("REQ1", 1),SQLCol("REQ1", 1))
			SQLSuivant("REQ1")
		FIN
	SINON
		SQLInfo("REQ1")
		Info("SQL error: " + SQL.MesError)	
	FIN
	//HFermeConnexion("data")
	SQLDéconnecte()
	
	TableAjouteLigne(TABLE_Factureclient,"test","test2")
SINON
	Info("Echec")
FIN