Re: Connexion SQL Server 2000 & WinDev 11

Posté par pitou le 9/1/2009 9:45:43
ok,

// a) tu déclares une connection :
cnxConnexSQLServer est une Connexion
cnxConnexSQLServer..Utilisateur="ton_utilisateur"
cnxConnexSQLServer..Motdepasse="ton_mot_de_passe"
cnxConnexSQLServer..Serveur="SRVDC"
cnxConnexSQLServer..Accès=hOlectureEcriture
cnxConnexSQLServer..Dasededonnées="BASETEST"
cnxConnexSQLServer..Provider=hOLEDBSQlServer

// b) tu te connectes (pas de " devant et
// derriere cnxConnexSQLServer
SI HOuvreConnexion(cnxConnexSQLServer) = Faux ALORS
Erreur("Connexion impossible : " + HErreurInfo())
RETOUR
FIN

// c) tu change la connexion des fichiers
// et tu ouvres le fichier
hChangeConnexion("*",cnxConnexSQLServer)
houvre(F_ARTICLE)

//d) Initialisation de la requête ReqArticle
SI HExécuteRequêteSQL(ReqArticle,"SELECT AR_Ref FROM F_ARTICLE") = Faux ALORS
Erreur("Erreur d'initialisation de la requête"+RC+HErreurInfo())
RETOUR
FIN

// e) parcours des données
// tu travailles maintenant sur ReqArticle
// et non plus sur le fichier F_ARTICLE
HLitRecherchePremier(ReqArticle,"AR_Ref","3C16593")
TANTQUE HTrouve(F_ReqArticle) = Vrai
// Insérez votre traitement ici
ListeAjoute(COMBO_Combo1,"tata")
HLitSuivant(ReqArticle,"")
FIN

// f) fermeture fichier et connexion
hferme(F_ARTICLE)
hferme(cnxConnexSQLServer)

Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=18&topic_id=6084&post_id=24411