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
29
30
31
| Exemple de module de d
PUBLIC SUB main()
DIM texte, texte1 AS STRING
texte1 = "/.local/share/baseavecide" ' endroit local pour utilisation de la base de données
texte = "/usr/share/baseavecide/LaBase" ' endroit de sauvegarde de la base de données pour installation
IF NOT Exist(texte) THEN
Message.Info(("Veuillez refaire l'installation SVP"))
QUIT
ENDIF
IF NOT Exist(User.home & texte1) THEN
MKDIR (User.home & texte1)
Message.Info(("la base n'existe pas elle va être copiée!"
ENDIF
IF NOT Exist(User.home & texte1 & "/LaBase") THEN
COPY texte TO (User.home & texte1 & "/LaBase")
ENDIF
Connections["hConn"].Host = User.home &/ texte1 ' nouvel Host de la base (adresse)
Connections["hConn"].Name = "LaBase" ' son nom pour être sûr
Connections.Create("hConn") ' recréation de la base de données avec la connexion
WAIT 0.5 ' attente pour finir avant de passer à la suite
FMain.Show() ' lancement de notre application, ici nous n'avons pas une ligne de code dans le formulaire.
END
|
