Discussion :

[dleu]

Bonjour,

Je vous explique mon problème : je tente d'écrire un petit logiciel pour gérer ma bibliothèque. J'essaie de réaliser un lien entre deux tables access : la table LIVRES et la table NOUVELLES. Le champ commun est livreID (numérotation automatique dans la table Livres et numérique dans la table Nouvelles).

Au niveau de l'ADOQuery (AQNouvelles),j'ai renseigné Connection à ADOConnection1, DataSorce à DSLivres (dont le dataset est AQLivres). Dans la propriété SQL j'ai mis "SELECT * FROM Nouvelles WHERE livreID=:LivreID", comme suggéré dans l'aide.

Ma Form contient des DBEdit pour les renseignements du livre et un DBGrid pour la liste des nouvelles.

Eh bien, ça ne marche pas: le DBGrid ne m'affiche rien.

Pourriez-vous m'aider à corriger cela ? Merci.

[qi130]

Ta requète introduit une condition (WHERE livreID=:LivreID), on y trouve une "host variable" ( :LivreID avec les 2 points!) qui doit être résolue.

Ton code doit comporter quelque part quelque chose du genre

Code :

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

Maquery.fieldbyname('LivreId').AsInteger:= xxxxxx ;

Est-ce le cas ?

[dleu]

Ta requète introduit une condition (WHERE livreID=:LivreID), on y trouve une "host variable" ( :LivreID avec les 2 points!) qui doit être résolue.

Ton code doit comporter quelque part quelque chose du genre

Code :

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

Maquery.fieldbyname('LivreId').AsInteger:= xxxxxx ;

Est-ce le cas ?

Non.

Dans mon exemple, la requète sql est introduite, à la conception, dans les propriétés du composant. Me conseille-tu de la mettre dans le code par exemple à l'activation de ma Form ? Elle doit être précédée d'un AQLivres.fieldbyname('LivreId').AsInteger:= xxxxxx ou d'un AQNouvelles.fieldbyname('LivreId').AsInteger:= xxxxxx ?

Merci de ton aide.

Didier

[okparanoid]

Oui c'est exactement ca...

AQNouvelles.parameters.parambyname('LivreId').value:= xxxxxx ;
AQNouvelles.open;

J'ai pas fait gaffe desole.

Bon desole pour la comprehension de la discussion j'ai edite par erreur mon post alors que je voulais en rajouter un...

Ce poste est la reponse a celui situe juste en dessous.

Milles excuses

[evarisnea]

Ta requète introduit une condition (WHERE livreID=:LivreID), on y trouve une "host variable" ( :LivreID avec les 2 points!) qui doit être résolue.

Ton code doit comporter quelque part quelque chose du genre

Code :

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

Maquery.fieldbyname('LivreId').AsInteger:= xxxxxx ;

Est-ce le cas ?

je suis d'accord avec le premier volet de ta réponse qi130. pour le second, notamment le code proposé, je me pose des questions:
LivreId est un champ de la table non ? donc ton code aura pour effet d'assigner une valeur à ce champ pour un enregistrement précis, lors de son édition!
Mais tel que je vois le code posté par okparanoid je me rends compte que l'édition de la valeur de ce champ se fait avant son ouverture!

je ne suis pas un habitué des composants ADO, mais n'existe-t'il pas une propriété Params avec laquelle on pourra spécifier le paramètre demandé ?
avec un composant IBQuery je ferais:

Code :

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

1
2
IBQuery1.Params.ParamByName('LivreId').AsInteger := xxxxxx;
IBQuery1.Open();

[dleu]

Bon je récapitule :

Mon AQNouvelles possède différentes propriété :

Code :

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

1
2
3
4
5
Datasource:=DSLivres;
Connection:=AdoConnection1;
ParamCheck:=True;
Prepares:=True;
SQL:='SELECT * FROM Nouvelles WHERE LivreID=:LivreID'

Mon paramètre a les propriétés suivantes :

Code :

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

1
2
3
4
DataType:=ftInteger;
Name:='LivreID';
Value.Type:=integer;
Value:=0

Dans le code à l'activation de ma form je fais :

Code :

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

1
2
3
4
5
with DataModule1.AQNouvelles do
begin
  Parameters.ParamValues['LivreID']:=DataModule1.AQLivres.FieldByName('LivreID').AsInteger;
  Open;
end;

Pourtant ça ne marche pas. L'erreur est sans doute triviale mais je suis incapable de voir où elle se trouve.

Merci de votre aide.

[dleu]

Merci à vous tous, vous m'avez mis sur la voie et j'ai fini par trouver mon erreur.

Dans l'activation de ma form, il falait mettre :

Code :

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

1
2
3
4
5
with DataModule1.AQNouvelles do
begin
  Parameters[0].Value:=DataModule1.AQLivres.FieldByName('LivreID').AsInteger;
  ExecSQL;
end;

Maintenant, ça marche impeccablement.

Encore merci.