Les Parties :
Première partie : la connection :
Le module Principal : ModPrinc
Les déclarations nécessaires :
1
2
3
4
| ' Gambas module file
PUBLIC hLock AS Stream 'pour contrôle du nombre d'instance du programme
PUBLIC maconnexion AS NEW Connection '1°) définition de la connexion à une base de données (première nécessité lors de la gestion de bases)
|
Endroit où sera rangée la base de données
1
2
3
4
5
6
| PUBLIC SUB fichTag()
FMain.Tag = "/.local/share/GestBase" 'en local
FMain.TabStrip1.Tag = "/usr/share/GestBase/HautParleur.kexi" 'sur le disque
END
|
Procédure principale
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
32
33
34
35
36
37
| PUBLIC SUB main()
langues() 'contrôle des langues
fichTag() ' fichier des Tag
TRY hLock = LOCK User.home & "/.GestBase-lock"
IF ERROR THEN
Message.Title = ("Attention!")
Message(("Une seule instance du Progamme est possible."))
QUIT
ENDIF
IF NOT Exist(FMain.TabStrip1.Tag) THEN
Message.Info(("Veuillez refaire l'installation SVP"))
QUIT
ENDIF
IF NOT Exist(User.home & FMain.Tag) THEN 'vérification de l'existence de la base en local
FMain.Mouse = Mouse.Wait
MKDIR (User.home & FMain.Tag)
COPY FMain.TabStrip1.Tag TO (User.home & FMain.Tag & "/HautParleur.kexi")
Message.Info(("la base n'existe pas elle va être copiée!"
ENDIF
IF NOT Exist(User.home & FMain.Tag & "/HautParleur.kexi") THEN
COPY FMain.TabStrip1.Tag TO (User.home & FMain.Tag & "/HautParleur.kexi")
ENDIF
FMain.Debut = 0
DebutProg()
CATCH
Message.info(("relancer le programme : ") & Error.text)
QUIT
END
|
Début du programme
1
2
3
4
5
6
| PUBLIC SUB DebutProg()
Connect() 'procédure de connexion à la base de données
FMain.Show() 'la form principale
END
|
Procédure de connection
1
2
3
4
5
6
7
8
9
10
11
12
13
| PUBLIC PROCEDURE Connect() '2°) Définition de la connexion à la base
maconnexion.Type = "sqlite" 'type de base de données
maconnexion.Host = User.home & FMain.Tag ' endroit où elle est rangée
maconnexion.Name = "HautParleur.kexi" 'nom de la base de données
maconnexion.Open() 'ouverture de la base de données
CATCH
Message.info(("relancer le programme : ") & Error.text)
QUIT
END
|
En résumé :
1°) on déclare une connexion
2°) on se connecte à la base de données grâce à cette connexion
====================
Commandes utilisées :
DatabaseSqlite
DB
Result
Message
Select case
Return ====================
Navigation :
<-- Liens du Wiki : <--<-- Accueil du WIKI : <-- ====================
Documentation :
====================