Discussion :

[GiGii]

Salut à tous,

tout d'abord merci à ceux qui me liront


Voila, je suis actuellement confronté à une problématique et avant de me dire que Windev ne l'autorise peut être pas je voulais vos avis.

Actuellement je travaille dans un programme qui se connecte à différent fichier HFSQL Classic.

Pour un soucis de taille de fichier et de rapidité d'accès, le concepteur du logiciel a mis en place une base de données par bureau.

Le logiciel permet la gestion de plusieurs bureaux.

Donc nous avons un logiciel dans lequel nous avons X bureaux et pour chaque bureau nous avons X fichiers HFSQL classic.

Par la suite il y a une volonté de passer en HFSQL C/S.

Le problème est le suivant. Le HCHANGEREP ne permet pas de donner un chemin absolu. Il faut être dans le même répertoire que celui de l'analyse.

Mais si je reste dans le même répertoire que celui de l'analyse je reste dans la même base de données.

Or le but ici aurait été d'avoir une base de donnée par bureau. Et lorsque le logiciel est lancé. Selon le bureau choisi on passe en paramètre la base de donnée ou il faut se connecter.


Et lors de la création d'un nouveau bureau on aurait un code qui ressemblerait à celui la :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
SI fRepExiste("\\SRVHFSQL\bdd"+ ["\"] + "BDDBYCODE") = Faux ALORS
	SI PAS fRepCrée("\\SRVHFSQL\bdd\BDDBYCODE\") ALORS
		Trace("Erreur de création" + ErreurInfo(errComplet))
	FIN
	HFermeConnexion(AncienneConnexion)
	HChangeRep("*", "\\SRVHFSQL\bdd\BDDBYCODE\") // SAUF QUE CA CA NE FONCTIONNE PAS ^^
	HCréationSiInexistant("*")
 
FIN

Y a t'il une solution? ou je passe à côté de qqch ?

D'avance merci pour votre aide. J'espère avoir été le plus clair possible.

Bon dev à tous

[Lo²]

Bonjour,

Je n'ai peut être pas tout compris, mais je ne vois pas l'intérêt de passer par HChangeRep(..) dès lors que vous utilisez un serveur HF C/S.

Ce que je fais actuellement sur une application utilisant du HF Classic ou C/S, pour une connexion sur un serveur c'est un HOuvreConnexion(..) suivi d'un HChangeConnexion("*", maConnexion).

[GiGii]

Bonjour,

tout d'abord merci pour la réponse.

En fait le but est de pouvoir créer une base de données dynamiquement.

Dans le programme à chaque nouvelle création d'un bureau, il est important qu'il ait une base de donnée qui lui soit dédiée (uniquement à lui).

Actuellement le programme le fait en HFSQL Classic ce qui ne pose aucun problème vu que ce ne sont que des fichiers fic dans des sous dossiers.

En HFSQL C/S il n'y a pas de sous dossier dans une base de donnée.

Ne sachant pas combien de bureau le client va gérer, il est préférable pour moi de trouver une solution qui lui permette de créer une base de donnée à chaque ouverture du bureau dans le programme.

Vu que le HCHANGEREP ne permet pas le chemin absolu je ne peux remonter dans un nouveau répertoire via cette instruction.

Je cherche donc une parade qui me permettrait de le faire.


En espérant avoir été plus clair dans mes explications.

D'avance merci.

[GiGii]

Finalement j'ai trouvé un moyen de contourner le problème.
C'est autorisé par Windev , et ça répond au besoin du programme.

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
	HFermeConnexion(ServeurMCS)
 
	MaConnexion est une Connexion 
	// Description de la connexion 
	MaConnexion..Utilisateur = "USER" 
	MaConnexion..MotDePasse = "totototo" 
	MaConnexion..Serveur = "SRV" 
	MaConnexion..BaseDeDonnées = "BDDTEST" 
	MaConnexion..Provider = hAccèsHFClientServeur 
	MaConnexion..Accès = hOLectureEcriture 
	MaConnexion..InfosEtendues = "Infos étendues" 
	MaConnexion..OptionsCurseur = hCurseurClient 
 
	HChangeRep("*",MaConnexion)
	HCréationSiInexistant("*")

et j'ai pile poil un sous répertoire pour faire ce qu'il me faut.

il faut juste que je stocke les informations de connexion dans une table. Et que je lie à cette table l'id du bureau à ouvrir et le tour est joué.

Tanxxx

[tunizar]

Bonjour,
Un sujet pareil existe dans le forum

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
 
 
cnxHF is Connection
sDatabasePath is string
sNewDatabase is string
sAnalysisFile is string 
sAnalysisFile = "C:\WinDev19\Exemples\Exemples complets\Gestion Commerciale\Gestion commerciale.wdd"
//ouverture de l'analyse
IF HOpenAnalysis(sAnalysisFile,"") = False THEN
	Error(HErrorInfo())
ELSE	
	cnxHF..Provider = hAccessHFClientServer
	cnxHF..Server = "MyServer"
	cnxHF..Database = fExtractPath(sAnalysisFile,fFileName)
	cnxHF..User = "admin"
	cnxHF..Password = ""
	//ouverture de la connexion
	IF NOT HOpenConnection(cnxHF) THEN
		Error(HErrorInfo(hErrFullDetails))
	ELSE		
		HChangeConnection("*",cnxHF)
		HCreationIfNotFound("*")
	END
END
END:	
HCloseConnection(cnxHF)

[GiGii]

Bonjour Tunizar après recherche je ne l'avais pas trouvé. Surement les mots clés que j'avais entré qui ne correspondaient pas.

Merci pour tes éclaircissements et bonne continuation.