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é.