[R] Version SQLite

[jchd]

Si tu pouvais poster ici ou en privé ton code actuel et un jeu d'essai (bidon ou pas, je m'en fiche) ça gagnerait un temps considérable.

Au passage, chaque CREATE .. SQL est une instruction SQL. S'il y en a plusieurs à la suite dans un _SQLite_Exec, les séparer par un point-virgule tout simplement.

[ludoo]

je bloque sur cette commande:

► Afficher le texte

Code : Tout sélectionner

; creation table UsersGroups
_SQLite_Exec($hDb, "CREATE TABLE UsersGroups (" & _
        " UserId INTEGER CONSTRAINT fkUsersGroup_User REFERENCES Users (UserId) ON DELETE CASCADE ON UPDATE CASCADE NOT DEFERRABLE INITIALLY DEFERRED," & _
        " GroupId INTEGER CONSTRAINT fkUsersGroups_Group REFERENCES Groups (GroupId) ON DELETE CASCADE ON UPDATE CASCADE NOT DEFERRABLE INITIALLY DEFERRED," & _
        " CONSTRAINT () PRIMARY KEY (UserId, GroupId) ON CONFLICT IGNORE);")

message d'erreur :
! SQLite.au3 Error
--> Function: _SQLite_Exec
--> Query: CREATE TABLE UsersGroups ( UserId INTEGER CONSTRAINT fkUsersGroup_User REFERENCES Users (UserId) ON DELETE CASCADE ON UPDATE CASCADE NOT DEFERRABLE INITIALLY DEFERRED, GroupId INTEGER CONSTRAINT fkUsersGroups_Group REFERENCES Groups (GroupId) ON DELETE CASCADE ON UPDATE CASCADE NOT DEFERRABLE INITIALLY DEFERRED, CONSTRAINT () PRIMARY KEY (UserId, GroupId) ON CONFLICT IGNORE);
--> Error: near "(": syntax error

[jchd]

Tu as changé les crochets contre des parenthèses !
CONSTRAINT () PRIMARY KEY (UserId, GroupId) ON CONFLICT IGNORE);
devrait être
CONSTRAINT [] PRIMARY KEY (UserId, GroupId) ON CONFLICT IGNORE);

[ludoo]

je pensais qu'il n'y avait pas de crochet ds les envoies de commande ,mea-culpa
je continue la création pour renseigne la base.

[jchd]

Pour SQL :
-) des simples quotes encadrent un littéral texte, à doubler pour représenter une quote significative
'c''est comme ça'
-) des crochets droits encadrent un nom du schéma (table [virtuelle], colonne, contrainte, index, trigger, vue, alias, base, collation ...)
[ma table] ou [cet index-là au nom Unicode bizarre ΞζϝЗБ]
-) SQLite accepte aussi des doubles quotes au lieu de crochets droits (compatibilité MS)
"ma table" ou "cet index-là au nom Unicode bizarre ΞζϝЗБ"

Le type de contrainte dont on parlait peut avec SQLite ne pas avoir de nom, d'où le [] qu'on peut aussi écrire "" ou même sucrer complètement.

[ludoo]

j'ai mon fichier txt avec les utilisateurs et groupes du type:
user1,GG-XX
user1,GG-YY
user2,GG-XX
user2,GG-ZZ
Pour la création de la base plus d'erreur ( les crochets)
Pour renseigner la base voici le code

► Afficher le texte

Code : Tout sélectionner

Global $aLines, $res
_FileReadToArray($sFilePathBDDUsersGroups, $aLines)
_SQLite_SetTimeout($hDb, 60000)         ; on laisse jusqu'à 60 s de timeout, juste au cas où la base serait exploitée/exploitable par un autre process
_SQLite_Exec($hDb, "begin immediate;")  ; on lance une transaction avant l'insertion en boucle, pour la performance
For $line In $aLines
    $res = StringRegExp($line, '([^,]*),([^,]*),?', 1)
    If Not @error Then
        _SQLite_Exec($hDb, "insert into Users (Username) values (" & ($res[0]) & ");" & _
                "insert into Groups (Groupname) values (" & ($res[1]) & ");" & _
                "insert into UsersGroups (UserId, GroupId) values ((select UserId from Users where Username = " & ($res[0]) & ", (select GroupId from Groups where Groupname = " & ($res[1]) & " );")
    EndIf
Next

Par contre j'ai des erreurs

► Afficher le texte

! SQLite.au3 Error
--> Function: _SQLite_Exec
--> Query: insert into Users (Username) values (USER1);insert into Groups (Groupname) values (GG-XX);insert into UsersGroups (UserId, GroupId) values ((select UserId from Users where Username = USER, (select GroupId from Groups where Groupname = GG-XX );
--> Error: no such column: USER1

[jchd]

Il faut quoter tes littéraux !
4 simples X devraient le faire.

Code : Tout sélectionner

        _SQLite_Exec($hDb, "insert into Users (Username) values (" & X($res[0]) & ");" & _
                "insert into Groups (Groupname) values (" & X($res[1]) & ");" & _
                "insert into UsersGroups (UserId, GroupId) values ((select UserId from Users where Username = " & X($res[0]) & ", (select GroupId from Groups where Groupname = " & X($res[1]) & " );")

C'est bien visible dans la ligne d'erreur que l'UDF SQLite t'affiche dans la console :

Code : Tout sélectionner

insert into Users (Username) values (USER1);insert into Groups (Groupname) values (GG-XX);insert into UsersGroups (UserId, GroupId) values ((select UserId from Users where Username = USER, (select GroupId from Groups where Groupname = GG-XX );

Ce que tu lui passes (USER1, GG-XX) c'est deux identifiants de schéma, pas des chaînes littérales ('USER1', 'GG-XX')

[ludoo]

j'ai repris le code avec la fonction X

► Afficher le texte

Code : Tout sélectionner

Func X($s)
    Return ("'" & StringReplace($s, "'", "''", 0, 1) & "'")
EndFunc   ;==>X

mais toujours message d'erreur:

► Afficher le texte

! SQLite.au3 Error
--> Function: _SQLite_Exec
--> Query: insert into Users (Username) values ('USER1');insert into Groups (Groupname) values ('GG-XX');insert into UsersGroups (UserId, GroupId) values ((select UserId from Users where Username = 'USER1', (select GroupId from Groups where Groupname = 'GG-XX' );
--> Error: near ",": syntax error

! SQLite.au3 Error
--> Function: _SQLite_Exec
--> Query: insert into Users (Username) values ('USER1');insert into Groups (Groupname) values ('GG-YY');insert into UsersGroups (UserId, GroupId) values ((select UserId from Users where Username = 'USER1', (select GroupId from Groups where Groupname = 'GG-YY' );
--> Error: column UserName is not unique

le code :

► Afficher le texte

Code : Tout sélectionner

;***** Les Fonctions *****
Func AdUsertoGroup($userAD)
    Global $aUser
    $aUser = _AD_GetUserGroups($userAD)
    If @error > 0 Then
            MsgBox(0, "Users", "user:  " & $UserAD)
            $userAD = $userimp
            MsgBox(0, "Users", "user:  " & $UserAD)
            For $j = 1 to $aUser
;~              MsgBox(0, "Groupe " & $j & "/" & $aUser[0] & " de l'utilisateur " & $userAD, "user: "&$UserAD&" est membre du groupe :"&$j)
                $cnGroupeAD = StringSplit($j, ",")
                if StringInStr($j, $cnGroupeAD[1]) Then
                    $ggGroupAD = StringTrimLeft($cnGroupeAD[1], 3)
;~                  MsgBox(0,"group user","user member of group "&$ggGroupAD)
                EndIf
;~              MsgBox(0,"group user","user member of group "&$aUser[$i])
            Next
;~             MsgBox(64, "Active Directory Functions - Example 1", "User '" & $userAD & "' has not been assigned to any group")
        Else
;~          _ArraySort($aUser, 0, 1)
;~          _ArrayDisplay($aUser, "Active Directory Functions - Example 1 - Group names user '" & $userAD & "' is a member of")
            For $j = 1 to $aUser
;~              MsgBox(0, "Groupe " & $j & "/" & $aUser[0] & " de l'utilisateur " & $userAD, "user: "&$UserAD&" est membre du groupe :"&$j)
                $cnGroupeAD = StringSplit($j, ",")
                if StringInStr($j, $cnGroupeAD[1]) Then
                    $ggGroupAD = StringTrimLeft($cnGroupeAD[1], 3)
;~                  MsgBox(0,"group user","user member of group "&$ggGroupAD)
                EndIf
;~              MsgBox(0,"group user","user member of group "&$aUser[$i])
            Next
    EndIf
EndFunc  ;==>AdUsertoGroup

Func _StringRemove($s_string, $s_remove, $s_delim = "|")
    $s_remove = StringSplit($s_remove, $s_delim)
    If @error Then Return 0
    For $i = 1 To $s_remove[0]
        $s_string = StringReplace($s_string, $s_remove[$i], "")
        If @error Then Return 0
    Next
    Return $s_string
EndFunc  ;==>_StringRemove


;Fonction inser ds SQLite
Func W($s)
    Return ("'" & StringReplace($s, "'", "",0 ,1) & "%'")
EndFunc    ;==>W

Func X($s)
    Return ("'" & StringReplace($s, "'", "''", 0, 1) & "'")
EndFunc   ;==>X

Func XX($s)
    Return (",'" & StringReplace($s, "'", "''", 0, 1) & "'")
EndFunc   ;==>XX

Func Y($s)
    Return ("X'" & Hex($s) & "'")
EndFunc   ;==>Y

Func YY($s)
    Return (",X'" & Hex($s) & "'")
EndFunc   ;==>YY

Func Z($s)
    Return (Number($s))
EndFunc   ;==>Z

Func ZZ($s)
    Return ("," & Number($s))
EndFunc   ;==>ZZ
_SQLite_Startup()
OnAutoItExitRegister("_SQLite_ShutDown")
ConsoleWrite("_SQLite_LibVersion = " &_SQLite_LibVersion() & @LF)
Global $hDb = _SQLite_Open(@ScriptDir & "\SpoolLog_" & @MON & ".db3")
;~ Global $hDb = _SQLite_Open(@ScriptDir & "\SpoolLog_08.db3")
;~ ; si OK ...

; creation table Groups
_SQLite_Exec($hDb, "CREATE TABLE [Groups] (" & _
        " [GroupId] INTEGER NOT NULL PRIMARY KEY ON CONFLICT IGNORE AUTOINCREMENT," & _
        " [GroupName] CHAR NOT NULL ON CONFLICT IGNORE COLLATE NOCASE);" & _
        " CREATE UNIQUE INDEX [ixGroupName] ON [Groups] ([GroupName] COLLATE NOCASE);")

; creation table Users
_SQLite_Exec($hDb, "CREATE TABLE [Users] (" & _
        " [UserId] INTEGER NOT NULL PRIMARY KEY ON CONFLICT IGNORE AUTOINCREMENT," & _
        " [UserName] CHAR NOT NULL ON CONFLICT IGNORE);" & _
        " CREATE UNIQUE INDEX [ixUserName] ON [Users] ([UserName] COLLATE NOCASE);")

; creation table UsersGroups
_SQLite_Exec($hDb, "CREATE TABLE [UsersGroups] (" & _
        " [UserId] INTEGER CONSTRAINT [fkUsersGroup_User] REFERENCES [Users] ([UserId]) ON DELETE CASCADE ON UPDATE CASCADE NOT DEFERRABLE INITIALLY DEFERRED," & _
        " [GroupId] INTEGER CONSTRAINT [fkUsersGroups_Group] REFERENCES [Groups] ([GroupId]) ON DELETE CASCADE ON UPDATE CASCADE NOT DEFERRABLE INITIALLY DEFERRED," & _
        " CONSTRAINT [] PRIMARY KEY ([UserId], [GroupId]) ON CONFLICT IGNORE);")


; creation Printers
_SQLite_Exec($hDb, "CREATE TABLE [Printers] (" & _
        " [PrinterId] INTEGER NOT NULL PRIMARY KEY AUTOINCREMENT," & _
        " [PrinterName] CHAR NOT NULL COLLATE NOCASE);" & _
        " CREATE UNIQUE INDEX [ixPrinterName] ON Printers ([PrinterName] COLLATE NOCASE);")

; creation PrintOuts
_SQLite_Exec($hDb, "CREATE TABLE [PrintOuts] (" & _
        " [Id] INTEGER NOT NULL PRIMARY KEY AUTOINCREMENT," & _
        " [PrinterId] INTERGER CONSTRAINT [fkPrinter] REFERENCES [Printers] ([PrinterId]) ON DELETE CASCADE ON UPDATE CASCADE NOT DEFERRABLE INITIALLY DEFERRED," & _
        " [UserId] INTEGER CONSTRAINT [fkUserPrintOut] REFERENCES [Users] ([UserId]) ON DELETE CASCADE ON UPDATE CASCADE NOT DEFERRABLE INITIALLY DEFERRED, " & _
        " [Date] CHAR NOT NULL," & _
        " [Document] CHAR DEFAULT ('')," & _
        " [Pages] INTEGER NOT NULL," & _
        " [Copies] INTEGER NOT NULL," & _
        " [Client] CHAR DEFAULT ('')," & _
        " [Paper] CHAR NOT NULL," & _
        " [Language] CHAR DEFAULT ('')," & _
        " [Height] INTEGER," & _
        " [Width] INTEGER," & _
        " [Duplex] BOOL DEFAULT (0)," & _
        " [Grayscale] BOOL DEFAULT (0)," & _
        " [SizeKb] INTEGER);" & _
        " CREATE INDEX [ixPrintOutDate] ON [PrintOuts] ([Date]);" & _
        " CREATE INDEX [ixPrintOutUserId] ON [PrintOuts] ([UserId]);" & _
        " CREATE INDEX [ixPrintOutsPrinterId] ON [PrintOuts] ([PrinterId]);")

Global $aLines, $res
_FileReadToArray($sFilePathBDDUsersGroups, $aLines)
_SQLite_SetTimeout($hDb, 60000)         ; on laisse jusqu'à 60 s de timeout, juste au cas où la base serait exploitée/exploitable par un autre process
_SQLite_Exec($hDb, "begin immediate;")  ; on lance une transaction avant l'insertion en boucle, pour la performance
For $line In $aLines
    $res = StringRegExp($line, '([^,]*),([^,]*),?', 1)
    If Not @error Then
;~         _SQLite_Exec($hDb, "insert into Users (Username) values (" & ($res[0]) & ");" & _
;~                 "insert into Groups (Groupname) values (" & ($res[1]) & ");" & _
;~              "insert into UsersGroups (UserId, GroupId) values ((select UserId from Users where Username = " & ($res[0]) & ", (select GroupId from Groups where Groupname = " & ($res[1]) & " );")

         _SQLite_Exec($hDb, "insert into Users (Username) values (" & X($res[0]) & ");" & _
                "insert into Groups (Groupname) values (" & X($res[1]) & ");" & _
                "insert into UsersGroups (UserId, GroupId) values ((select UserId from Users where Username = " & X($res[0]) & ", (select GroupId from Groups where Groupname = " & X($res[1]) & " );")

    EndIf
Next
_SQLite_Exec($hDb, "commit;")

ça rempli bien la table 'Users' ds son intégralité j'ai bien tous mes utilisateurs,
pour la table 'Groups' , elle est partiellement remplie,
pour la table 'UsersGroups', elle est vide.
j'utilise le logiciel SQLite 2009 Pro pour éditer la base.

[jchd]

Plates excuses, essaye ça :

► Afficher le texte

Code : Tout sélectionner

#cs

Arghh, je savais bien que je risquais de faire des cagattes à force de claviotter à la va-vite dans ces conditions ... sportives.
Au temps pour moi, camarade : j'avais mis les clauses "IGNORE" n'importe comment, entre autres.
Voilà le _bon_ schéma pour ta base, normalement ...

#ce

_SQLite_Startup()
OnAutoItExitRegister("_SQLite_ShutDown")
ConsoleWrite("_SQLite_LibVersion = " &_SQLite_LibVersion() & @LF)
Global $hDb = _SQLite_Open(@ScriptDir & "\SpoolLog_" & @MON & ".db3")   ; heu, tu fais une base par mois ?
;  Pourquoi ne pas tout laisser dans _une seule_ base ?
;  N'aie pas peur de la laisser grossir, sauf si ça tourne sur un PC qui date de 1998
;  Quand elle dépassera le To, on en reparlera mais d'ici là, accumule sans vergogne.

#region Création du schéma
; creation du schéma
;   j'ai :
;       tout regroupé en un seul Exec (ce qui rend l'ensemble des CREATE transactionnel, donc plus véloce),
;       indenté proprement le SQL (c'est un langage structuré, alors autant en montrer la structure)
;       corrigé mes couenneries,
;       remis les parenthèses que tu avais enlevé dans l'insert (user, groupe), salopiaud ;-)
;       rendu la création des éléments optionnelle (clause if not exists),
;       rajouté deux vues pour illustration de cette possibilité

_SQLite_Exec($hDb, & _
    "CREATE TABLE if not exists [Groups] (" & _ ; creation table Groups
        " [GroupId] INTEGER NOT NULL PRIMARY KEY AUTOINCREMENT," & _
        " [GroupName] CHAR NOT NULL CONSTRAINT [ucGroupName] UNIQUE ON CONFLICT IGNORE COLLATE NOCASE);" & _
    "" & _
    "CREATE TABLE if not exists [Users] (" & _  ; creation table Users
        " [UserId] INTEGER NOT NULL PRIMARY KEY AUTOINCREMENT," & _
        " [UserName] CHAR NOT NULL CONSTRAINT [ucUserName] UNIQUE ON CONFLICT IGNORE);)" & _
    "" & _
    "CREATE TABLE if not exists [UsersGroups] (" & _    ; creation table UsersGroups
        " [UserId] INTEGER CONSTRAINT [fkUsersGroups_User] REFERENCES [Users] ([UserId]) ON DELETE CASCADE ON UPDATE CASCADE NOT DEFERRABLE INITIALLY DEFERRED," & _
        " [GroupId] INTEGER CONSTRAINT [fkUsersGroups_Group] REFERENCES [Groups] ([GroupId]) ON DELETE CASCADE ON UPDATE CASCADE NOT DEFERRABLE INITIALLY DEFERRED," & _
        " CONSTRAINT [] PRIMARY KEY ([UserId], [GroupId]) ON CONFLICT IGNORE);" & _
    "" & _
    "CREATE TABLE if not exists [Printers] (" & _   ; creation Printers
        " [PrinterId] INTEGER NOT NULL PRIMARY KEY AUTOINCREMENT," & _
        " [PrinterName] CHAR NOT NULL CONSTRAINT [ucPrinterName] UNIQUE ON CONFLICT IGNORE COLLATE NOCASE);)" & _
    "" & _
    "CREATE TABLE if not exists [PrintOuts] (" & _  ; creation PrintOuts
        " [Id] INTEGER NOT NULL PRIMARY KEY AUTOINCREMENT," & _
        " [PrinterId] INTERGER CONSTRAINT [fkPrinter] REFERENCES [Printers] ([PrinterId]) ON DELETE CASCADE ON UPDATE CASCADE NOT DEFERRABLE INITIALLY DEFERRED," & _
        " [UserId] INTEGER CONSTRAINT [fkUserPrintOut] REFERENCES [Users] ([UserId]) ON DELETE CASCADE ON UPDATE CASCADE NOT DEFERRABLE INITIALLY DEFERRED, " & _
        " [Date] CHAR NOT NULL," & _
        " [Document] CHAR DEFAULT ('')," & _
        " [Pages] INTEGER NOT NULL," & _
        " [Copies] INTEGER NOT NULL," & _
        " [Client] CHAR DEFAULT ('')," & _
        " [Paper] CHAR NOT NULL," & _
        " [Language] CHAR DEFAULT ('')," & _
        " [Height] INTEGER," & _
        " [Width] INTEGER," & _
        " [Duplex] BOOL DEFAULT (0)," & _
        " [Grayscale] BOOL DEFAULT (0)," & _
        " [SizeKb] INTEGER);" & _
    " CREATE INDEX if not exists [ixPrintOutDate] ON [PrintOuts] ([Date]);" & _
    " CREATE INDEX if not exists [ixPrintOutUserId] ON [PrintOuts] ([UserId]);" & _
    " CREATE INDEX if not exists [ixPrintOutsPrinterId] ON [PrintOuts] ([PrinterId]);" & _
    "" & _
    "CREATE VIEW if not exists [GroupOfUsers] AS " & _  ; vue User --> groupe(s)
        " select username [Nom d'utilisateur], upper(groupname) [Groupe AD]" & _
        "   from users natural join usersgroups natural join groups" & _
        "   order by username, groupname;" & _
    "" & _
    "CREATE VIEW if not exists [UsersInGroups] AS" & _  ; vue Groupe --> user(s)
        " select upper(groupname) [Groupe AD], username [Nom d'utilisateur]" & _
        "   from groups natural join usersgroups natural join users" & _
        "   order by groupname, username;" & _
    "" _
    )
#endregion

#region Chargement table AD
Global $aLines, $res
_FileReadToArray($sFilePathBDDUsersGroups, $aLines)
_SQLite_SetTimeout($hDb, 60000)         ; on laisse jusqu'à 60 s de timeout, juste au cas où la base serait exploitée/exploitable par un autre process
_SQLite_Exec($hDb, "begin immediate;")  ; on lance une transaction avant l'insertion en boucle, pour la performance
For $line In $aLines
    $res = StringRegExp($line, '([^,]*),([^,]*),?', 1)
    If Not @error Then
        _SQLite_Exec($hDb, & _
            "insert into Users (Username) values (" & X($res[0]) & ");" & _
            "insert into Groups (Groupname) values (" & X($res[1]) & ");" & _
            "insert into UsersGroups (" & _
                    "UserId, GroupId" & _
                ") values (" & _
                    "(select UserId from Users where Username = " & X($res[0]) & "), " & _
                    "(select GroupId from Groups where Groupname = " & X($res[1]) & " )" & _
                ");" _
        )
    EndIf
Next
_SQLite_Exec($hDb, "commit;")
#endregion

#region Fonctions
;***** Les Fonctions *****
Func AdUsertoGroup($userAD)
    Global $aUser
    $aUser = _AD_GetUserGroups($userAD)
    If @error > 0 Then
            MsgBox(0, "Users", "user:  " & $UserAD)
            $userAD = $userimp
            MsgBox(0, "Users", "user:  " & $UserAD)
            For $j = 1 to $aUser
;~              MsgBox(0, "Groupe " & $j & "/" & $aUser[0] & " de l'utilisateur " & $userAD, "user: "&$UserAD&" est membre du groupe :"&$j)
                $cnGroupeAD = StringSplit($j, ",")
                if StringInStr($j, $cnGroupeAD[1]) Then
                    $ggGroupAD = StringTrimLeft($cnGroupeAD[1], 3)
;~                  MsgBox(0,"group user","user member of group "&$ggGroupAD)
                EndIf
;~              MsgBox(0,"group user","user member of group "&$aUser[$i])
            Next
;~             MsgBox(64, "Active Directory Functions - Example 1", "User '" & $userAD & "' has not been assigned to any group")
        Else
;~          _ArraySort($aUser, 0, 1)
;~          _ArrayDisplay($aUser, "Active Directory Functions - Example 1 - Group names user '" & $userAD & "' is a member of")
            For $j = 1 to $aUser
;~              MsgBox(0, "Groupe " & $j & "/" & $aUser[0] & " de l'utilisateur " & $userAD, "user: "&$UserAD&" est membre du groupe :"&$j)
                $cnGroupeAD = StringSplit($j, ",")
                if StringInStr($j, $cnGroupeAD[1]) Then
                    $ggGroupAD = StringTrimLeft($cnGroupeAD[1], 3)
;~                  MsgBox(0,"group user","user member of group "&$ggGroupAD)
                EndIf
;~              MsgBox(0,"group user","user member of group "&$aUser[$i])
            Next
    EndIf
EndFunc  ;==>AdUsertoGroup

Func _StringRemove($s_string, $s_remove, $s_delim = "|")
    $s_remove = StringSplit($s_remove, $s_delim)
    If @error Then Return 0
    For $i = 1 To $s_remove[0]
        $s_string = StringReplace($s_string, $s_remove[$i], "")
        If @error Then Return 0
    Next
    Return $s_string
EndFunc  ;==>_StringRemove
#endregion


#region SQLite Helpers
;Fonction inser ds SQLite
Func W($s)
    Return ("'" & StringReplace($s, "'", "",0 ,1) & "%'")
EndFunc    ;==>W

Func X($s)
    Return ("'" & StringReplace($s, "'", "''", 0, 1) & "'")
EndFunc   ;==>X

Func XX($s)
    Return (",'" & StringReplace($s, "'", "''", 0, 1) & "'")
EndFunc   ;==>XX

Func Y($s)
    Return ("X'" & Hex($s) & "'")
EndFunc   ;==>Y

Func YY($s)
    Return (",X'" & Hex($s) & "'")
EndFunc   ;==>YY

Func Z($s)
    Return (Number($s))
EndFunc   ;==>Z

Func ZZ($s)
    Return ("," & Number($s))
EndFunc   ;==>ZZ
#endregion

j'utilise le logiciel SQLite 2009 Pro pour éditer la base.

Comme tu veux...

[ludoo]

super , la création de la base est ok ,
l'insertion ds la base est correct , j'ai modifié les inserts ,de faire tous d'un seul bloque généré des erreurs.
Pour la création d'une base par mois, c comme j'ai les log tous les mois donc ... , mais créer un base générale , j'adhère , cela modifie les insert ds la base ou je garde les insert actuel?

remis les parenthèses que tu avais enlevé dans l'insert (user, groupe), salopiaud

c pour tester ta myopie traditionnelle pas de souci malgré les nombreux pièges ( bout de code, information incomplète, ect..).
Au début j'avais commencé un code via des requêtes snmp vers les imprimantes et copieur pour interroger les compteurs d'impression , puis mettre tout cela ds un fichier excel.
Puis la demande de création de script en se basant sur le spooler d'impression ( la base sqlite), question est ce que tous les impressions qui passent par le spooler d'impression sont bien réellement imprimées, chez moi hélas non car les fonctions avancées des copieurs permet de faire du stockage avant impression. D'où l'info du spooler est partiellement vrai.
l'idéale sa serait de merger les deux, mais la c l'usine. La plupart des logiciels de rapport d'impression se base sur le spooler d'impression des serveurs d'impression.
Stop j'arrête la réflexion ( c dimanche et OL fait match nul contre PSG). je rectifie , l'OL vient de perdre arrrhhh!!
Voici les différents scripts qui vont m'aider à effectuer des rapports d'impression assez finement en pièce jointe.
Pour le script snmp , je pense qu'on peut l'optimiser
Pour le script Excel , peut on renseigner le fichier sans l'ouvrir ?
Pour le script SQlite , merci jchd
j'ai encore des lacunes sur les requêtes sqlite ex:
- requête avec les groupes et le nombre d'impression A4 (total copie*pages)

► Afficher le texte

Code : Tout sélectionner

#ce
_SQLite_Startup()
OnAutoItExitRegister("_SQLite_ShutDown")
ConsoleWrite("_SQLite_LibVersion = " &_SQLite_LibVersion() & @LF)
Global $hDb = _SQLite_Open(@ScriptDir & "\SpoolLog_" & @MON & ".db3")   ; heu, tu fais une base par mois ?
;  Pourquoi ne pas tout laisser dans _une seule_ base ?
;  N'aie pas peur de la laisser grossir, sauf si ça tourne sur un PC qui date de 1998
;  Quand elle dépassera le To, on en reparlera mais d'ici là, accumule sans vergogne.

#region Création du schéma
; creation du schéma
;   j'ai :
;       tout regroupé en un seul Exec (ce qui rend l'ensemble des CREATE transactionnel, donc plus véloce),
;       indenté proprement le SQL (c'est un langage structuré, alors autant en montrer la structure)
;       corrigé mes couenneries,
;       remis les parenthèses que tu avais enlevé dans l'insert (user, groupe), salopiaud ;-)
;       rendu la création des éléments optionnelle (clause if not exists),
;       rajouté deux vues pour illustration de cette possibilité

_SQLite_Exec($hDb, "CREATE TABLE if not exists [Groups] (" & _ ; creation table Groups
        " [GroupId] INTEGER NOT NULL PRIMARY KEY AUTOINCREMENT," & _
        " [GroupName] CHAR NOT NULL CONSTRAINT [ucGroupName] UNIQUE ON CONFLICT IGNORE COLLATE NOCASE);")

_SQLite_Exec($hDb, "CREATE TABLE if not exists [Users] (" & _  ; creation table Users
        " [UserId] INTEGER NOT NULL PRIMARY KEY AUTOINCREMENT," & _
        " [UserName] CHAR NOT NULL CONSTRAINT [ucUserName] UNIQUE ON CONFLICT IGNORE);")

_SQLite_Exec($hDb, "CREATE TABLE if not exists [UsersGroups] (" & _    ; creation table UsersGroups
        " [UserId] INTEGER CONSTRAINT [fkUsersGroups_User] REFERENCES [Users] ([UserId]) ON DELETE CASCADE ON UPDATE CASCADE NOT DEFERRABLE INITIALLY DEFERRED," & _
        " [GroupId] INTEGER CONSTRAINT [fkUsersGroups_Group] REFERENCES [Groups] ([GroupId]) ON DELETE CASCADE ON UPDATE CASCADE NOT DEFERRABLE INITIALLY DEFERRED," & _
        " CONSTRAINT [] PRIMARY KEY ([UserId], [GroupId]) ON CONFLICT IGNORE);")

_SQLite_Exec($hDb, "CREATE TABLE if not exists [Printers] (" & _   ; creation Printers
        " [PrinterId] INTEGER NOT NULL PRIMARY KEY AUTOINCREMENT," & _
        " [PrinterName] CHAR NOT NULL CONSTRAINT [ucPrinterName] UNIQUE ON CONFLICT IGNORE COLLATE NOCASE);")

_SQLite_Exec($hDb, "CREATE TABLE if not exists [PrintOuts] (" & _  ; creation PrintOuts
        " [Id] INTEGER NOT NULL PRIMARY KEY AUTOINCREMENT," & _
        " [PrinterId] INTERGER CONSTRAINT [fkPrinter] REFERENCES [Printers] ([PrinterId]) ON DELETE CASCADE ON UPDATE CASCADE NOT DEFERRABLE INITIALLY DEFERRED," & _
        " [UserId] INTEGER CONSTRAINT [fkUserPrintOut] REFERENCES [Users] ([UserId]) ON DELETE CASCADE ON UPDATE CASCADE NOT DEFERRABLE INITIALLY DEFERRED, " & _
        " [Date] CHAR NOT NULL," & _
        " [Document] CHAR DEFAULT ('')," & _
        " [Pages] INTEGER NOT NULL," & _
        " [Copies] INTEGER NOT NULL," & _
        " [Client] CHAR DEFAULT ('')," & _
        " [Paper] CHAR NOT NULL," & _
        " [Language] CHAR DEFAULT ('')," & _
        " [Height] INTEGER," & _
        " [Width] INTEGER," & _
        " [Duplex] BOOL DEFAULT (0)," & _
        " [Grayscale] BOOL DEFAULT (0)," & _
        " [SizeKb] INTEGER);" & _
    " CREATE INDEX if not exists [ixPrintOutDate] ON [PrintOuts] ([Date]);" & _
    " CREATE INDEX if not exists [ixPrintOutUserId] ON [PrintOuts] ([UserId]);" & _
    " CREATE INDEX if not exists [ixPrintOutsPrinterId] ON [PrintOuts] ([PrinterId]);")

_SQLite_Exec($hDb, "CREATE VIEW if not exists [GroupOfUsers] AS " & _  ; vue User --> groupe(s)
        " select username [Nom d'utilisateur], upper(groupname) [Groupe AD]" & _
        "   from users natural join usersgroups natural join groups" & _
        "   order by username, groupname;")

_SQLite_Exec($hDb, "CREATE VIEW if not exists [UsersInGroups] AS" & _  ; vue Groupe --> user(s)
        " select upper(groupname) [Groupe AD], username [Nom d'utilisateur]" & _
        "   from groups natural join usersgroups natural join users" & _
        "   order by groupname, username;")
#endregion

#region Chargement table AD
Global $aLines, $res
_FileReadToArray($sFilePathBDDUsersGroups, $aLines)
_SQLite_SetTimeout($hDb, 60000)         ; on laisse jusqu'à 60 s de timeout, juste au cas où la base serait exploitée/exploitable par un autre process
_SQLite_Exec($hDb, "begin immediate;")  ; on lance une transaction avant l'insertion en boucle, pour la performance
For $line In $aLines
    $res = StringRegExp($line, '([^,]*),([^,]*),?', 1)
    If Not @error Then
        _SQLite_Exec($hDb, "insert into Users (Username) values (" & X($res[0]) & ");" & _
            "insert into Groups (Groupname) values (" & X($res[1]) & ");" & _
            "insert into UsersGroups (" & _
                    "UserId, GroupId" & _
                ") values (" & _
                    "(select UserId from Users where Username = " & X($res[0]) & "), " & _
                    "(select GroupId from Groups where Groupname = " & X($res[1]) & " )" & _
                ");" _
        )
    EndIf
Next

_FileReadToArray($fileMois, $aLines)
;~ _SQLite_SetTimeout($hDb, 60000)         ; on laisse jusqu'à 60 s de timeout, juste au cas où la base serait exploitée/exploitable par un autre process
;~ _SQLite_Exec($hDb, "begin immediate;")  ; on lance une transaction avant l'insertion en boucle, pour la performance
For $line In $aLines
    $res = StringRegExp($line, '([^,]*),([^,]*),([^,]*),([^,]*),([^,]*),"([^,]*)",([^,]*),([^,]*),([^,]*),([^,]*),([^,]*),([^,]*),([^,]*),([^,]*)kb,?', 1)
    If Not @error Then
        $res[11] = Number($res[1] = 'DUPLEX')
        $res[12] = Number($res[12] = 'GRAYSCALE')
        _SQLite_Exec($hDb, "insert into Printers (PrinterName) values (" & X ($res[4]) & ");")
        _SQLite_Exec($hDb, "insert into PrintOuts (UserID, PrinterId, Date, Document, Pages, Copies, Client, " & _
                " Paper, Language, Height, " & _
                " Width, Duplex, Grayscale, SizeKb) " & _
                " values ((select userid from users where username = "& X($res[1])& "), (select printerid from printers where printername = "& X($res[4]) & ")," & _
                X($res[0]) & XX($res[5]) & ZZ($res[2]) & ZZ($res[3]) & _
                XX($res[6]) & XX($res[7]) & XX($res[8]) & ZZ($res[9]) & _
                ZZ($res[10]) & ZZ($res[11]) & ZZ($res[12]) & ZZ($res[13]) & ");")
    EndIf
Next

_SQLite_Exec($hDb, "commit;")

[jchd]

Tu peux accumuler niaisement, tu as la date de chaque printout, indexée. Rien ne limite la fourchette de dates, ni au niveau des inserts, ni ailleurs. C'est à toi de requérir sur "date between xxx and yyy" si tu en as besoin. Côté volume, rien à craindre, SQLite assume.

Pour SNMP, je ne suis pas assez familier avec, donc je risque de te dire (encore) des couenneries. Au niveau du principe, tente d'extraire les infos sous le même format que celui des logs. Quite à rajouter une colonne "source" dans la table printout, qui pourrait valoir 'S' (SNMP), 'L' (logs), 'D' (divination), ...

Tu peux faire ce que tu veux avec un fichier Excel via l'UDF ... Excel. Facile.

Pour le total de copies par groupe, il faut savoir de quoi on parle :
select upper(groupname) as Groupe, total(pages * copies) as "Copies imprimées" from printouts natural join users natural join usersgroups natural join groups group by groupname order by groupname;
va bien renvoyer une liste de tous les groupes qui ont imprimé avec le total des copies faites par ce groupe.
Mais ...
si un user fait partie de deux ou plusieurs groupes, son total de copies

► Afficher le texte

va apparaître dans chaque groupe où il figure

Il faut toujours bien réfléchir avant de se lancer dans le vide sans parachute sinon nos merveilleuses machines nous renvoient, à la vitesse de l'éclair, nos "myopies" dans les dents sous forme de données non significatives et de pseudo-informations faussées.

Exercice : modifier la requête précédente pour éviter cela, faisant donc en sorte que le total des copies attribuées aux différents groupes corresponde au total des copies physiques.

Quand tu as des requêtes récurrentes (type rapports), n'hésite pas à en faire des vues, par exemple :

► Afficher le texte

CREATE VIEW [Est_Membre_De] AS
select username "L'utilisateur", group_concat(groupname, ', ') "fait partie de" from users natural join usersgroups natural join groups group by userid order by username;

CREATE VIEW [Groupe_Comprend] AS
select groupname "Le groupe", group_concat(username, ', ') "a pour membres" from users natural join usersgroups natural join groups group by groupid order by groupname;

CREATE VIEW [Copies/Groupe] AS
select groupname as Groupe, total(pages * copies) as "Copies imprimées" from printouts natural join users natural left outer join (select * from usersgroups group by userid) natural join groups group by groupname order by groupname

Zut, j'ai bien peur d'avoir donné la solution...
Ensuite, dans ton appli, tu peux récupérer le contenu de la vue comme si c'était une table, à laquelle tu peux d'ailleurs rajouter des conditions de sélection :

► Afficher le texte

select * from [Copies/Groupe] where date like '2011-09';

Une vue ne coûte rien : ce n'est qu'une requête (celle qui définit la vue) stockée dans la DDL de la base. Elle ne s'exécute que lorsque tu l'affiche avec ton manager ou quand tu "tapes" dedans avec une autre requête, comme celle ci-dessus. Elle en devient alors une sous-requête. Cela simplifie/clarifie le code de ton appli. Qui plus est, il est possible de modifier les données d'une vue (si, si !) par des triggers INSTEAD OF qui permettent de modifier la ou les tables qui alimentent cette vue.

>Tu vois que les possibilités sont virtuellement infinies, avec _très_ peu de code en fait (une fois que le schéma de la base est créé). Imagine le code AutoIt qu'il te faudrait écrire si tu voulais obtenir autant de souplesse et de puissance de requêtes et les difficultés de mise au point et de maintenance/évolution.

Encore une fois, j'avoue profiter lâchement de ton exemple de projet pour illustrer à quel point SQLite s'avère l'outil idéal pour stocker, organiser et accéder à des données applicatives sous un format portable, compact et terriblement efficace. Quand on rajoute à ça les qualités ACID que SQLite offre naturellement, on voit mal pourquoi certains s'obstinent à maintenir péniblement des usines à gaz de multiples fichiers aux formats propriétaires qui n'assurent aucune solidité et demandent beaucoup plus d'efforts de développement.

[ludoo]

merci pour les requêtes "create view",

Ensuite, dans ton appli, tu peux récupérer le contenu de la vue comme si c'était une table, à laquelle tu peux d'ailleurs rajouter des conditions de sélection :
Spoiler pour :
select * from [Copies/Groupe] where date like '2011-09';

alors ça c terrible

Qui plus est, il est possible de modifier les données d'une vue (si, si !) par des triggers INSTEAD OF qui permettent de modifier la ou les tables qui alimentent cette vue.

c pour mettre à jour la vue?je vais chercher sur un forum sql
je te remercie du temps que tu as consacré sur mon problème et trouver la bonne solution pour que ce script soit stable dans le temps et aussi d'orienter vers le SQL car c vraiment puissant couplé avec AutoIt.
on a du te le dire une bonne centaine de fois , un tuto sur SQLite

# une section sur SQLite dans le forum ?#

[jchd]

L'intérêt des vues est qu"elles permettent de disposer de tables (fictives dans ce sens où elles ne contiennent aucune données elles-mêmes) rassemblant des requêtes simples ou extrêmement complexes sans surcharger ni la base ni l'application.

J'ai un tout autre point de vue concernant les procédures stockées. Ou bien ce sont des fonctions génériques (traitement particulier de chaînes ou autre) et dans ce cas elles devraient être implémentées sous forme d'extension. Ou bien elles sont propriétaires à une appli et devraient par conséquent être ramenées dans l'application. J'ai vu trop de cas où on utilise des procédures stockées pour créer une couche orientée-objet à du SQL classique. C'est pour moi une perversion dangereuse, car pour une modif de spécification, on doit synchroniser les modifs du schéma, des procédures stockées et de l'application ; c'est le contraire de la POO !

Je m'égare... Oui des vues sont utilisables telles quelles via par exemple un manager comme SQLite Expert qui te permet d'en faire un rapport texte, CSV, Excel, HTML, ... ou par toi dans une autre requête (ou autre vue) comme s'il s'agissait d'une table physique. C'est donc une "brique" SQL, tout comme une classe est une brique en POO. Exemple typique : j'ai une appli qui syndique deux bases dans des domaines connexes mais bien distincts. Plutôt que de mélanger dans une requête des éléments "bas niveau" des deux bases, je crée des vues dans les deux bases, offrant à la syndication les seuls éléments qu'elle a à connaître sans avoir à mettre les mains dans le cambouis et à tout mélanger. La syndication n'a plus à se préoccuper du "comment" pour l'obtention de telle info, on lui présente toute ficelée. La savoir-faire et les recettes de cuisine internes à une base restent cloîtrées au sein de celle-ci. C'est encore une forme de POO (limitée certes) ou au moins relève d'une salutaire séparation des pouvoirs. BTW, on peut accéder à une base externe après l'avoir rendue accessible avec un ATTACH. Très simple.

Oui moi aussi je trouve SQL très performant pour une palette d'utilisation incroyable et une sûreté de fonctionnement inégalée. Le fait que SQLite soit sans administration, sans installation et portable sur toute plate-forme 32 ou 64 bits sans _aucun_ changement en fait un outil de choix dans bien des cas ou l'instinct de beaucoup amène à construire des châteaux de sable qui ne tiennent ni la distance (maintenance, évolution) ni la charge (volume, multi-utilisateurs). L'investissement requis au départ pour construire la base et la faire vivre est vite rentabilisé et ce qui semble ardu et tortueux à un néophyte ne représente souvent qu'un petit pavé de lignes, surtout avec une plate-forme comme AutoIt.

Ton post est en fait un tuto "live". Du fond de mon actuelle cabanne de chantier et avec pour lien une clé 3G qui me coûte un bras et deux jambes chaque jour, j'ai du mal à faire beaucoup plus pour le moment. Plus tard, je ne dis pas...

Bonne chance pour ton projet et n'hésite pas à taper dans le mail si tu coinces sur un truc.

Sur ce, je présente à tou[te]s mes plus plates excuses pour avoir volontairement fait dévier ce post (long de par ma faute) d'un pur sujet AutoIt à des considérations centrées sur SQLite. Ceci dit, je crois que ce n'était pas une mauvaise chose et pourra servir à d'autres.

[ludoo]

j'ai voulu créer 2 vues:

► Afficher le texte

Code : Tout sélectionner

_SQLite_Exec($hDb, "CREATE VIEW [Copies/Groupe/A4] AS" & _
        " select groupname as Groupe, total(pages * copies) as [Pages imprimées] from printouts natural join users natural left outer join (select * from usersgroups group by userid) natural join groups where paper like 'a4' group by groupname order by [Pages imprimées] desc, groupname;")

_SQLite_Exec($hDb, "CREATE VIEW [Copies/Groupe/A3] AS" & _
        " select groupname as Groupe, total(pages * copies) as [Pages imprimées] from printouts natural join users natural left outer join (select * from usersgroups group by userid) natural join groups where paper like 'a3' group by groupname order by [Pages imprimées] desc, groupname;")
 

puis les requêtes sur ces vues:

► Afficher le texte

Code : Tout sélectionner

Func ReqBD_GGA4($ADGroup, ByRef $rows, ByRef $nrows)
    Local $ncols
    $res = _SQLite_GetTable2d($hDb, "select * from [Copies/Groupe/A4] where groupe like "& X($ADGroup) & ";", $rows, $nrows, $ncols)
;~     _ArrayDisplay($rows, "Copies par utilisateur")
EndFunc   ;==>ReqBD_BE

;Requetes SQL :groupe + impression A3
Func ReqBD_GGA3($ADGroup, ByRef $rows, ByRef $nrows)
    Local $ncols
    $res = _SQLite_GetTable2d($hDb, "select * from [Copies/Groupe/A3] where groupe like "& X($ADGroup) & ";", $rows, $nrows, $ncols)
;~     _ArrayDisplay($rows, "Copies par utilisateur")
EndFunc   ;==>ReqBD_BE

et une vue [utilisateur / copie A4]:

► Afficher le texte

Code : Tout sélectionner

_SQLite_Exec($hDb, "CREATE VIEW [Users/A4] AS" & _
        " select upper(username) as Utilisateurs, total(pages * copies) as [Pages imprimées] from printouts natural join users where paper like 'a4' group by userid order by [Pages imprimées] desc, username;")

par contre un truc bizarre ds la base,
exemple:
user1 membre du groupe XX
ds la vue [utilisateur / copie A4] j'ai bien mon user1 avec le nombre de copie.
lorsque j'ouvre la vue [Copies/Groupe/A4], je n'ai pas le groupe XX dont l'utilisateur fait parti.

[jchd]

N'ayant pas ta base ni celle que j'ai fabriqué à l'arrache sous la main, je tente une hypothèse : et si ton user1 fait partie de plus d'un groupe ?

[ludoo]

oui effectivement , l'utilisateur fait partie de plusieurs groupe.
le nom des groupes est de la forme : GG-xx-ab , GG-xx-ac
code de la base avec les vues.

► Afficher le texte

Code : Tout sélectionner

_SQLite_Exec($hDb, "CREATE TABLE if not exists [Groups] (" & _ ; creation table Groups
        " [GroupId] INTEGER NOT NULL PRIMARY KEY AUTOINCREMENT," & _
        " [GroupName] CHAR NOT NULL CONSTRAINT [ucGroupName] UNIQUE ON CONFLICT IGNORE COLLATE NOCASE);")

_SQLite_Exec($hDb, "CREATE TABLE if not exists [Users] (" & _  ; creation table Users
        " [UserId] INTEGER NOT NULL PRIMARY KEY AUTOINCREMENT," & _
        " [UserName] CHAR NOT NULL CONSTRAINT [ucUserName] UNIQUE ON CONFLICT IGNORE);")

_SQLite_Exec($hDb, "CREATE TABLE if not exists [UsersGroups] (" & _    ; creation table UsersGroups
        " [UserId] INTEGER CONSTRAINT [fkUsersGroups_User] REFERENCES [Users] ([UserId]) ON DELETE CASCADE ON UPDATE CASCADE NOT DEFERRABLE INITIALLY DEFERRED," & _
        " [GroupId] INTEGER CONSTRAINT [fkUsersGroups_Group] REFERENCES [Groups] ([GroupId]) ON DELETE CASCADE ON UPDATE CASCADE NOT DEFERRABLE INITIALLY DEFERRED," & _
        " CONSTRAINT [] PRIMARY KEY ([UserId], [GroupId]) ON CONFLICT IGNORE);")

_SQLite_Exec($hDb, "CREATE TABLE if not exists [Printers] (" & _   ; creation Printers
        " [PrinterId] INTEGER NOT NULL PRIMARY KEY AUTOINCREMENT," & _
        " [PrinterName] CHAR NOT NULL CONSTRAINT [ucPrinterName] UNIQUE ON CONFLICT IGNORE COLLATE NOCASE);")

_SQLite_Exec($hDb, "CREATE TABLE if not exists [PrintOuts] (" & _  ; creation PrintOuts
        " [Id] INTEGER NOT NULL PRIMARY KEY AUTOINCREMENT," & _
        " [PrinterId] INTERGER CONSTRAINT [fkPrinter] REFERENCES [Printers] ([PrinterId]) ON DELETE CASCADE ON UPDATE CASCADE NOT DEFERRABLE INITIALLY DEFERRED," & _
        " [UserId] INTEGER CONSTRAINT [fkUserPrintOut] REFERENCES [Users] ([UserId]) ON DELETE CASCADE ON UPDATE CASCADE NOT DEFERRABLE INITIALLY DEFERRED, " & _
        " [Date] CHAR NOT NULL," & _
        " [Document] CHAR DEFAULT ('')," & _
        " [Pages] INTEGER NOT NULL," & _
        " [Copies] INTEGER NOT NULL," & _
        " [Client] CHAR DEFAULT ('')," & _
        " [Paper] CHAR NOT NULL," & _
        " [Language] CHAR DEFAULT ('')," & _
        " [Height] INTEGER," & _
        " [Width] INTEGER," & _
        " [Duplex] BOOL DEFAULT (0)," & _
        " [Grayscale] BOOL DEFAULT (0)," & _
        " [SizeKb] INTEGER);" & _
    " CREATE INDEX if not exists [ixPrintOutDate] ON [PrintOuts] ([Date]);" & _
    " CREATE INDEX if not exists [ixPrintOutUserId] ON [PrintOuts] ([UserId]);" & _
    " CREATE INDEX if not exists [ixPrintOutsPrinterId] ON [PrintOuts] ([PrinterId]);")

_SQLite_Exec($hDb, "CREATE VIEW if not exists [GroupOfUsers] AS " & _  ; vue User --> groupe(s)
        " select username [Nom d'utilisateur], upper(groupname) [Groupe AD]" & _
        "   from users natural join usersgroups natural join groups" & _
        "   order by username, groupname;")

_SQLite_Exec($hDb, "CREATE VIEW if not exists [UsersInGroups] AS" & _  ; vue Groupe --> user(s)
        " select upper(groupname) [Groupe AD], username [Nom d'utilisateur]" & _
        "   from groups natural join usersgroups natural join users" & _
        "   order by groupname, username;")

_SQLite_Exec($hDb, "CREATE VIEW [Copies/Groupe/A4] AS" & _
        " select groupname as Groupe, total(pages * copies) as [Pages imprimées] from printouts natural join users natural left outer join (select * from usersgroups group by userid) natural join groups where paper like 'a4' group by groupname order by [Pages imprimées] desc, groupname;")

_SQLite_Exec($hDb, "CREATE VIEW [Copies/Groupe/A3] AS" & _
        " select groupname as Groupe, total(pages * copies) as [Pages imprimées] from printouts natural join users natural left outer join (select * from usersgroups group by userid) natural join groups where paper like 'a3' group by groupname order by [Pages imprimées] desc, groupname;")

_SQLite_Exec($hDb, "CREATE VIEW [Est_Membre_De] AS" & _
        " select username [L'utilisateur], group_concat(groupname, ', ') [fait partie de] from users natural join usersgroups natural join groups group by userid order by username;")

_SQLite_Exec($hDb, "CREATE VIEW [Groupe_Comprend] AS" & _
        " select groupname [Le groupe], group_concat(username, ', ') [a pour membres] from users natural join usersgroups natural join groups group by groupid order by groupname;")

_SQLite_Exec($hDb, "CREATE VIEW [Users/A4] AS" & _
        " select upper(username) as Utilisateurs, total(pages * copies) as [Pages imprimées] from printouts natural join users where paper like 'a4' group by userid order by [Pages imprimées] desc, username;")

_SQLite_Exec($hDb, "CREATE VIEW [Users/A3] AS" & _
        " select upper(username) as Utilisateurs, total(pages * copies) as [Pages imprimées] from printouts natural join users where paper like 'a3' group by userid order by [Pages imprimées] desc, username;")

_SQLite_Exec($hDb,"CREATE VIEW [Copies/Groupe] AS" & _
        " select groupname as Groupe, total(pages * copies) as [Copies imprimées] from printouts natural join users natural left outer join (select * from usersgroups group by userid) natural join groups group by groupname order by groupname;")

[jchd]

C'est donc bien cela. Revois le message où j'évoquais cette subtilité. Si on liste tous les groupes d'un utilisateur et qu'on fait le total de _leurs_ copies (de cchaque groupe), on dupplique l'information des utilisateurs faisant partie de plus d'un groupe. D'où le left outer join et alors il peut y avoir des groupes qui "disparaissent" (en fait, les copies sont décomptées sous un autre groupe).

Si j'ai 5 boîtes de tomates pelées que je considère comme faisant partie à la fois de la famille des fruits et de la famille des légumes, ce n'est pas pour autant que j'ai 10 de ces boîtes en stock ! Si je liste niaisement le stock de chaque famille, c'est bien le résultat absurde que j'obtiens.

Soit on fait un état du stock des légumes, soit des fruits, soit des boîtes de conserves. Toute autre combinaison n'a pas de sémantique et est une erreur mathématique (n'oublions pas que SQL traite essentiellement des ensembles, de leurs éléments et de leurs relations avec une logique reposant quasi-exclusivement sur la théorie mathématique sous-jacente).

De la même façon, un fichier ne peut appartenir à la fois à deux arborescence distinctes. Soit on le copie ailleurs (il y a alors deux fichiers distincts), soit on en fait un lien symbolique (ce qui est un autre type d'objet distinct du fichier réel).

On frôle le "paradoxe" du catalogue des catalogues qui ne se mentionnent pas eux-mêmes...