Discussion :

[yesil08]

bonjour,

je travail sous delphi 7 avec la BDE je mets cette requette dans la query :

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
select nom,prenom,nbr_emprunt,
       max(date_restitution-date_emprunt) Duree_Max,
	   min(date_restitution-date_emprunt) Duree_Min,
	   avg(date_restitution-date_emprunt)  Duree_Avg
from personne P,emprunt E,view1 V
where ( (P.code_personne = E.code_personne) and (P.code_personne = V.code_personne) )
group by P.code_personne
 
 union
 
select nom,prenom,0,0,0,0
from personne P,membre M
where (( P.Code_personne = M.Code_personne) and P.Code_Personne Not In (Select Code_Personne 
                              From   Emprunt
 							  )
       )
 
  union
 
select nom,prenom,0,  
	   max(date_restitution-date_emprunt) Duree_Max,
	   min(date_restitution-date_emprunt) Duree_Min,
	   avg(date_restitution-date_emprunt)  Duree_Avg
from personne P,membre M,emprunt E
where ( (P.code_personne = E.code_personne) 
      and 
	  (P.code_personne not in (
         select code_personne 
		 from emprunt 
         where ( date_restitution is null )
)
) )
group by P.code_personne	    
	   ;

sachant que j'ai créé la vue suivante :

Code sql :

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

1
2
3
4
5
6
create view view1
    as 
	  select P.code_personne,count(*) nbr_emprunt 
	  from personne P,emprunt E
      where ((P.code_personne=E.code_personne) And (date_restitution is null))	  
      group by P.code_personne;

et j'affiche le résultat dans une DbGrid , et je j'ai un résultat bizarre, dans les colonne nom et prenom les valaure affichés sont toutes à : (memo)
je n'arrive pas à comprendre pourquoi il m'affiche ceci , sachant que sous mysql serveur les nom et prenom s'affichent correctement..

est ce que quelqu'un peut m'aider SVP

[SergioMaster]

peut-être en étant plus explicite avec les champs recupérés , ce qui enttre-nous est une bonne habitude à prendre

Code :

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

1
2
3
4
5
select P.nom,P.prenom,V.nbr_emprunt,
etc ....
where ( (P.code_personne = E.code_personne) and (P.code_personne = V.code_personne) )
group by P.code_personne

[yesil08]

j'ai fais ce que vous avez demandé et toujours le meme resultat tous les champs nom et prenom sont à (memo),(memo)...

deja d'ou viens ce "memo" !!!! et qu'est ce que ça veut dire ?

[Cl@udius]

Salut

Question bête Tes champs Nom et Prenom sont bien de type CHAR ou VARCHAR ?

@+

[yesil08]

elle n'est pas bete ils sont de type varchar , on m'a deja dis qu'avec char normalement j'aurais pas ce problème mais je ne suis pas convaincu , quelqu'un peut m'expliquer la difference ?

[yesil08]

j'ajoute une remarque , chaque requete fonctionne correctement toute seule, donc je me suis dis que ça peut venir de l'union.. mais j'ai deja utilisé l'union dans d'autres requetes et ça marche bien.

donc je suis un peu perdu

[ALWEBER]

Ceci est normal. Le dbgrid ne sait pas afficher un champ memo. Pour afficher un champ memo tu as une bande répétitive DBCtrlGrid sur laquelle tu places un DBMemo
Ceci dit tu peux t'arranger pour que le resultat de ta requête ne manipule que des champs texte.

[yesil08]

Ceci est normal. Le dbgrid ne sait pas afficher un champ memo. Pour afficher un champ memo tu as une bande répétitive DBCtrlGrid sur laquelle tu places un DBMemo
Ceci dit tu peux t'arranger pour que le resultat de ta requête ne manipule que des champs texte.

non tu n'as pas compris, je vais vou illustrer le resultat par un exemple .
au lieu de m'afficher ceci par exemple ( j'affiche que les colonnes concernés par le problème )

Nom Prenom

jean paul
lalonde nina
nom3 prenom3 ...

il m'affiche ceci :

Nom Prenom

(MEMO) (MEMO)
(MEMO) (MEMO)
(MEMO) (MEMO) ...

et j'ai pas compris ou esr ce qu'il est aller chercher ce ( MEMO ) ??!!!!!

[yesil08]

mtn je crois que je sais d'ou viens l'erreur mais le pb c'est pourquoi


j'ai fais cette requette pour tester l'union de 2 attributs de type varchar

select P.nom,P.prenom
from personne P,membre M
where ( P.code_personne=M.code_personne )

union

select P.nom,P.prenom
from joue_dans J,personne P
where ( P.code_personne=J.code_personne )

;

j'ai eu le meme problème les colonnes nom et prenom sont à ( memo )

quelqu'un pour me dire pourquoi et comment remedier à ce problème ?

[edam]

je vais dire une bêtise
l'union de deux table génère une résulta de donnée sans type, résulta de 2 table différent (à peut prés)
je crois pour remédier à sa, de crée une dataset en mode conception qui contient cette requête, et de crée de nouveau champs de type string résultat de ces champs (bricolage ), si c'est pas vraie, alors oublie ce que j'ai dis

[TicTacToe]

Ceci est normal. Le dbgrid ne sait pas afficher un champ memo. .

+1
Les blob style mémo sont multilignes, or un DBGrid affiche sur une seule ligne...
Essaye de placer un TDBMemo lié avec ton TQuery quelque part dans ta fenetre, et tu verras que normalement tes noms et prénoms se trouveront dedans, sur la ligne courante du TDBGrid.

[edam]

pour tictacto:

j'ajoute une remarque , chaque requete fonctionne correctement toute seule, donc je me suis dis que ça peut venir de l'union.. mais j'ai deja utilisé l'union dans d'autres requetes et ça marche bien.

donc je suis un peu perdu

[SergioMaster]

Ah !!! C'etait des VARCHAR !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
dans ce cas une seule solution un cast sur la premiere union .

Code :

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

1
2
 
SELECT  CAST(P.nom AS CHAR(30)),CAST(P.prenom AS CHAR(30)) ......

[yesil08]

ca n'a pas marché avec les

SELECT CAST(P.nom AS CHAR(30)),CAST(P.prenom AS CHAR(30)) ......

en tous cas j'ai fini par revoir la déclaration de mes tables et j'ai mis du char au lieu de varchar et puis c'est tout et ça marche bien maintenant .

merci

[SergioMaster]

je voulais dire sur le premier SELECT pas la première UNION , il était tôt et ma syntaxe n'était pas testée (c'etait juste l'idée : forcer le premier ou les SELECT a prendre des CHAR en remplacement des VARCHAR)

[ALWEBER]

En complément d'information lorsque le BDE affiche

Code :

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

(Memo)

il indique qu'il a perçu le champ comme étant un BLOB (Binary Large Object) qui peut être tout sauf du texte sur une seule ligne ou un nombre. Tu as résolu le problème en changeant le type du champ. Si tu utilises un objet TQuery pour stocker le contenu de ta requête tu aurais pu forcer le type du champ résultant comme suit :
- Placer la requête dans le composant,
- Mettre Active à true en mode conception,
- Clic droit sur l'objet TQuery
- Choisir "Ajouter tous les champs"
- Modifier le type du ou des champs concernés pour les considérer comme des "asString"

[Franck SORIANO]

Si tu utilises un objet TQuery pour stocker le contenu de ta requête tu aurais pu forcer le type du champ résultant comme suit :
- Placer la requête dans le composant,
- Mettre Active à true en mode conception,
- Clic droit sur l'objet TQuery
- Choisir "Ajouter tous les champs"
- Modifiier le type du ou des champs concernés pour les considérer comme des "asString"

Tu es sûr que ce ça marche ça ?
Parce que pour moi, quand on ouvre un DataSet et que ce dernier doit lier ses TFields à la source de donnée, il vérifie que la définition des TField correspond bien à la source de données. Si les types ne correspondent pas, si un champ a changé de taille dans la base... c'est une exception à l'exécution.

[ALWEBER]

Tu es sûr que ce ça marche ça ?

Ci joint extrait de la dfm en mode texte

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
  object Table1: TTable
    OnCalcFields = Table1CalcFields
    TableName = 'T1.DB'
    Left = 56
    Top = 40
    object Table1C1: TSmallintField
      FieldName = 'C1'
    end
    object Table1C2a: TStringField
      FieldKind = fkCalculated
      FieldName = 'C2a'
      Calculated = True
    end
    object Table1C2: TMemoField
      FieldName = 'C2'
      Visible = False
      BlobType = ftMemo
      Size = 1
    end
  end

Et l'événement :

Code :

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

1
2
3
4
procedure TForm1.Table1CalcFields(DataSet: TDataSet);
begin
  Table1C2a.Value := Table1C2.AsString ;
end;

Ce qui revient à faire du transtypage au niveau du frontal.

[Franck SORIANO]

Effectivement, comme ça ça doit le faire. Mais ton post précédent méritait quelques explications supplémentaires car ce n'est pas ce que tu avais écrit.

En fait, tu ajoutes un champ calculé de type string qui retourne le memo.

Moi, j'allais plutôt proposer de coder l'événement GetText du TMemoField pour renvoyer la valeur AsString du memo.

Car en fait, ce n'est pas la DBGrid qui ne sait pas afficher les memo, c'est le composant TBlobField (et donc TMemoField qui en dérive) qui renvoit spécifiquement TField.AsString (plus exactement inherited GetText) plutôt que TMemoField.AsString sur le GetText du champ. Et comme la grille appelle GetText pour formater le texte à afficher...

[ALWEBER]

Franck Soriano à écrit

ton post précédent méritait quelques explications supplémentaires car ce n'est pas ce que tu avais écrit

J'avais en effet rédigé un peu vite ma réponse. Il faudrait en effet surcharger certains objets pour arriver au résultat Modifier par exemple la propriété DisplayText en implémentant la procedure 'OriginalSetText' et en l'interceptant dans l'événement DBGrid1DrawDataCell sur un test

Code :

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

if Field.IsBlob then