Discussion :

[markelov]

Bonjour à tous, et d'hors et déjà merci à tous ceux qui vont avoir la gentillesse de se pencher sur mon problème.
Je ne suis pas un as de la programmation, j'essaye d'apprendre par moi meme petit à petit, donc merci de votre indulgence.

Mon problème vient d'une requète SQL, sous DELPHI.
J'utilise les composant zeos 6.6.0, Delphi 7, et Mysql 5.0.27.

J'ai un composant TZConnexion, placé dans un module de donnée appelé DataModule1, bien relié à ma base de donnée et plusieurs requetes du genre SELECT * FROM table qui fonctionnent. Par contre, en essayant de créer une requette pour supprimer une ligne de ma table, j'obtient le message d'erreur suivant : "CanNotOpenResultSet"

ma table s'appelle clients

Voici la requete SQL, placée dans un TZQuery :

Code :

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

DELETE from clients Where clients.dénomination = :nom

puis mon code :

Code :

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

1
2
3
4
5
6
7
var nom : String;
 
 nom := Grille.Cells[0,Grille.Row];    (le parametre nom est pris dans une TStringGrid);
  DataModule1.QuerySupprimerClient.Active := false;
  DataModule1.QuerySupprimerClient.ParamByName('nom').Value := nom;
  DataModule1.QuerySupprimerClient.Active := True;
  DataModule1.TableClients.Refresh;

Merci

[JustMe]

C'est normal un DELETE UPDATE ou INSERT ne retournent pas de résultats d'ou le message : CanNotOpenResultSet.
S'il y a une méthode ExecSQL dans les Composants Zeos ça sera parfait.
mais assure toi qu'il n'y a pas de datasource lié à ton query sinon tu aura le même message.

[markelov]

Merci pour ta réponse JustMe

En effet j'ai trouvé un composant TZUpdateSQL dans la palette zeos, et d'après ce que j'ai pu lire sur plusieurs forums, c'est celui ci qu'il faut utiliser pour faire un DELETE, UPDATE ou INSERT sur la Table.

Par contre, je n'ai pas trouvé comment utiliser ce composant, donc si quelqu'un avait un exemple concret, ou un lien sur le sujet, je suis preneur !

[defluc]

L'utilisation de TZUpdateSQL est identique à celle de TUpdateSQL en standard dans Delphi et documenté dans l'aide de Delphi ou dans la Faq de ce site.

[markelov]

Voila mon problème est résolu, merci pour votre aide.

Pour info, et si un jour quelqu'un se pose la meme question que moi, je poste la façon dont j'ai procédé :

Code :

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

1
2
3
4
5
6
clientasupprimer := Grille.Cells[0,Grille.Row];    {le parametre nom est pris dans une TStringGrid};
DataModule1.QuerySupprimerClient.Close;
  DataModule1.QuerySupprimerClient.SQL.Clear;
  DataModule1.QuerySupprimerClient.SQL.Add('DELETE FROM clients WHERE Nom = :nom');
  DataModule1.QuerySupprimerClient.ParamByName('nom').Value := clientasupprimer;
  DataModule1.QuerySupprimerClient.ExecSQL;