DOCUMENTATION EN LIGNE
DE WINDEVWEBDEV ET WINDEV MOBILE

Aide / WLangage / Gestion des bases de données / Fonctions SQL
  • Exemple 1 : Connexion à une base HFSQL
  • Exemple 2 : Connexion via un accès natif
  • Exemple 3 : Connexion via ODBC
  • Exemple 4 : Connexion via JDBC
  • Exemple 5 : Connexion via OLE DB
  • Exemple 6 : Connexion à un serveur Hive
SQLConnecte (Exemple)
Exemple 1 : Connexion à une base HFSQL
WEBDEV - Code ServeurAjaxHyper File 5.5
Cet exemple permet de manipuler une base HFSQL via une connexion SQL.
NumConnexion est un entier
NomCompletWdd est une chaîne
MotDePasseWdd est une chaîne
VariableDeTest est une chaîne
 
// Chemin de l'analyse
NomCompletWdd = fRepEnCours() + "\MonAnalyse.ana\MonAnalyse.WDD"
 
// Mot de passe défini dans l'analyse pour le WDD (si un mot de passe est défini)
MotDePasseWdd = "PASSWDD"
 
// Connexion à la base de données HFSQL
NumConnexion = SQLConnecte(NomCompletWdd, "", MotDePasseWdd, "Hyper File")
SI NumConnexion <> 0 ALORS
// La connexion s'est bien passée
// Utilisation de la connexion pour exécuter des requêtes SQL
VariableDeTest = "DUPOND"
SI SQLExec("SELECT * FROM CLIENT WHERE NOM='" + VariableDeTest + "'", ...
 "RECHCLIENTPARNOM") = Vrai ALORS
 // Traitement de la requête
SINON
  // Échec de la requête : affichage d'un message explicatif
  SQLInfoGene("RECHCLIENTPARNOM")
  Erreur("Erreur" + SQL.Erreur + "dans la requête : ", SQL.MesErreur)
FIN
SINON
 // La connexion a échoué : affichage d'un message explicatif
SQLInfoGene()
Erreur(SQL.MesErreur)
FIN
// Obligatoire, que la connexion soit OK ou non
SQLDéconnecte()
Exemple 2 : Connexion via un accès natif
WEBDEV - Code ServeurAjax
Cet exemple permet de manipuler une base ACCESS (ou ORACLE) via une connexion SQL.
NumConnexion est un entier
NomSource est une chaîne
NomUtilisateur est une chaîne = ""
PasseUtilisateur est une chaîne = ""
VariableDeTest est une chaîne
TypeBase est une chaîne
 
// Connexion à une source de données spécifique via l'accès natif MS ACCESS
NomSource = "C:\cdm\test.mdb"
TypeBase = "Access"
NumConnexion = SQLConnecte(NomSource, NomUtilisateur, PasseUtilisateur, "", TypeBase)
// Ou connexion à une source données via l'accès natif ORACLE
// NomSource = "NOMALIAS" (nom de l'alias défini avec SQLNet)
// TypeBase = "ORACLE"
// NumConnexion = SQLConnecte(NomSource, NomUtilisateur, PasseUtilisateur, "", TypeBase)
SI NumConnexion <> 0 ALORS
// La connexion s'est bien passée
// Utilisation de la connexion pour exécuter des requêtes SQL
VariableDeTest = "DUPOND"
SI SQLExec("SELECT * FROM CLIENT WHERE NOM='" + ...
  VariableDeTest + "'", "RECHCLIENTPARNOM") = Vrai ALORS
// Traitement de la requête
SINON
 // Échec de la requête : affichage d'un message explicatif
 SQLInfoGene("RECHCLIENTPARNOM")
 Erreur("Erreur" + SQL.Erreur + "dans la requête : ", SQL.MesErreur)
FIN
SINON
// La connexion a échoué : affichage d'un message explicatif
// Recherche des types de sources dans la liste des sources disponibles
SI Position(RC + Majuscule(SQLListeSource("BASE")) + RC, ...
RC + Majuscule(TypeBase) + RC) = 0 ALORS
// Type de source non trouvé
Erreur("L'accès natif" + TypeBase + "n'est pas correctement installé.", ...
   "Vérifiez la présence des DLL WINDEV/WEBDEV correspondantes" + ...
   "(WDxxxACC.DLL pour Access, WDxxxORA.DLL pour Oracle," + ...
"WDxxxSQS.DLL pour SQL Server)")
 SINON
 // Type de source trouvé dans la liste de type de source
 SQLInfoGene()
 // Instruction à supprimer pour l'accès natif Oracle
  Erreur("Le type de source de données" + TypeBase + ...
 "a bien été trouvé mais la connexion a échoué.", ...
 "Vérifiez le nom de la base (ou chaîne de connexion) " + ...
 "et le mot de passe.", SQL.MesErreur)
 FIN
FIN
// Obligatoire, que la connexion soit OK ou non
SQLDéconnecte()
Exemple 3 : Connexion via ODBC
WEBDEV - Code ServeurAjax
Cet exemple permet de manipuler une base ACCESS via une connexion ODBC.
NumConnexion est un entier
NomSource est une chaîne
VariableDeTest est une chaîne
// Connexion à une source de données spécifique via ODBC MS ACCESS
// (note :certains drivers ouvrent une boîte de sélection de
// fichiers si aucun fichier n'est associé à cette source)
NomSource = "MS Access 97 Database"
NumConnexion = SQLConnecte(NomSource, "", "", "", "ODBC")
SI NumConnexion <> 0 ALORS
// La connexion s'est bien passée
// Utilisation de la connexion pour exécuter des requêtes SQL
VariableDeTest = "DUPOND"
SI SQLExec("SELECT * FROM CLIENT WHERE NOM='" + ...
VariableDeTest + "'", "RECHCLIENTPARNOM") = Vrai ALORS
 // Traitement de la requête
SINON
 // Échec de la requête : affichage d'un message explicatif
 SQLInfoGene("RECHCLIENTPARNOM")
 Erreur("Erreur" + SQL.Erreur + "dans la requête : ", SQL.MesErreur)
FIN
SINON
 // La connexion a échoué : affichage d'un message explicatif
 // Recherche des types de sources dans la liste des sources disponibles
 SI Position(RC + Majuscule(SQLListeSource("BASE")) + RC, ...
 RC + Majuscule(TypeBase) + RC) = 0 ALORS
  // Type de source non trouvé
  Erreur("L'accès natif" + TypeBase + "n'est pas correctement installé.", ...
"Vérifiez la présence des DLL WINDEV/WEBDEV correspondantes" + ...
"(WDxxxACC.DLL pour Access, WDxxxORA.DLL pour Oracle," + ...
"WDxxxSQS.DLL pour SQL Server)")
 SINON
// Type de source trouvé dans la liste des types de sources
SQLInfoGene()
// Instruction à supprimer pour l'accès natif Oracle
Erreur("Le type de source de données" + TypeBase + ...
"a bien été trouvé mais la connexion a échoué.", ...
"Vérifiez le nom de la base (ou chaîne de connexion) " + ...
"et le mot de passe.", SQL.MesErreur)
FIN
FIN
// Obligatoire, que la connexion soit OK ou non
SQLDéconnecte()
Exemple 4 : Connexion via JDBC
Exemple 5 : Connexion via OLE DB
WEBDEV - Code ServeurOLE DB
Cet exemple permet de manipuler une base SQL Server via une connexion OLE DB.
NumConnexion est un entier
NumConnexion = SQLConnecte("127.0.0.1", "sa", "", "master", "OLEDB", hOledbSQLServer)
SI NumConnexion <> 0 ALORS
// La connexion s'est bien passée
Info("La connexion s'est bien passée")
SINON
// La connexion a échoué : affichage d'un message explicatif
SQLInfoGene()
Erreur("La connexion à la source de données a échoué." + RC + ...
"Code erreur : " + SQL.Erreur + RC + SQL.MesErreur)
FIN
// Dans tous les cas (connexion OK ou pas)
SQLDéconnecte()
Exemple 6 : Connexion à un serveur Hive
WEBDEV - Code ServeurLinux
Cet exemple permet de manipuler une base Hive.
NumConnexion est un entier
NumConnexion = SQLConnecte("master2.hadoop1.monserveur.com", "sa", "", "default", "HIVE")
SI NumConnexion <> 0 ALORS
// La connexion s'est bien passée
// Utilisation de la connexion pour exécuter des requêtes SQL
SI SQLExec("SELECT * FROM EQUIPE WHERE NOM='HOU'") = Vrai ALORS
// Traitement de la requête
SINON
// Échec de la requête : affichage d'un message explicatif
SQLInfoGene("RECHCLIENTPARNOM")
Erreur("Erreur" + SQL.Erreur + "dans la requête : ", SQL.MesErreur)
FIN
SINON
// La connexion a échoué : affichage d'un message explicatif
SQLInfoGene()
Erreur("La connexion à la source de données a échoué." + RC + ...
"Code erreur : " + SQL.Erreur + RC + SQL.MesErreur)
FIN
// Dans tous les cas (connexion OK ou pas)
SQLDéconnecte()
Version minimum requise
  • Version 9
Documentation également disponible pour…
Commentaires
Cliquez sur [Ajouter] pour publier un commentaire

Dernière modification : 25/05/2022

Signaler une erreur ou faire une suggestion | Aide en ligne locale