Discussion :

[Angelik]

Bonjour à tous,

Je débute sur Windev [17] et j'ai une première question d'ordre général. J'affinerai ma démarche par la suite en fonction des réponses à ce premier post. Merci - d'avance - de votre patience

Je développe un petit projet qui fait appel à une base de données externe ... jusque là, pas de soucis. J'ai préalablement configuré ma source de données ODBC.

Ma question est la suivante, comment permettre à l'utilisateur de faire appelle à sa propre base de données ? Je ne sais pas du tout comment m'y prendre ...

J'imagine une fenêtre dans laquelle on renseignerait les paramètres de connexion.

Merci de vos réponses !

[stounouslous]

Bonjour,

ci-après pour information, une façon de traiter le problème:

1- dans un fichier plat (C:\APPLI\paramAPPLI.txt) figure, entre autres, une ligne de paramètre pour désigner la base cible :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Connexion = MaConnexion1,admin,motdepasse,192.168.1.2,nomdelaBase,hAccèsNatifMySQL"

les quelques lignes qui suivent permettent de récupérer l'info:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
sLigneLue est une chaîne
i est un entier = 1
 
sEnregistrementsAImporter = fChargeTexte("C:\APPLI\paramAPPLI.txt")
 
SI sEnregistrementsAImporter = "" ALORS
	FinProgramme("Pas de paramètres")
FIN
 
sLigneLue = ExtraitChaîne(sEnregistrementsAImporter,i,RC)
SI sLigneLue = EOT ALORS
	FinProgramme("Pas de paramètres")
FIN

Il ne reste plus qu'à paramétrer la connexion à la base désignée:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
 
TANTQUE PAS ChaîneOccurrence(sLigneLue,EOT)	> 0	
 
	sLigneLue = ExtraitChaîne(sEnregistrementsAImporter,i,RC)
	i++
	sDemande =  Minuscule(SansEspace(ExtraitChaîne(sLigneLue, 1, "=")))
 
 
	SELON sDemande
		CAS = "connexion" 
			sLigne = SansEspace(ExtraitChaîne(sLigneLue, 2, "="))	          
			ConnexionBase = ExtraitChaîne(sLigne,1,",")
			user = ExtraitChaîne(sLigne,2,",")
			MDP = ExtraitChaîne(sLigne,3,",")
			serveur = ExtraitChaîne(sLigne,4,",")
			BaseDonnee = ExtraitChaîne(sLigne,5,",")
 
 		CAS = "ged"
			Path_GED = SansEspace(ExtraitChaîne(sLigneLue, 2, "=")) + ["\"]
 
	FIN
 
FIN
 
SI PAS HDécritConnexion(ConnexionBase,user,MDP,serveur,BaseDonnee,hAccèsNatifMySQL) ALORS
	Info("Problème d'accès à la base")
	FinProgramme()
SINON	
	SI PAS HOuvreConnexion(ConnexionBase) ALORS
		Info(HErreurInfo())		
		FinProgramme()		
	FIN	
	HChangeConnexion("*",ConnexionBase)
FIN

il suffit soit de modifier les paramètres, soit de créer un fichier par base cible.

J'espère avoir été clair.
Bon courage.

[dsr57]

Bonjour

Je passerai par un fichier INI.

Bon dev

[tatayo]

Bonjour,
Pour ma part je proposerai un écran de paramétrage, ainsi il sera possible de stocker une version cryptée du mot de passe (que ce soit dans un fichier HF, un fichier ini, la base de registre...). En fait je trouve "moyen bof" le stockage en clair d'un mot de passe dans un simple fichier texte.

Tatayo.

[dsr57]

Avec la réponse de tatayo, je complète la mienne. J'ai été un peu simpliste

Effectivement, une fenêtre de paramétrage qui permettrait à l'utilisateur final de renseigner les paramètres de connexion à la BDD.

Et comme le signale tatayo

stocker une version cryptée du mot de passe

Bon dev