Discussion :

[yohdev]

Bonjour à tous,

J'utilise C++ builder 5, je suis en cours de développement d'une application qui suite à un clic sur un bouton doit générer un code aléatoire sur 4 chiffres entre 1000 et 9999. Ensuite je dois tester l'éxistance de ce code dans ma table AccessVL ainsi que la valeur d'un champs. Celle ci est composée de :
-Code_Aleatoire(int)
-Entree_Effectuee(bool)
-Sortie_Effectuee(bool)

Une fois mon code généré, je dois effectuer une requête SQL sur ma table pour vérifier si le code éxiste déjà et si le champ Entree_Effectuee est bien à false, auquel cas je regénère un code. Le problème est que je ne sais pas comment exploiter le résultat de ma requête pour vérifier mes conditions.

Voici le code associé à mon bouton :

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
 
void __fastcall TfAppli::bpGenerationCodeClick(TObject *Sender)
{
//ouverture de la table
//dmProg contient tous les composants ADO
//tCodeAletoire type ADOTable
dmProg->tCodeAleatoire->Open();
 
//déclaration code alléatoire
int CodeAleatoire;
randomize();
 
//génération du code aleatoire
CodeAleatoire = random(9000) + 1000;
 
//vérification si le code existe déjà
//tQCodeAleatoire type ADOQuery
tQCodeAleatoire->Close();
tQCodeAleatoire->SQL->Clear();
//essai avec le code 1578 déjà créé dans la base
tQCodeAleatoire->SQL->Add("SELECT * FROM AccesVL WHERE Code_Aleatoire='1578'");
tQCodeAleatoire->Open();
 
if () 
//vérification du résultat de la requête (si code existe)
...
&& ()
//vérification du champs Entree_Effectuee
...
{
//nouveau code aléatoire
CodeAleatoire = random(9000) + 1000;
}
 
//message si ok
ShowMessage ("Le code Aléatoire à saisir est :" + String(CodeAleatoire) );
 
//enregistrement dans la table
dmProg->tCodeAleatoire->Append();
dmProg->tCodeAleatoire->FieldValues["Code_Aleatoire"]= CodeAleatoire;
dmProg->tCodeAleatoire->Post();
 
//fermeture de la table
dmProg->tCodeAleatoire->Close();
}

Merci par avance de vos réponses

[sat83]

j'ai pas Builder sous la main, mais ca dois ressembler a ca:

Tu parcoure toutes les lignes de résultat de ta requete:

Code :

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

1
2
3
4
5
6
7
8
tQCodeAleatoire->First() ;
while( !tQCodeAleatoire->EoF ) 
{
   int value = tQCodeAleatoire->FieldByName("Nom_Du_Champ")->AsInteger // ou AsString ,ou AsDateTime, etc....
 
  // tu test value 
   tQCodeAleatoire->Next() ;
}

[devlopassion]

bonjour,
je ne sait pas si j'ai bien compri ton probleme , mais si tu cherche ou se trouve les résultat de ta requète , et bien ils son dans "tQCodeAleatoire", que tu peux l'utilisé comme une simple table ADO , par exemple :

Code :

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

1
2
3
 
if (tQCodeAleatoire->FieldByName("Entree_Effectuee")->Value=false)
ShowMessage (".....");

[yohdev]

Merci bien pour vos réponses j'ai pu finir cette partie de mon code sans

[yohdev]

Bonjour,

je reviens vers vous pour une nouvelle question concernant les résultats de requête SQL. Le but étant d'effectuer une requête sur une base mdb qui ne renvoie qu'un seul résultat, et de modifier plusieurs champs de ce résultat.

Les champs sont :

test1 de type text
test2 de type bool
test3 de type date/heure

Après l'éxecution de la requête je dois :

-ajouter un texte dans le champ test1
-passer le champ test2 à Vrai
-ajouter la date et heure au moment de la modification dans test3

D'apprès ce que j'ai trouvé comme infos le résultat de la requête renvoie un tableau de Variant, mais comment modifier mes champs ???

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
21
22
23
24
25
26
27
void __fastcall TForm1::Button4Click(TObject *Sender)
{
        ShowMessage("fermeture sql");
        ADOQuery1->Close();
        ADOQuery1->SQL->Clear();
        ShowMessage("creation requete");
        ADOQuery1->SQL->Add("SELECT * FROM Contact WHERE societe = '6650'");
        ShowMessage("execution requete");
        ADOQuery1->Open();
        ShowMessage("goto first");
        ADOQuery1->First();
        ShowMessage(ADOQuery1->FieldByName("test2")->AsString);
        //affiche "Faux"
        ADOQuery1->Append();
        ShowMessage("modification champ test1");
 
//---------code qui renvoie une erreur----------------------------
        //modifier le champ test1 qui est à la base un champ de type text
        ADOQuery1->FieldValues["test1"]=Variant("essai");
        //modifier le champ test2 qui est à la base un champ de type bool
        ADOQuery1->FieldValues["test2"]=Variant("Vrai");
        //ajouter la date et l'heure dans le champ test3
        //code inconnu
//--------------------------------------------------------------
 
ADOQuery1->Post();
}

Merci d'avance pour vos réponses...

[pottiez]

Salut,
pour modifier une valeur dans ta table, il faut que tu passe également par des requête sql, ici ce sera une requête de type UPDATE et tu aura un code du style suivant :

Code :

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

1
2
3
4
5
6
7
        ShowMessage("fermeture sql");
        ADOQuery1->Close();
        ADOQuery1->SQL->Clear();
        ShowMessage("creation requete");
        ADOQuery1->SQL->Add("UPDATE ... suite de la requete");
        ShowMessage("execution requete");
        ADOQuery1->ExecSQL();

Note bien qu'il faut exécuter cette requête par la fonction ExecSQL et non Open car cette requête modifie la base

[sat83]

Effectivement utilise une requete UPDATE :

Code :

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

1
2
3
4
5
6
7
        ADOQuery1->SQL->Clear();
        ADOQuery1->SQL->Add("UPDATE MaTable");
        ADOQuery1->SQL->Add("SET Champ1 = " + QuotedStr("Valeur du Champ"));
        ADOQuery1->SQL->Add(", Champ2 = 1");
        ADOQuery1->SQL->Add(", Champ3 = " + QuotedStr( DateTimeToStr(Date()));
        ADOQuery1->SQL->Add("WHERE [condition]");
        ADOQuery1->ExecSQL();

[yohdev]

merci pour ces réponses rapides