Faire des test dans une base de donnée

Salut c'est encore moi

Je suis désolé de vous embéter encore une fois avec mes questions mais je dois rendre le programme sur lequel je travaille vendredi donc c'est un peu urgent .

Bref , mon problème maintenant est qu' avant de mettre à jour la table tblConsommation il vaudrait pouvoir vérifier si la quantité de produit demandé par l'utilisateur n'est pas supérieur à la quantité de produit présente dans la base de donnée.

Je ne sais pas si il faut utiliser une requête SQL ou une fonction de test ( par exemple if ...) .

Voilà , A+

il faut que tu fasse une requete et test le résultat dans borland

Salut,

Je n'ai pas suivi tes posts précédents, néanmoins, je pense pouvoir t'aider là dessus. :D

Pour savoir si la quantité demandé est encore en stock, ce que je ferai c'est une requête afin de récupérer dans la BD la quantité de produits restants.

Exemple:

Code:

---

1 2 3 4

MaRequete->SQL->Clear(); MaRequete->SQL->Add("SELECT Nbre_Dispo FROM tblConsommation WHERE Nom_Produit= ... ;"); MaRequete->Active=true; Quantite_Disponible=MaRequete->FieldByName("Nbre_Dispo")->AsInteger;

---

Ensuite tu passes par une comparaison dans ton code pour vérifier si la quantité demandée est en stock :

Code:

---

1 2 3 4

if(Quantite_Choisie<=Quantite_Disponible) // Instruction else // Instruction

---

Personnellement je procéderai de cette façon, après, si d'autres ont une meilleure solution ...;)

Voilà @ + ;)

Pourquoi ne pas faire le test de la quantité dans la requete quitte à en faire une, puis tu teste si le retour est null ou bien ta quantité en stock.
:calim2:

Merci pour la réponse

J'ai fais comme tu a dis mais en executant le programme pas à pas à la ligne :

Quantite_Disponible=MaRequete->FieldByName("Nbre_Dispo")->AsInteger;

Quantite_Disponible vaut 0 alors que dans la table elle n'est pas égale à 0.

tu as essayer la requete effectué dans un analyseur de requete pour voir ce qu'elle retourne

Normalement ce code fonctionne car je m'en sert dans mon programme. Poste nous ton code afin qu'on y jette un oeil ... ca sera plus simple pour te corriger ;)

Salut

Voilà je poste mon code (avec un peu de retard) :

int Quantite_Disponible = 0 ;
AnsiString nomProd ;

ADOQuerySortieStock->SQL->Clear();
ADOQuerySortieStock->SQL->Add("SELECT NomProduit,StockMini FROM tblProduit WHERE NomProduit = ':ParamNomProduit' ");
ADOQuerySortieStock->Active=true;

Quantite_Disponible = ADOQuerySortieStock->FieldByName("StockMini")->AsInteger;

nomProd = ADOQuerySortieStock->FieldByName("NomProduit")->AsString;

if("Quantite_Disponible" < ":ParamStockMin")
{
LblStockInsuffisant->Visible = true ; (message indiquant que le stock est
insuffisant)
}
else
{
" Suite du programme "
}

Petite préçision :

":ParamNomProduit" et ":ParamStockMin" sont les valeurs entrées par l'utilisateur.

La à mon avis ca ne risque pas de fonctionné.

fais plutôt

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

int Quantite_demande = donnée saisie par utilisateur ; int Quantite_Disponible = 0 ; AnsiString nomProd= produit choisi par utilisateur ;   ADOQuerySortieStock->SQL->Clear(); ADOQuerySortieStock->SQL->Add("SELECT StockMini FROM tblProduit WHERE NomProduit = ':ParamNomProduit' and StockMini>"+(AnsiString)Quantite_demande+" "); ADOQuerySortieStock->Parameters->ParamByName(ParamNomProduit)->Value=nomProd; ADOQuerySortieStock->Open();   if(ADOQuerySortieStock->FieldByName("StockMini")->AsString=="") { LblStockInsuffisant->Visible = true ; (message indiquant que le stock est insuffisant) } else { Quantite_Disponible=ADOQuerySortieStock->FieldByName("StockMini")->AsInteger; " Suite du programme " }

---

voila je pense que ceci devrait fonctionné

Merci pour la réponse

Quand j'execute le programme j'obtiens l'erreur suivante :
Le projet ... a provoqué une classe d'exception EDataBaseErreur avec le message ' ADOQuerySortieStock : Paramètres 'ParamNomProduit' non trouvés'.
...

Je comprends pas car je l'ais déclaré (dans la propriété Parameters de ADOQuery) et en plus dans la suite du programme j'utilise ce paramètre sans avoir de message d'erreur.

De plus si tu pouvais me donner quelques explications sur ce code se serai sympa car je n'ais pas tout compris.

Voila encore merci.

Salut, essaie ce code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

int Quantite_demande = donnée saisie par utilisateur ; int Quantite_Disponible = 0 ; AnsiString nomProd= produit choisi par utilisateur ;   ADOQuerySortieStock->SQL->Clear(); ADOQuerySortieStock->SQL->Add("SELECT StockMini FROM tblProduit WHERE NomProduit = "+(AnsiString)ParamNomProduit+" and StockMini>"+(AnsiString)Quantite_demande+";"); ADOQuerySortieStock->Parameters->ParamByName(ParamNomProduit)->Value=nomProd; ADOQuerySortieStock->Open();   if(ADOQuerySortieStock->FieldByName("StockMini")->AsString=="") { LblStockInsuffisant->Visible = true ; (message indiquant que le stock est insuffisant) } else { Quantite_Disponible=ADOQuerySortieStock->FieldByName("StockMini")->AsInteger; " Suite du programme " }

---

Une chose que je ne comprends pas trop :

Code:

---

ADOQuerySortieStock->Parameters->ParamByName(ParamNomProduit)->Value=nomProd;

---

A quoi sert cela?
Et ParamNomProduit, est déclaré en AnsiString? On lui affecte une valeur avant d'exécuter le code que tu nous a donné? Car si ParamNomProduit ne contient aucune valeur, ton prog va planté... enfin si je ne dis pas de bêtise :mouarf:

Tiens nous au courant ;)

Je ne peus pas te répondre quant à l'utilisation de cette ligne car moi non plus je n'ais pas compris ,il faudrait demander à BOUBOU81 , d'ailleurs elle est la cause de mon erreur:

"Le projet ...a provoqué une classe d'exception EDataBaseErreur avec le
message d'erreur 'ADOQuerySortieStock' :Paramètres 'ParaNomProduit'non
trouvés'...

Pour ma part je n'ais pas bien compris ce qu'il y a après le WHERE dans la requête SQL:
NomProduit = "+(AnsiString)ParamNomProduit+" and StockMini>"+(AnsiString)Quantite_demande+";"); (c'est plutot la syntaxe employé qui me pose problème).

moi je suis parti du code que tu avais posté , ou vous vouliez utilisez les paramêtres.
Donc tu donnes la valeur du parametre avant d'executer le query sinon
il te ramene quoi le query si tu lui defini pas le nom du produit.


si vous ne voulez plus de parametre :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

int Quantite_demande = donnée saisie par utilisateur ; int Quantite_Disponible = 0 ; AnsiString nomProd= produit choisi par utilisateur ;   ADOQuerySortieStock->SQL->Clear(); ADOQuerySortieStock->SQL->Add("SELECT StockMini FROM tblProduit WHERE NomProduit = '"+nomProd+"'and StockMini>"+(AnsiString)Quantite_demande+" ");   ADOQuerySortieStock->Open();   if(ADOQuerySortieStock->FieldByName("StockMini")->AsString=="") { LblStockInsuffisant->Visible = true ; (message indiquant que le stock est insuffisant) } else { Quantite_Disponible=ADOQuerySortieStock->FieldByName("StockMini")->AsInteger; " Suite du programme " }

---

Salut

Excusaient moi si je réponds un peu tard , le code sans l'utilisation de paramètre fonctionne je vous remercie c'est super cool.

Par contre BOUBOU81 si tu pouvais m'expliquer la syntaxe que tu a utilisé pour construire la requête car je ne suis pas très familié avec ce genre d'écriture.

Et aussi dans la condition du if que signifie exactement le : ==""

Voilà bonne journée et encore merci.

Le == "", signifie que l'AnsiString placé devant le double = doit etre vide (rien entre les ").

Merci pour la réponse pottiez

A+