Re: connexion

Posté par marouane le 8/6/2007 22:03:22

j" ai fait ca est ca a marcher // sur un mono-poste demaine je test sut un reseaux

j' ai place le code dans les procedur global du projet et cree un fiche HF clasice (connect)


hlitpremier(connect)
sNomConnexion est une chaîne = "Employer"
sLibelléConnexion est une chaine = connect.connexion
sTypeConnexion est une chaine = "WinDevClientServeurHF"
sTypeAccès est un entier = hOLectureEcriture
sNomSource est une chaîne = connect.seveur
sNomBase est une Source de données = connect.base
sNomUtilisateur est une chaîne = connect.utilisateur
sMotDePasse est une chaîne = connect.passe
sInfoEtendus est une chaine = ";Cryptage = aucun;Initial Catalog=la gestion GM"

SI HOuvreConnexion(sNomConnexion, sNomUtilisateur, sMotDePasse, sNomSource, sNomBase, sTypeConnexion, sTypeAccès) ALORS
Info("Connexion établie")

SINON
Erreur(HErreurInfo())
FIN



on charger les donnees de la connection a partire du la fiche connect