Discussion :

[ghan77]

Salut!

Voilà mon souci j'ai une base de donnée en plusieurs table avec un alias que j'ai nommé grâce au Module de Base de Donnée fourni par Delphi.
le hic c'est que je ne sais ps comment relier les tables entre elle pourtant c'est les même code qui les relient même si c'est pas le même nom.On m'a obligé pour ce stage à ne pas changer les tables etc... juste droit d'en tirer des informations sauf qu'avec ce code :

Code :

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

1
2
3
4
5
6
7
8
9
 
Query2.Close;
          Query2.sql.clear;
          Query2.sql.Add('SELECT ma.MCode,ma.MTirage,ma.MCost,m.MDcode,ma.MDescr');
          Query2.sql.Add('FROM markets ma,media m');//j'ai essayé de mettre markets ma pour simpifié le code et voir si ca marche vu que ca bug
          Query2.SQL.Add('WHERE (m.mdcode:=ma.mmedia)');//en rajoutant cette ligne ca donne une erreur
          Query2.SQL.Add('AND (mcode=:x)');
          Query2.Params[0].AsString:=AnsiUpperCase(combobox1.text);
          Query2.Open;

ca me met l'erreur :

Invalid use of keyword.
token )
WHERE
Line number: 3.

[ghan77]

HEu a la place de l'erreur en WHERE maintenant c'est en and!vu que j'avais mis deux fois WHERE tout à l'heure lol!j'ai pas l'air bête déjà!^^

[LadyWasky]

Dans le WHERE, tu as mis := au lieu de = tout court !

[ghan77]

mdr oui jvé voir un truc car ca me donne une nouvelle erreur je tiens au courant mais emrci!j'ai pas l'air d'un c..

[LadyWasky]

Et pui en plus, ce serait bien de préciser :

Code :

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

Query2.Params[0].DataType:=ftString;

juste avant le

Code :

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

Query2.Params[0].AsString:=AnsiUpperCase(combobox1.text);

[ghan77]

Voilà le code bon et corrigé merci :

Code :

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

1
2
3
4
5
6
7
8
9
 
Query2.Close;
          Query2.sql.clear;
          Query2.sql.Add('SELECT ma.MCode,ma.MTirage,ma.MCost,m.MDname,ma.MDescr');
          Query2.sql.Add('FROM markets ma,media m');
          Query2.SQL.Add('WHERE (m.mdcode=ma.mmedia)');
          Query2.SQL.Add('and (ma.mcode=:x)');
          Query2.Params[0].AsString:=AnsiUpperCase(combobox1.text);
          Query2.Open;