// Conexão HFSQL
sNomConnexion est une chaîne = "Manta_pcs_serveurpcsoft"
sLibelléConnexion est une chaîne = "Connexion au serveur manta.pcs"
sTypeConnexion est une chaîne = "WinDevClientServeurHF"
sTypeAccès est un entier = hOLectureEcriture
sNomSource est une chaîne = "manta.pcs:4900"
sNomBase est une Source de Données = "MonServeur"
sNomUtilisateur est une chaîne = "admin"
sMotDePasse est une chaîne = ""
sInfoEtendus est une chaîne = ";Cryptage = aucun;Initial Catalog=MonServeur"
SI HOuvreConnexion(sNomConnexion, sNomUtilisateur, sMotDePasse, sNomSource, sNomBase, sTypeConnexion, sTypeAccès) ALORS
Info("Connexion établie")
SINON
Erreur(HErreurInfo())
FIN

// Conexão Oracle OldeDB
sNomConnexion est une chaîne = "CNX_Oracle"
sTypeConnexion est une chaîne = "hOLEDBOracle"
sTypeAccès est un entier = hOLectureEcriture
sNomSource est une chaîne = "NomServeurORACLE_ou_IP"
sNomBase est une Source de Données = "TEST"
sNomUtilisateur est une chaîne = ""
sMotDePasse est une chaîne = ""
sInfoEtendus est une chaîne = ""
SI HDécritConnexion(sNomConnexion, sNomUtilisateur, sMotDePasse, sNomSource, sNomBase, sTypeConnexion, sTypeAccès) ALORS
SI HOuvreConnexion(sNomConnexion) ALORS
HChangeConnexion(Cedex,"CNX_SQLServer")
Info("Connexion créée. Changement de connexion effectué")
SINON
Erreur(HErreurInfo())
FIN
SINON
Erreur(HErreurInfo())
FIN

// Conexão Oracle Nativo
sNomConnexion est une chaîne = "CNX_Oracle"
sTypeConnexion est une chaîne = "hAccèsNatifOracle"
sTypeAccès est un entier = hOLectureEcriture
sNomSource est une chaîne = "MonServeurORACLE"
sNomBase est une Source de Données = "TEST"
sNomUtilisateur est une chaîne = ""
sMotDePasse est une chaîne = ""
sInfoEtendus est une chaîne = ""
SI HDécritConnexion(sNomConnexion, sNomUtilisateur, sMotDePasse, sNomSource, sNomBase, sTypeConnexion, sTypeAccès) ALORS
SI HOuvreConnexion(sNomConnexion) ALORS
HChangeConnexion(Cedex,"CNX_SQLServer")
Info("Connexion créée. Changement de connexion effectué")
SINON
Erreur(HErreurInfo())
FIN
SINON
Erreur(HErreurInfo())
FIN

// Conexão ACCESS
sNomConnexion est une chaîne = "CNX_ACCESS"
sTypeConnexion est une chaîne = "Microsoft.Jet.OLEDB.4.0"
sTypeAccès est un entier = hOLectureEcriture
sNomSource est une chaîne = "C:\MaBaseAccess.mdb"
sNomBase est une Source de Données = ""
sNomUtilisateur est une chaîne = ""
sMotDePasse est une chaîne = ""
sInfoEtendus est une chaîne = ""
SI HDécritConnexion(sNomConnexion, sNomUtilisateur, sMotDePasse, sNomSource, sNomBase, sTypeConnexion, sTypeAccès) ALORS
SI HOuvreConnexion(sNomConnexion) ALORS
HChangeConnexion(Cedex,"CNX_ACCESS")
Info("Connexion créée. Changement de connexion effectué")
SINON
Erreur(HErreurInfo())
FIN
SINON
Erreur(HErreurInfo())
FIN

// Conexão Excel
sNomConnexion est une chaîne = "CNX_Excel"
sTypeConnexion est une chaîne = "Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;"
sTypeAccès est un entier = hOLectureEcriture
sNomSource est une chaîne = "D:\Mes Documents\Mes bases de données\Classeur1.xls"
sNomBase est une Source de Données = ""
sNomUtilisateur est une chaîne = ""
sMotDePasse est une chaîne = ""
sInfoEtendus est une chaîne = ""
SI HDécritConnexion(sNomConnexion, sNomUtilisateur, sMotDePasse, sNomSource, sNomBase, sTypeConnexion, sTypeAccès) ALORS
SI HOuvreConnexion(sNomConnexion) ALORS
HChangeConnexion(Client,"CNX_Excel")
Info("Connexion créée. Changement de connexion effectué")
SINON
Erreur(HErreurInfo())
FIN
SINON
Erreur(HErreurInfo())
FIN

// Conexão MySQL
NomCNX est une chaîne = "CNX_MySQL"
TypeConnexion est une chaîne = "WinDevMySQL"
TypeAccès est un entier = hOLectureEcriture
NomSource est une chaîne = "localhost"
NomBase est une Source de Données = "test"
NomUser est une chaîne = "root"
MotDePasse est une chaîne = ""
InfoEtendus est une chaîne = ""
SI HDécritConnexion(NomCNX, NomUser, MotDePasse, NomSource, NomBase, TypeConnexion, TypeAccès) ALORS
SI HOuvreConnexion(NomCNX) ALORS
Info("La connexion est établie ")
SINON
Erreur(HErreurInfo())
FIN
SINON
Erreur(HErreurInfo())
FIN