// CnxBaseSQLite est le nom de la connexion définie dans l'analyse

// Répertoire(s) sur la SD Card d'accès à la base SQLite
sRepertoiredesDonnées est une chaîne = "data_wm_androidbasesqlitepartagepc"
// Nom de la base SQLite
sNomBaseSQLite est une chaîne = "wm_basesqlite.db"
// Unité correspondant à la SD Card de l'appareil Android (depuis une application Windows)
// A demander à l'utilisateur, et à mémoriser dans un fichier de paramètre
sUniteSDCardDepuisPC est une chaîne = "e:"

// Dans tous les cas, la base est au format SQLite (seul format supporté par Android)
CnxBaseSQLite.Provider = hAccèsNatifSQLite

// Exécution sur le mobile Android ?
SI EnModeAndroid() = Vrai ALORS
	// oui
	// simulateur WINDEV Mobile ?
	SI EnModeSimulateur() = Vrai ALORS
		// Base dans le répertoire Exe du projet
		CnxBaseSQLite.Source = fRepExe() + ["\"] + sNomBaseSQLite
	SINON
		// Exécution su l'appareil Android ou un émulateur 
		// (donc il y a normalement la carte de stockage si elle est dispo)
		SI SysEtatCarteStockage() = sysCarteDisponible ALORS
			// Localise la base de données sur la SD Card, relativement au mobile
			CnxBaseSQLite.Source = SysRepCarteStockage() + ["/"] + ...
				sRepertoiredesDonnées + ["/"] + sNomBaseSQLite
		SINON
			// Pas de carte de stockage
			Erreur("Il n'y a pas de carte de stockage disponible en écriture sur cet appareil")
			FinProgramme()
		FIN
	FIN
SINON
	// Exécution sur un PC ?
	SI EnModePocket() = Vrai _OU_ EnModeEmulateurWindowsPhone() = Vrai ALORS
		Erreur("Accès à la base non prévu sur cette plateforme d'exécution")
		FinProgramme()
	SINON
		// SI SysVersionWindows() DANS 
		// ("98","NT 3.5","NT 4", "NT 5","ME","2003S","2008S","VISTA","7")  ALORS
		// localise la base de données sur la SD Card, relativement au PC
		CnxBaseSQLite.Source = sUniteSDCardDepuisPC + ["\"] + ...
			sRepertoiredesDonnées + ["\"] + sNomBaseSQLite
	FIN
FIN

// Ouverture de la connexion
SI HOuvreConnexion(CnxBaseSQLite) = Faux ALORS
	Erreur("Echec de la connexion à la base de données SQLite Android", HErreurInfo())
	FinProgramme()
FIN

HCréationSiInexistant("*")

Info("Connexion effectuée à la base")