ONLINE HELP
 WINDEVWEBDEV AND WINDEV MOBILE

This content has been translated automatically.  Click here  to view the French version.
Help / WLanguage / Managing databases / HFSQL / HFSQL functions
  • Updating the structure of the files
HModifyStructure (Example)
Updating the structure of the files
This example shows how to update the structure of all the files if necessary.
sListeDesErreurs is string
// Vérification stricte de la structure de fichiers
HCheckStructure("*", hIdentical)
// Pour tous les fichiers
FOR EACH STRING sNomUnFichier OF HListFile() SEPARATED BY CR
	WHEN EXCEPTION IN 
		// Ouverture ou création du fichier de données
		HCreationIfNotFound(sNomUnFichier)
	DO
		// Problème
		// Il y a une différence de structure ?
		IF HError(hErrCurrent) = 70016 THEN 
			// Erreur 70016: LE FICHIER NE CORRESPOND PAS A SA DESCRIPTION
			ToastDisplay("Mise à jour de la structure du fichier <" + ...
				sNomUnFichier + "> en cours...", toastShort, vaMiddle, haCenter)
			// On met à jour la structure du fichier
			IF NOT HModifyStructure(sNomUnFichier) THEN
				// Echec de la mise à jour de la structure du fichier
				sListeDesErreurs += [CR] + ...
					"- Erreur de modification de structure pour le fichier <" + ...
					sNomUnFichier + "> : " + HErrorInfo()
			END
		ELSE
			// Autres erreurs qu'une différence de structure
			sListeDesErreurs += [CR] + "- Erreur d'accès au fichier <" + ...
				sNomUnFichier + "> : " + HErrorInfo()
		END
	END
END

// Vérification compatible de la structure de fichier
// Ainsi les modifications "les plus courantes" permettent 
// quand même l'utilisation de l'application (voir HVérifieStructure)
HCheckStructure("*", hCompatible)

// Il y a eu des erreurs ?
IF sListeDesErreurs <> "" THEN
	// Message afin de prévenir
	IF NOT YesNo("Des erreurs sont apparus lors de l'ouverture des fichiers : " + CR + ...
			sListeDesErreurs + CR +...
			"Continuer quand même l'application ?") THEN
			EndProgram()
	END
END
Minimum version required
  • Version 17
This page is also available for…
Comments
Click [Add] to post a comment

Last update: 03/27/2025

Send a report | Local help