Discussion :

[skaith]

Bonjour à tous.

Je débute en programmation de base de données et avant de me lancer dans le grand bain pour mon application j’ai voulu faire mes armes sur un projet simple. En l’occurrence une base de données pour livres. Malgré la simplicité de ma base je bute sur un point. Après des jours de recherche et de test infructueux je me permets de vous sollicité.

Contexte de développement :
Delphi 12 community edition
Sqlite

La structure de ma base de données est la suivante

Code sql :

Sélectionner tout - Visualiser dans une fenêtre à part

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
38
39
40
41
42
43
44
45
CREATE TABLE tableEditeurs(
   id INTEGER PRIMARY KEY AUTOINCREMENT NOT NULL,
   editeur VARCHAR(50) NOT NULL,
   collection VARCHAR(50)
);
 
CREATE TABLE tableAuteurs(
   id INTEGER PRIMARY KEY AUTOINCREMENT NOT NULL,
   nom VARCHAR(50) NOT NULL,
   prenom VARCHAR(50)
);
 
CREATE TABLE tableSeries(
   id INTEGER PRIMARY KEY AUTOINCREMENT NOT NULL,
   serie VARCHAR(150) NOT NULL UNIQUE
);
 
CREATE TABLE tableLivres(
   id INTEGER PRIMARY KEY AUTOINCREMENT NOT NULL,
   numero INTEGER NOT NULL,
   titre VARCHAR(150) NOT NULL,
   lu BOLEEN NOT NULL,
   acquit BOLEEN NOT NULL,
   autreNumero INTEGER,
   auteurs_id INTEGER NOT NULL,
   serie_id INTEGER NOT NULL,
   Editeur_id INTEGER NOT NULL,
   FOREIGN KEY(serie_id) REFERENCES tableSerie(id)
);
 
CREATE TABLE tableLivres_tableAuteurs(
   livre_id INTEGER NOT NULL,
   auteurs_id INTEGER NOT NULL,
   FOREIGN KEY(livre_id) REFERENCES tableLivres(id),
   FOREIGN KEY(auteurs_id) REFERENCES tableAuteurs(id),
   PRIMARY KEY(livre_id, auteurs_id) UNIQUE
);
 
CREATE TABLE tableLivres_tableEditeurs(
   livre_id INTEGER NOT NULL,
   editeurs_id INTEGER NOT NULL,
   FOREIGN KEY(livre_id) REFERENCES tableLivres(id),
   FOREIGN KEY(editeurs_id) REFERENCES tableEditeurs(id),
   PRIMARY KEY(livre_id, editeurs_id) UNIQUE
);

Pour les trois tables ‘tableserie’, ‘tableediteurs’ et ‘tableauteurs’ je n’ai aucun problème de gestion ni de maintenance.
Pour la table livre j’ai voulu utiliser des DBLookupCombobox pour la gestion et c’est la que je rencontre un problème. Mes données sont affichées dans un DBGrid avec la requête suivante.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
  GrilleQuery.sql.Clear;
  GrilleQuery.sql.Add('SELECT');
  // Champs affichés
  GrilleQuery.sql.Add
    ('tablelivres.numero AS N°, tablelivres.present AS Acquis, tablelivres.titre AS Titre,');
  GrilleQuery.sql.Add
    ('tableediteurs.editeur  AS Editeur, tableediteurs.collection AS Collection, tableSeries.serie AS Série,');
  GrilleQuery.sql.Add
    (' tableAuteurs.nom AS Nom, tableAuteurs.prenom AS Prénom, tablelivres.lu AS Lu');
  // Depuis la table
  GrilleQuery.sql.Add('FROM tableLivres');
 
  // Récupère la série liée au titre
  GrilleQuery.sql.Add
    ('LEFT JOIN tableSeries on tablelivres.serie_id = tableSeries.id');
 
  // Récupère le ou les auteurs liés au titre
  GrilleQuery.sql.Add
    ('JOIN tableLivres_tableAuteurs ON tableLivres_tableAuteurs.livre_id = tablelivres.id');
  GrilleQuery.sql.Add
    ('JOIN tableAuteurs ON tableLivres_tableAuteurs.auteurs_id = tableAuteurs.id');
 
  // Récupère le ou les éditeurs liés au titre
  GrilleQuery.sql.Add
    ('JOIN tableLivres_tableediteurs ON tableLivres_tableediteurs.livre_id = tablelivres.editeur_id');
  GrilleQuery.sql.Add
    ('JOIN tableediteurs ON tableLivres_tableediteurs.editeurs_id = tableediteurs.id');
 
  GrilleQuery.sql.Add('ORDER BY numero ASC');
  GrilleQuery.Open;

Les paramètres du DBLookupCombobox sont :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
  // ==== test N° ============================================================
   AuteurNomQuery := TFDQuery.Create(self);
   AuteurNomQuery.Connection := U_Data.Data.FDConnection1;
   AuteurNomQuery.sql.Clear;
   AuteurNomQuery.Open('SELECT nom FROM tableauteurs ORDER BY nom ASC');
 
   AuteurNomDataSource := TDataSource.Create(self);
   AuteurNomDataSource.DataSet := AuteurNomQuery;
 
   EdAuteurNom.ListSource := AuteurNomDataSource;
//   EdAuteurNom.ListField := 'nom';
   EdAuteurNom.KeyField := 'nom';
 
   EdAuteurNom.DataSource := GrilleSource;
   EdAuteurNom.DataField := 'nom';
 
   EdAuteurNom.DropDownWidth := 150;
  // ===========================================================================

La liste déroulante du DBLookupCombobox est bien mise à jour avec les bonnes valeurs.



La sélection d’un champ dans le DBGrid met bien à jour le champ de saisie du DBLookupCombobox.



Par contre il met impossible de sélectionner une valeur dans la liste déroulante et de mettre à jour le champ correspondant du DBGrid.

Pouvez me renseigner sur mon erreur et si j’utilise la bonne méthode pour la gestion de ma base. D’avance merci.

PS : Pas trop de termes trop techniques sur les bases de données je débute et ce n’est que ma première base de données.

[ShaiLeTroll]

Pour débuter le DBLookupCombobox n'est pas du tout le controle DB le plus aisé

KeyField devrait plutôt être auteurs_id avec les SELECT de ListSource contenant auteurs_id et nom donc SELECT auteurs_id, nom FROM tableauteurs ORDER BY nom ASC;
Le premier pour la jointure, le second pour l'affichage
Donc KeyField := 'auteurs_id' et ListField := 'nom', évidemment DataField := 'auteurs_id';


En plus si il y a une relation N-N, je pense que rédéfinir dans un TUpdateSQL les SQL de INSERT et UPDATE ne serait pas un luxe
Je suppose que tu gères un Auteur principale directement dans la table tableLivres et les co-auteurs dans tableLivres_tableAuteurs comme par exemple DUNE: LA Communauté des sœurs écrit par Brian Herbert co-écrit avec Kevin J Anderson.

Code DB :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
tableAuteurs(1000, 'Herbert', 'Franck')
tableAuteurs(1001, 'Herbert', 'Brian')
tableAuteurs(1002, 'Anderson', 'Kevin J.')
 
tableEditeurs(2000, 'Robert Laffont', 'Ailleurs et Demain')
 
tableSeries(5000, 'DUNE')
 
tableLivres(60000, 100, 'DUNE: LA Communauté des sœurs', True, True, 666, 1001, 5000, 2000)
 
tableLivres_tableAuteurs(60000, 1002)

Ensuite provoquer le reflet dans la TDBGrid d'une modification du auteurs_id ne sera pas automatique, en fait dans la DataSet, cela ne modifie que auteurs_id, il te faudra manuellement récupéré le nom
Tu devrais explorer la piste du LookupDataSet, je l'utilise surtout avec des TClientDataSet, j'ai pas fait d'IHM de ce genre depuis quelques années au profit d'une programmation exclusivement server, mais j'ai toujours détesté le DBLookupCombobox même après 15 ans d'expérience en Delphi, souvent on manque de liberté et l'expérience utilisateur n'est pas terrible avec ce contrôle DB.

Tu peux aussi utiliser une PickList directement dans la TDBGrid, je l'ai utilisé pas mal en D3 même si je lui préféré un OnElipsis avec un éditeur de colonne maison.



Personnellement, je n'utilise jamais les controles DB pour faire les mises à jour directement sur la Base, je préfère de loin générer mon propre SQL (via une couche Entity lié à TClientDataSet et Delta) pour maitriser tout ce qui se passe.

[SergioMaster]

Bonjour et bienvenue,

j'attendais que ShaiLeTroll réponde avant de me lancer à mon tour (apparemment on regarde le forum plus ou moins en même temps).
Je ferais les mêmes remarques que lui :
- Il faut un TFDUpdateQuery.
- Mais, je n'utiliserai qu'un seul combobox pour l'auteur affichant nom et prénom SELECT auteurs_id, nom,prénom FROM tableauteurs ORDER BY nom ASC; avec KeyField := 'auteurs_id' et ListField := 'nom,prenom';

je suggère aussi de compacter un peu cette écriture du SQL assez difficile à lire pour une écriture comme celle-ci utilisant aussi les noms d'alias de table

ce n'est qu'une ébauche. Comme la bonne idée a été de fournir le SQL de création des tables

Attention aux espaces à conserver

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
const SQLGrille = 'SELECT L.numero AS N°, L.Acquit, L.titre AS Titre,l.Serie_id,'+
       'E.editeur  AS Editeur, E.collection AS Collection, LS.serie AS Série,'+
       'A.nom AS Nom, A.prenom AS Prénom,L.lu AS Lu'+
' FROM tableLivres L'+
' LEFT JOIN tableSeries  LS on LS.id = l.serie_i'+
' JOIN tableLivres_tableAuteurs LA ON LA.livre_id = L.id'+
' JOIN TableAuteurs A ON A.id=LA.auteurs_id'+
' JOIN tableLivres_tableediteurs LE ON LE.livre_id = L.editeur_id'+
' JOIN tableediteurs E ON LE.editeurs_id = E.id'+
' ORDER BY numero ASC';
begin
 
GrilleQuery.Open(SQLGrille);

P.S. depuis D12 une possibilité d'écriture de texte plus facile (des chaînes littérales multilignes), toutefois on ne peut plus y mettre de commentaires et banni le reformatage de code (Ctrl+D) sous peine de mauvaises surprises

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
const SQLGrille = '''
                         SELECT L.numero AS N°, L.Acquit, L.titre AS Titre,l.Serie_id,
                         E.editeur  AS Editeur, E.collection AS Collection, LS.serie AS Série,
                        A.nom AS Nom, A.prenom AS Prénom,L.lu AS Lu
                        FROM tableLivres L
                        LEFT JOIN tableSeries  LS on LS.id = l.serie_i
                        JOIN tableLivres_tableAuteurs LA ON LA.livre_id = L.id
                        JOIN TableAuteurs A ON A.id=LA.auteurs_id
                        JOIN tableLivres_tableediteurs LE ON LE.livre_id = L.editeur_id
                        JOIN tableediteurs E ON LE.editeurs_id = E.id
                        ORDER BY numero ASC
                          ''' ;

j'ai ajouté la colonne l.serie_id qui sera nécessaire mais je pense qu'il en manque d'autres (en fait, dans le cadre d'un FDUPdateSQL il faut mettre toutes les colonnes de tableLivres)

[SergioMaster]

Dommage qu'il n'y ait pas de script de remplissage de données pour parfaire mon test (j'ai des doutes pour certaines jointures)

pour la partie FDUpdateSQL


(SQL moches à cause de l'utilisation de * mais j'ai utilisé ces SQLs)

Code SQL :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
SELECT L.*,
       E.editeur  AS Editeur, E.collection AS Collection, LS.serie AS Série,
       A.nom AS Nom, A.prenom AS Prénom
FROM tableLivres L
LEFT JOIN tableSeries  LS on LS.id = l.serie_id
JOIN tableLivres_tableAuteurs LA ON LA.livre_id = L.id
JOIN TableAuteurs A ON A.id=LA.auteurs_id
JOIN tableLivres_tableediteurs LE ON LE.livre_id = L.editeur_id
JOIN tableediteurs E ON LE.editeurs_id = E.id
ORDER BY numero ASC

après avoir généré les SQLs (fleche), il faudra, a minima, modifier la clause fetchrow en

Code SQL :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
SELECT L.*,
       E.editeur  AS Editeur, E.collection AS Collection, LS.serie AS Série,
       A.nom AS Nom, A.prenom AS Prénom
FROM tableLivres L
LEFT JOIN tableSeries  LS on LS.id = l.serie_id
JOIN tableLivres_tableAuteurs LA ON LA.livre_id = L.id
JOIN TableAuteurs A ON A.id=LA.auteurs_id
JOIN tableLivres_tableediteurs LE ON LE.livre_id = L.editeur_id
JOIN tableediteurs E ON LE.editeurs_id = E.id
ORDER BY numero ASC

[skaith]

Bonjour et merci à tous les deux pour ces réponses rapides.

Une petite question pour « ShaiLeTroll » dans le select tu recommande de mettre auteurs_id

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SELECT auteurs_id, nom FROM tableauteurs ORDER BY nom ASC,

Hors auteurs_id ne fait pas partie de la table auteurs mais de la table de jonction « tableLivres_tableAuteurs »
Pour les mises à jour je ne connaissais pas le composant TUpdateSQL(Je vais regarder), actuellement je fais mes mises à jour comme suit.

Exemple sur les auteurs :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
if Resultat <> -1 then
  begin
    Query.SQL.Clear;
    Query.SQL.Add('UPDATE');
    Query.SQL.Add('tableauteurs');
    Query.SQL.Add('SET nom = :PNom, prenom = :PPrenom');
    Query.SQL.Add('WHERE tableauteurs.id = :PNum');
    Query.ParamByName('PNom').AsString := EdNom.Text;
    Query.ParamByName('PPrenom').AsString := EdPrenom.Text;
    Query.ParamByName('PNum').AsInteger := Resultat;
    Query.ExecSQL;

Sinon je gère tous les auteurs dans la table tableauteurs. La table tableLivres_tableAuteurs mes sert de jonction entre un livre et ces auteurs.
« Echeque à la raison » de Jean-louis et Doris Le may. Deux entrées dans la table de jonction.
LookupDataSet encore un composant que je n’ai pas utilisé.

SergioMaster, j’ai volontairement supprimé les alias de table pour le développement. A un moment je mélangeais les TL, TL_TE, TE, … et autres alias.

Sinon tu vas un peut trop vite pour ma compréhension. Je n’ai pas encore assimilé ni testés vos remarques.

Cela fait beaucoup de chose à tester. Je vais tester les composants cités, voir si je peux les utilisés dans mon code et si cela améliore ma compréhension sur la gestion des bases de données.

Je pense que je ne maitrise pas la relation entre les composants et les données quand on utilise une table maître « tablelivres » et une table détail « tableauteurs » en passant par une table de jonction « tablelivres_tableauteurs ». Si vous avez des tutoriels ou documentions explicites sur ces principes je suis preneur.

Mon temps imparti étant limité et ma compréhension lente, je pense en avoir pour quelques jours à mettre tout ça en œuvre.
Encore un grand merci à vous deux pour vos réponses.

[ShaiLeTroll]

Une petite question pour « ShaiLeTroll » dans le select tu recommande de mettre auteurs_id

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SELECT auteurs_id, nom FROM tableauteurs ORDER BY nom ASC,

Hors auteurs_id ne fait pas partie de la table auteurs mais de la table de jonction « tableLivres_tableAuteurs »

Evidemment que je parlais du tableauteurs.id donc SELECT id, nom FROM tableauteurs ORDER BY nom ASC,;
Je n'avais pas fait attention que les champ PK s'appelait tous 'ID' ...
Ce que j'éviterais d'ailleurs, leur préférant un nom dédié comme dans les tables de jointure, cela évite les confusions et les noms ambiguës

Pour les mises à jour je ne connaissais pas le composant TUpdateSQL(Je vais regarder), actuellement je fais mes mises à jour comme suit.

Comme on avait aucune information à ce sujet, je n'ai pu que proposer un conseil général, maintenant si cela fonctionne avec un DataSet en mode cache type local update et que tu fais les SQL manuellement, cela fonctionne aussi très bien