Faire des test dans une base de donnée

**kj_83** · 04/07/2006, 14h10

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+

**BOUBOU81** · 04/07/2006, 15h35

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

**ero-sennin** · 04/07/2006, 15h41

Salut,

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

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 :

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

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 :

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

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à @ +

**BOUBOU81** · 04/07/2006, 15h45

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.

**kj_83** · 04/07/2006, 16h39

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.

**BOUBOU81** · 04/07/2006, 17h03

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

**ero-sennin** · 04/07/2006, 18h50

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

**kj_83** · 05/07/2006, 09h25

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.

**BOUBOU81** · 05/07/2006, 09h59

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

fais plutôt

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
 
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é

**kj_83** · 05/07/2006, 10h36

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.

**ero-sennin** · 05/07/2006, 13h09

Salut, essaie ce 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
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 :

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

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

Tiens nous au courant

**kj_83** · 05/07/2006, 14h04

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).

**BOUBOU81** · 05/07/2006, 15h53

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 :

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
 
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 "
}

**kj_83** · 06/07/2006, 09h20

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.