Discussion :

[Berrehal]

bonjour tout le monde . Jai r�aliser un logiciel qui fonctionne tr�s bien en HFSQL classique une application qui j'aire plusieurs exercice

mais Jai d�cide de rendre le projet en mode HFSQL client serveur

code de la fen�tre d�claration globale

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
ROCEDURE MaFenêtre()
sRepertoirte1 est une chaîne
sRepertoirte1=ComplèteRep("C:\Ordre de facturation\Societes\")
UnRépertoire, ResListeRépertoire sont des chaînes
ResListeRépertoire = fListeRépertoire(sRepertoirte1)
 
POUR TOUTE CHAÎNE UnRépertoire DE ResListeRépertoire SEPAREE PAR RC
 
xSoss est un numérique
xSoss=ChaîneOccurrence(UnRépertoire,"\") +1
 
sOs est une chaîne
sOs=ExtraitChaîne(UnRépertoire,xSoss,"\")
 
TableAjoute(TABLE_liste_fichiers,sOs)
FIN

mais e mode HFSQL client serveur

Jai utiliser le code :
maConnexion est une Connexion

[Berrehal]

et pour le code du bouton cr�ation

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
SI SAI_CREE_UNE_SOCIETE~~"" ALORS
	RepriseSaisie(SAI_CREE_UNE_SOCIETE)
FIN
SI fRépertoireExiste(SAI_CREE_UNE_SOCIETE)=Vrai ALORS 
	Info("Le répertoire "+SAI_CREE_UNE_SOCIETE +" existe déja")
	RepriseSaisie(SAI_CREE_UNE_SOCIETE)
FIN
SI fRepCrée("C:\Ordre de facturation\Societes\"+SAI_CREE_UNE_SOCIETE)= Vrai ALORS //Info("Le répertoire a été créé")
	RepINI est une chaîne
	SI fRepDonnées() <> "" ALORS
		RepINI = fRepDonnées() + ["\"] + "Fichier.INI"
	SINON
		RepINI = "Fichier.INI"     
	FIN
	INIEcrit("Parametre", "Chemin", fRepDonnées() + ["\"] +SAI_CREE_UNE_SOCIETE , RepINI)
	SI ErreurDétectée ALORS
		Erreur()
		RETOUR
	FIN
FIN
TableAjoute(TABLE_liste_fichiers,SAI_CREE_UNE_SOCIETE)
MaFenêtre..ValeurRenvoyée = Vrai

code bouton selection

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
sLerep est une chaîne
sLerep=TABLE_liste_fichiers.COL_Liste_des_fichiers
HFerme("*")
HChangeRep("*","C:\Ordre de facturation\"+"\Societes\" + sLerep )
TitreSuivant("MENUE be" +" | "+ sLerep)
Utilise(FEN_MENUE)

[Yusep]

Bonsoir
Quelle est la question ?

[Berrehal]

je veux quand j'ex�cute le programme Jai la possibilit� de cr�e plusieurs dossier sur le serveur

quand je change de metode jai utiliser le code

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
7
8
9
maConnexion est une Connexion
 
// Paramètres de la connexion
maConnexion..Provider = hAccèsHFClientServeur
maConnexion..Utilisateur = "admin"
maConnexion..MotDePasse = "1234"
maConnexion..Serveur = "127.0.0.1:4900"
maConnexion..BaseDeDonnées = "BDD_be"
maConnexion..Cryptage = hCryptageNon

[Berrehal]

image de la fen�tre

[Yusep]

Suivant l'aide :

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
Important
Sous HFSQL Client/Serveur :
La fonction HSubstRep n'est pas prise en compte. En effet, cette fonction permet uniquement de substituer les r�pertoires des fichiers HFSQL R�seau.
Si la fonction HChangeRep est utilis�e, il est n�cessaire de sp�cifier un chemin relatif au r�pertoire de la base de donn�es de l'application sur le serveur. Ce fonctionnement permet d'�tre ind�pendant de l'emplacement du serveur utilis�.