Discussion :

[Miflon]

Bonjour à toutes et à tous.
Si vous pouviez m'expliquer le pourquoi des choses concernant la requête ci-dessous, j'en serais ravi.
Cette requête fonctionne à peu près car elle n'insère pas adh_id alors que toutes les autres données sont insérées correctement. Tous les composants ILCBxxxx sont des combobox peuplés à partir de la base de données. Seul numero fait l'objet d'une saisie dans un TEdit. Les caractéristiques des données, elles sont les suivantes :

• adh_nom character(32)
• adh_prenom character varying(25)
• federation character(10)
• categorie character(8)

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
procedure TPageInsertion.ILBtnInsertionClick(Sender: TObject);
var s : string;
begin
     try
        RequeteSQL.Close;
        s := '';
        s := s + 'INSERT INTO s_ucr.t_j_etre_licencies_elc ' + rc;
        s := s + 'VALUES (' + rc;
        s := s + '(SELECT MAX(elc_id) FROM s_ucr.t_j_etre_licencies_elc) + 1,' + rc;
        s := s + '(SELECT adh_id FROM s_ucr.t_e_adherents_adh' + rc;
        s := s + 'WHERE adh_nom = :nom ' + rc ;
        s := s + 'AND adh_prenom = :prenom ),' + rc;
        s := s + ' :federation, :numero, NULL, NULL, :categorie);';
        RequeteSQL.SQL.Text:=s;
        RequeteSQL.ParamByName('nom').AsString :=   ILCBNoms.Items[ILCBNoms.ItemIndex];
        RequeteSQL.ParamByName('prenom').AsString := ILCBPrenoms.Items[ILCBPrenoms.ItemIndex];
        RequeteSQL.ParamByName('federation').AsInteger := (ILCBFederations.ItemIndex);
        RequeteSQL.ParamByName('numero').AsString := ILEditionNumero.Text;
        if ILCBFederations.ItemIndex = 2
           then RequeteSQL.ParamByName('categorie').AsString := 'NULL'
           else RequeteSQL.ParamByName('categorie').AsString := ILCBCategories.Items[ILCBCategories.ItemIndex];
        RequeteSQL.ExecSQL;
        TransactionSQL.Commit;
     finally
       RequeteSQL.Close;
     end;
end;

Si je remplace la ligne n°15 par la suivante :

Code :

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

RequeteSQL.ParamByName('nom').AsString :=   TrimRight(ILCBNoms.Items[ILCBNoms.ItemIndex]);

l'insertion se fait correctement.
Je cherche à savoir pourquoi seul nom est affecté par ce phénomène et non pas federation et categorie?
S'il vous faut plus de détail, il n'y a qu'à demander.
Merci d'avance pour vos explications.

Michel.

[Ph. B.]

Bonjour,

Avant relecture, j'étais tenté de dire que cela viendrait peut-être de la structure des tables de la base de données, à savoir qu'elle utiliserait des CHAR (character) et non des VARCHAR (character varying).
Etes vous sur de la structure des tables ?
Des collations sont-elles définies ? un encodage de caractères ?

L'insertion se fait correctement après ajout de TrimRight, mais dans le cas contraire, que se passe-t-il ? insertion d'une ligne sans nom ? déclenchement d'une erreur ?

Avez vous décomposé le traitement pour le tracer ensuite ?
A savoir s'assure que la requête de sélection renvoie bien l'information attendue ?

[Miflon]

Quelques réponses

Des collations sont-elles définies ? un encodage de caractères ?

Code :

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

1
2
3
4
5
6
7
CREATE DATABASE bd_ucr
  WITH OWNER = postgres
       ENCODING = 'UTF8'
       TABLESPACE = pg_default
       LC_COLLATE = 'French_France.1252'
       LC_CTYPE = 'French_France.1252'
       CONNECTION LIMIT = -1;

Etes vous sur de la structure des tables ?

La définition des données est bien celle que j'ai précisée dans mon premier message.

Résultat sans TrimRight (pas facile de faire un tableau), sans hésitation ni murmure :
elc_id : 55
adh_id :
fed_id : 1
elc_numero :2438010008
elc_categorie : 1

Résultat avec TrimRight :
elc_id : 55
adh_id : 21
fed_id : 1
elc_numero :2438010008
elc_categorie : 1

J'ai vérifié la cohérence des résultats. La requête fonctionnait avec PGAdmin et dans Lazarus, mais avec nom et prénom en clair dans la requête.
C'est donc le passage à travers la ComboBox qui pose problème, nombre de caractère?
En tout cas, merci de ton intérêt pour ma question, Michel.

[Ph. B.]

J'ai vérifié la cohérence des résultats. La requête fonctionnait avec PGAdmin et dans Lazarus, mais avec nom et prénom en clair dans la requête.
C'est donc le passage à travers la ComboBox qui pose problème, nombre de caractère?

Peut-être les paramètres d'encodage du composant de connexion ?
La combo est un composant standard (TComboBox, TDBComboBox) ou un composant tiers qui utiliserait des AnsiString plutôt que des string ?

Quoi qu'il en soit, je regarderais plus en détail la requête de sélection, en particulier les valeurs des paramètres et je les comparerais à une valeur de référence qui permet d'obtenir un résultat :

Code sql :

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

1
2
3
SELECT adh_id FROM s_ucr.t_e_adherents_adh
WHERE adh_nom = :nom
AND adh_prenom = :prenom