Discussion :

[bboy_lil_mak]

Bonjour,

C'est la première fois que créait mon application base de données ACCESS avec Delphi. J'ai donc encore un peu de mal avec les requêtes SQL. Voici mon problème. J'ai besoin de récupérer dans une ComboBox tous les articles appartenant à la catégorie sélectionnée dans la comboBox ci-dessus.

Je suppose qu'il faut faire ca avec un ADOQuery et une requête sql mais mon souci est a ce niveau. Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure Tfrm_ajout_manuel.cb_vente_categChange(Sender: TObject);
begin
  mon_adoquery.SQL.Clear;
  mon_adoquery.SQL.Add('select * from article where article.code_categ=categorie.code_categ and nom_categ=:ma_categ');
  mon_adoquery.Parameters.ParamByName('ma_categ').Value:=cb_vente_categ.Text;
  mon_adoquery.Open;
  cb_choix_article.Clear;
  while (not mon_adoquery.Eof) do
    begin
      tab_categ.First;
      cb_choix_article.Items.Add(mon_adoquery.FieldByName('nom_article').Value);
      mon_adoquery.Next
    end;
end;

En pas a pas, un message d'erreur s'affiche lorsque j'arrive à "mon_adoquery.Open"

"Aucune valeur donnée pour un ou plusieurs des paramètres requis"

Merci à vous.

[ShaiLeTroll]

ParamCheck est bien à true ?
A la place de Value, essaye un AsString
Pour optimise SELECT nom_article FROM autant ne lire que l'utile !

[GoustiFruit]

Je ne connais pas les composants ADO mais ligne 5 ça ne serait pas ".AsString" au lieu de ".Value" ?

PS: ah, grillé !

[bboy_lil_mak]

ParamètreCheck est bien a true
Et ce n'est pas .asstring (Delphi ne me le propose même pas..)

[ShaiLeTroll]

Ah ces différences entre TParam standard et le TParameter d'ADO

Force peut-être le DataType en ftString

le SQL est bien celui fourni ?
J'ai eu un soucis avec ADO, si l'on t'utilise deux le fois le paramètre dans un SQL ADO, il ne trouve pas le deuxieme, j'ai bidouillé un code issu du TParam pour corriger le TParameter

[SergioMaster]

bonsoir,

Code :

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

from article where article.code_categ=categorie.code_categ

je pense qu'il manque surtout une table (categorie) pour la jointure
cela aurait été plus lisible
avec un

Code :

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

1
2
SELECT A.* FROM ARTICLE A JOIN CATEGORIE C ON A.Code_Categ=C.Code_categ
WHERE C.NOM_CATEG=:monparam

[bboy_lil_mak]

Ah oui, exact : avec la table catégorie ça devrait mieux aller. Par contre ça me marque un autre message d'erreur maintenant.. :

File or directory does not exist.
File : C:\PDOXUSRS.NET
Permission denied.
Directory:C:\'.

Merci pour vos réponse.

[SergioMaster]

Bonjour,

File or directory does not exist.
File : C:\PDOXUSRS.NET
Permission denied.
Directory:C:\'.

C'est le BDE + l'UAC Windows (VISTA et +) le responsable
étonnant car je croyais avoir lu ADOQuery !!

Pour corriger , allez dans le panneau BDE (en mode administrateur)
onglet Configuration , changer la valeur Pilotes/natifs/paradox/net dir de façon a ce que cela ne pointe pas sur la racine mais dans un répertoire existant (par exemple c:\temp)

[bboy_lil_mak]

Merci a tous ça fonctionne comme je le voulait. A bientôt !