Connexion SQL Windev

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