Différences

Ci-dessous, les différences entre deux révisions de la page.

--- windev:connexionsql [2023/10/24 08:34] – créée root
+++ windev:connexionsql [2023/10/24 08:54] (Version actuelle) – root
@@ Ligne 2: / Ligne 2: @@
 <code>
-Intervention JLM
@@ Ligne 14: / Ligne 12: @@
 Sinon
     ToastAffiche("Connexion NOT OK",toastcourt,cvmilieu,chCentre,VertClair)
+FIN
+</code>
+Autre possibilité:
+<code>
+//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
 </code>