1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
| nNumconnexion est un entier
sMaRequet est une chaîne
nResExec est un entier
nNumconnexion = SQLConnecteWS("http://localhost/WDSOAPDB_WEB/","NomServeur","MonId", "MotPasse", "NomBaseDonnée", "SQL SERVER", "SQLOLEDB",hOledbSQLServer)
nResExec = SQLExec("Select CODEPROJET, DATEPROJET From T_PROJET", "REQ1")
SI nResExec = 0 ALORS
TANTQUE SQLAvance("REQ1") = 0
TableAjouteLigne(TABLE_Projet, SQLLitCol("REQ1",1) ,SQLLitCol("REQ1",2))
FIN
SINON
SQLInfoGene()
Erreur(SQL.MesErreur)
FIN
SQLFerme(REQ_Projet)
SINON
SQLInfoGene()
Erreur("La connexion à la source de données "+...
"a échoué " + RC + "Code erreur : "+ ...
SQL.Erreur + RC + SQL.MesErreur)
FIN
SQLDéconnecte() |
Partager