Discussion :

[KOUTO]

Bonjour je suis en train de faire une appli sous delphi 2006 et relier avec un ODBC. j'utilise Easyphp 1.8 et donc phpmyadmin pour regarder mes bases et mes tables.

Lorsque je lance l'application pas de soucis je me connecte je souhaite remplier certaines données et je valide et la message d'erreur:


project "nomdemonprojet" raised exeption class ENoResultSet with message 'Error creating cursor handle'

je cliques sur continue

il me met un nouveau messa d'erreur:

Error creating cursor handle

la je n'ai pas le choix je clic sur ok.

Lorsque je vais voir dans phpmyadmin et dans ma table je retrouve bien les champs que j'ai remplie. Donc j'ai un message d'erreur mais tout est bien inscrit.... bizarre non?

Alors pourquoi ce message d'erreur!


Merci

[JustMe]

Pas bizzare du tout et c'est même normal ce message surgit lorsque tu essaye de visualiser un résultat d'une requete qui ne peut pas retourner de résultats, d'ou le message ENoResultSet, comme Un INSERT dans un Query lié à un Control de base de données Comme une DBGrid ou autre.
Désactive les controls liés à ton Query lorsque tu execute ta requete et tu n'aura pas de problème.
Bon Codage.

[tatareau]

Puisque tu as la chance de connaitre l'exception Think except

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TForm1.Methode();
var
    ....;
begin
   try
      ....;
   except
      on ENoResultSet do
         ...;
   end;
end; 
Bon code ;)

[TryExceptEnd]

Puisque tu as la chance de connaitre l'exception Think except

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TForm1.Methode();
var
    ....;
begin
   try
      ....;
   except
      on ENoResultSet do
         ...;
   end;
end; 
Bon code ;)

Bon code c'est du code ??!!

[tatareau]

Personne n'est à l'abris d'un bug! d'où le try

Code :

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

1
2
3
4
5
6
 
try
 Good_Coding() ;
except on EBadCoding do
 GoOut();
end;

[KOUTO]

Effectivement je fais un insert.
J'ai regarder les parametres de ma query qui est dans mon datamodule mais elle n'est relier à rien juste

Databasename ->ODBC_projet (je passe par un ODBC)


Pourriez vous m'aidez?

[JustMe]

Non, tu dois voir si un TDataSource et lié à ton Query avec la propriété DataSet si oui et je pense que c'est le cas tu enlève ce qui est écris dans cette propriété (DataSource->DataSet) et tout va rentrer dans l'ordre.

[luchador]

Merci mon ami ça ma bien aider
une autre explication , si tu est entrain de développer en Delphi tu aura le message "error creating cursor handle" toujours mais le message ne s'affiche pas si tu exécute ton exécutable

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Try
update_req_payement.ParamByName('pid_ch').AsInteger:=StrToInt(Eid_ch.Text);
update_req_payement.ParamByName('pid_ca').AsString:=db_id_ca.Text;
update_req_payement.ParamByName('pid_ma').AsInteger:=DATAM.Tmarchandise.fieldbyname('id_ma').AsInteger;
update_req_payement.ExecSQL;
update_req_payement.Active;
Except
on ENoResultSet do
end;

bon code

Bon code c'est du code ??!!