Discussion :

[byakuichi]

Bonjour,
je rencontre depuis hier un problème lors de l'exécution de requête "INSERT" & "UPDATE"
Je ne sais pas comment le résoudre tellement le message d'erreur est explicite :/

EOleException with message : 'Le fournisseur actuel ne prend pas en charge les jeux d'enregistrements multiples renvoyés à partir d'une exécution simple'

C'est le code suivant (et pas rien que lui car 3 autres requêtes dans le même cas) qui génère l'erreur :

Code :

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

1
2
3
4
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text := 'UPDATE Solde SET Bilan =' + FloatToStr(total) + 'WHERE Date_solde = ' + CaisseGrid.Cells[1,1];
ADOQuery1.SQL.ExecSQL;
ADOQuery1.Open;

Je pourrais préciser le code qui va autour si nécessaire mais à priori le problème vient bien de la requête en elle même...

Si vous avez une idée.

[Andnotor]

Il manque au minimum un espace devant WHERE.

[ShaiLeTroll]

Privilégie les requêtes paramètrées aussi, cela aurait évité la coquille

Code :

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

1
2
3
4
5
6
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text := 'UPDATE Solde SET Bilan = :ParamBilan WHERE Date_solde = :ParamDate';
ADOQuery1.Parameters.ParamByName('ParamBilan').Value := total;
ADOQuery1.Parameters.ParamByName('ParamBilan').Value := StrToDate(CaisseGrid.Cells[1,1]);
ADOQuery1.ExecSQL;
ADOQuery1.Open;

Le Paramètre va typé correctement les différentes valeurs et tu auras moins de soucis avec les formats de date tellement différent selon la DB (que l'on ne connait pas dans ton cas)

Code :

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

ADOQuery1.SQL.ExecSQL;

Cela n'existe pas ! Je suppose que tu as simplifié ton code pour le forum

[byakuichi]

Oui désolé j'ai recopié mon code la main car pas sur le bon PC pas borland et tout donc désolé pour l'erreur et pour l'espace manquant avant le WHERE.

EDIT : Meme après utilisation des parameters, l'erreur réside toujours. Précision ma date est au format texte dans ma base de données qui est une base sous Access 2007.
J'ai donc retiré le StrToDate mais même combat, même erreur. :/

[ShaiLeTroll]

As-tu essayé la requête directement dans Access 2007 ?
Peut-être une problème de . et , dans ton float ?

[byakuichi]

mon float ne possède pas de virgule ni de point, je commencais par des nombres positifs et négatifs sans virgules.
Donc le problème ne vient pas de la non plus

EDIT : Problème résolu !

--> Ne jamais mettre :
ADOQuery.ExecSQL;
ADOQuery.Open;

Cela revient à executer 2 fois la requête donc elle plante car ADOQuery ne peut pas contenir 2 fois un résultat de requête.

[redoran]

salut , comment vous éte connecté a la base de données [access 2007] , j'aimerai connaitre votre méthode .
j'ai essayé avec[ access 2007 + D7] après avoir installé le driver que j'ai télécharger sur microsoft mais sa n'a pas marché. merci

[ShaiLeTroll]

lol, je n'avais même pas vu le Open, c'est surtout que l'on ne peut utiliser Open qu'avec un SELECT !

Trop la honte de ne pas l'avoir vu !

Configure un Alias sur l'Admin ODBC puis dans Delphi sur le ADOConnection modifie avec l'assitant la ConnectionString

[byakuichi]

J'avoue ne pas avoir bien gérer sur cette erreur .

Pour la connection à la base sous Access 2007 moi j'ai fait un peu comme lui :

http://thierryaim.developpez.com/tut...lphiperso/#LII

Cette page explique bien le fonctionnennement pour Access. Moi j'ai fait une connexion directe sans passer par l'ODBC.