Discussion :

[nopnop]

Bonjour,
Je vais une application delphi utilisant une base de données mysql.
J'ai un probleme lorsque ma requete ne doit donner aucun résultat (c'est a dire que je cherche un element non existant dans une de mes tables).

Pour cela, je fais :

Code :

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

1
2
3
4
mysql_query(mysql, pChar('SELECT * FROM agents where nom='''+
   PChar(Enom.text)+''';'));
 
Resultat:=mysql_use_result(mysql);

et ensuite je teste avec :

Code :

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

if Resultat = nil    then   showmessage('Enfin ca marche !!!');

Le probleme, c 'est que l ordi trouve que resultat est différent de nil.
Qu'est ce qui cloche ?

J'ai mis mon code complet si dessous :

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
procedure TFDonneesAgent.BEnregistrerClick(Sender: TObject);
Var
    Resultat: PMYSQL_RES;
    Compteurchamps:Longword;
    row: PMYSQL_ROW;
    I: Word;
begin
 
        mysql_query(FPrincipal.mysql, pChar('SELECT * FROM agents where nom='''+PChar(Enom.text)+''';'));
 
        Resultat:=mysql_use_result(mysql);
        if Resultat = nil    then   showmessage('Enfin ca marche !!!'); 
        //si ma requete renvoie une table vide, le message "Enfin ca marche !!!" ne s'affiche pas
 
        Compteurchamps := mysql_num_fields(Resultat);
        row:= mysql_fetch_row(Resultat);
        i:=0;
 
        while ((Compteurchamps>0) and (i<=Compteurchamps - 1)) do
            begin
            .... etc

Si vous avez un idée .. je suis preneuse.
Merci bcp!
Julie

[Bejaia-In]

C'est pas clair pour moi; tu ne peut pas faire un peu de rangement, svp ?

[qi130]

Ce qui cloche, c'est une méconnaissance de SQL

Lorsqu'une requète de sélection ne retourne pas de tuples, le décor SQL est malgré tout présent, ce qui permet justement de différencier ce cas d'un problème avec le serveur.

Un select qui ne donne rien renvoie un code SQL à -100 et pas 0...

Dans ton cas, il ne faut pas te baser sur le resultat à nil, puisque l'interrogation s'est bien déroulée.

Je te suggère de jeter un oeil à ce tutoriel

[nopnop]

Bonjour,
Je suis tt a fait d'accord au sujet de ma mauvaise connaissance de SQL. Si je le maitrisais, je n'aurais pas besoin d'aide ;o)

Néanmoins, je suis tjrs bloquée dans mon developpement, et malgré mes recherches sur le tuto et sur google, je ne trouve tjrs pas comment savoir si ma requete me renvoie une table vide.
Je fais :

Code :

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

1
2
3
mysql_query(mysql, pChar('SELECT * FROM agents where nom='''+ PChar(Enom.text)+''';'));
 
Resultat:=mysql_use_result(mysql);  // resultat est du type PMYSQL_RES

Ici, j'aimerais savoir si la table renvoyée est vide, i-e si ma table "Agents" ne contient aucune personne qui s'appelle comme Enom.text (c'est un TEdit).
Comment puis je tester ma variable résultat ?

Code :

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

 if resultat = nil

permet de tester si la requete a fonctionnée, pas si elle est vide.
* je ne peux pas comparer resultat a -100 (comme c'est ecrit dans le message ci dessus), delphi me dit "operateur no applicable to this operand type". Peut etre me manque t'il un comparateur ou une fonction de transformation ...

Si quelqu'un sait comment faire ...
Merci pr le coup de main.
Bonne aprem
Julie

[Rayek]

Dans le tuto qu'a fournit Qi130

http://lfe.developpez.com/PasmySQL/#L6

A la fin :

Pour accéder au résultat de la requête, il est nécessaire d'appeler la fonction mysql_store_results qui renvoie un pointeur de type PMYSQL_RES.

Puis on voit dasn le code :

Code :

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

1
2
3
4
 myRES := mysql_store_result(mySQLConnection);
        if (myRES <> nil) then begin
            for i := 0 to myRES.row_count - 1 do begin

myRES.row_count te permettrait il pas de savoir combien il y a de ligne dans ton resultat ? Si c'est = à 0 alors tu n'as pas de réponse.

[nopnop]

ben justement, il me trouve 4 ou 5 !
Alors que la personne n'est pas dans la base!
C'est a rien n y comprendre.

je fais
Compteurchamps := mysql_num_fields(Resultat);
et si je fais un showmesage(inttostr(Compteurchamps )), j'obtiens 4 (alors que ca devrait etre 0.)

Du coup, apres, quand je fais

Code :

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

1
2
3
4
5
 
i:=0;
while ((Compteurchamps>0) and (i<=Compteurchamps - 1)) do
      begin
            if row[i]='' then PrenomIdentique:=1 ;

Ca bug a l'execution au niveau de row[i], car je pense qu'il n y a pas de valeur!
Que faire?
Merci

[Bejaia-In]

Code :

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

'SELECT * FROM agents where nom='''+ PChar(Enom.text)+''';'

une requete comme celle-çi ne renvoi-t-elle pas TOUS les "agents" ayant le même nom ?

Tu peut étuliser la propriété EOF d'un composant ensemble de données pour savoir si une table ou le résultat d'une requête est vide.
Si à l'ouverture du composant, EOF vaut true, c'est que le résultat est une table vide.

[nopnop]

tu me mets le doute, mais je ne crois pas (enfin, c pas que que je veux faire!).
Si dans le TEdit Enom, il y a "DUPONT"

ma requete contient:
SELECT* FROM agents where nom='dupont' ;
donc je devrais obtenir toutes les infos (nom, prenom, laboratoire, institut) des personnes inscrites dans ma base qui s'appelle DUPONT. Or personne ne s'appelle dupont !
Le compeur me trouve 4, je pense que ca correspond aux 4 valeurs nom, prenom, laboratoire, institut, peut etre avec des cases vides. Ce qui est sur, c que row[0] fait planter le programme. Pourtant, comme le compteur est a 4, row[0] devrait exister (ainsi que row[1] jusqu a row[3])!
Julie

[Rayek]

Code :

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

1
2
 
Compteurchamps := mysql_num_fields(Resultat);

mysql_num_fields, doit amon avis retourner le nombre de champs (colonne) de ta table pas le nombre d'enregistrement (ligne) de ta table...

[nopnop]

Code :

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

1
2
 
Compteurchamps := mysql_num_fields(Resultat);

mysql_num_fields, doit amon avis retourner le nombre de champs (colonne) de ta table pas le nombre d'enregistrement (ligne) de ta table...

C'est tout a fait possible, mais je ne sais pas comment tester que les champs renvoyés sont vides!
Y a t'il une fonction ?
Merci pour les réponses!

[nopnop]

Ca y est, j'ai trouve !

Pour verifier si une requete trouvée est vide, il faut faire

Code :

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

1
2
3
 
if row = nil then // le requete trouvée contient une table vide
else   // il y a des valeurs dans la table, qui s'obtiennent grace a row[0], row[1], ...

avec row qui s'obtient

Code :

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

1
2
3
4
 
Resultat:=mysql_use_result(FPrincipal.mysql);      
Compteurchamps := mysql_num_fields(Resultat);
row:= mysql_fetch_row(Resultat);

Merci a tous pour les réponses!
Julie