Discussion :

[tunizar]

Bonjour,
Est-il possible de créer par programmation une base de donnée sur un serveur HFSQL ? Je trouve la fonction

Code :

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

HSupprimeBaseDeDonnées

Mais pas celle de création !!!

[Ry_Yo]

Bonjour,

Ce n'est pas intuitif, mais c'est possible de créer une base de données.

Lorsque vous créer votre connexion à votre serveur, si vous lui spécifiez un nom de base qui n'existe pas, il le crée automatiquement. (c'était ça l'astuce )
Ne pas oublier après connexion de changer l'accès des fichiers déclarer dans votre analyse grâce à HChangeConnexion()

Cordialement.

[tunizar]

Bonjour,

Ce n'est pas intuitif, mais c'est possible de créer une base de données.

Lorsque vous créer votre connexion à votre serveur, si vous lui spécifiez un nom de base qui n'existe pas, il le crée automatiquement. (c'était ça l'astuce )
Ne pas oublier après connexion de changer l'accès des fichiers déclarer dans votre analyse grâce à HChangeConnexion()

Cordialement.

Merci !!
ça marche, j'ai essayé aussi

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
 
cnxHF is Connection
sDatabasePath is string
sNewDatabase is string
 
cnxHF..Provider = hAccessHFClientServer
cnxHF..Server = "MyServer"
cnxHF..User = "admin"
cnxHF..Password = ""
//ouverture de la connexion
IF NOT HOpenConnection(cnxHF) THEN
	Error(HErrorInfo(hErrFullDetails))
ELSE
	//information sur le serveur
	sDatabasePath=HSetServer(cnxHF,hDatabasePath)
	Info(sDatabasePath)
	//Génération d'une nouvelle DB
	IF fMakeDir(sDatabasePath+["\"]+sNewDatabase) = False THEN
		Error(ErrorInfo())
	ELSE
		Info(fRépertoireExiste(sNewDatabase))
		Info("DB crée")
		//Liste des DB
		Info(HListeBaseDeDonnées(cnxHF))
	END
END
FIN:
HCloseConnection(cnxHF)

le répertoire n'est pas crée et la commande

Code :

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

fMakeDir

ne renvoi pas d'erreur !

Merci encore une mille fois !

finalement voici un exemple complet

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
 
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)

et voilà la DB est créée et ses fichiers aussi !