Pb requete entre BDE et ADORésolu

Question

bonjour,

j'ai un souci sur une requete :
d'ordinaire je passe par ADO, mon select fonctionne bien tandis que mon update plante (violation d'acc&#232;s dans le module "msado15.dll"). J'ai donc d&#233;cid&#233; de passer par BDE. Mais l&#224; mon select ne fonctionne pas du tout car mon mon RecordCount renvoie -1 au lieu de 1. Ma base de donn&#233;es est Sql Server.

Voici le Select :

    SqlQuery := 'select * from ' + ADOTable1.TableName
      + ' where datatype = ' + #39 + DataType + #39
      + ' and heurer =  { ts ' + #39 + DateTranslated + #39 + '}'
      + ' and wmostation = ' + #39 + WmoStation + #39 + ';';


    if SADOConnection1.Connected = False then
      SADOConnection1.Connected := True;
    SADOQuery1.SQL.Text := SqlQuery;
    SADOQuery1.Open;

Voici le Update :

        DateTimeToString(HeureZTranslated, 'yyyy-mm-dd hh:nn:ss', HeureZ);
        DateTimeToString(DebValTranslated, 'yyyy-mm-dd hh:nn:ss', DateDebutValidite);
        DateTimeToString(FinValTranslated, 'yyyy-mm-dd hh:nn:ss', DateFinValidite);
        DateTimeToString(DateTranslated, 'yyyy-mm-dd hh:nn:ss', HeureR);
        DataMessage := StringReplace(DataMessage, #$D#$A, '''''#$D#$A''''', [rfReplaceAll]);
        SADOQuery1.Close;
        SADOQuery1.SQL.Text := 'UPDATE ALPHAMSG' + IntToStr(ComputeCodeDay(Now))
          + ' SET heurez={ts ' + #39 + HeureZTranslated + #39
          + '}, datedebutvalidite={ts ' + #39 + DebValTranslated + #39
          + '}, datefinvalidite={ts ' + #39 + FinValTranslated + #39
          + '}, buffersize=' + IntToStr(Length(DataMessage))
          + ', databuffer=' + #39 + DataMessage + #39
          + ', validite=' + IntToStr(Validite)
          + ', TTAAIICCCCYYGGGGBBB=' + #39 + TTAAIICCCCYYGGGGBBB + #39
          + ' WHERE datatype=' + #39 + DataType + #39
          + ' AND heurer={ ts ' + #39 + DateTranslated + #39 + '}'
          + ' AND wmostation=' + #39 + WmoStation + #39
          + ' AND ((heurez>={ts ' + #39 + HeureZTranslated + #39
          + '}) OR (datefinvalidite>={ts ' + #39 + FinValTranslated + #39 + '}));';
        SADOQuery1.ExecSQL;

Merci de votre aide...

exyacc · Accepted Answer

et en utilisant  ADOQuery1.RowsAffected ? ca donne le nombre de lignes manipul&#233;es par la derniere execution de la requete 
exyacc

exyacc · Answer

salut,



deja tu peux mettre  QuotedStr(DataType) a la place de #39 + DataType + #39, ca va eclaircir un peu le code ... ;o)

pour utiliser quotedstr , rajoute  SysUtils dans tes uses
je continue de lire ....

exyacc

exyacc · Answer

pourrais tu mettre dans ton code un showmessage(SADOQuery1.SQL.Text) est mettre ce contenu en ligne, ce serait plus simple a comprendre je pense... ;o)

exyacc

padsou · Answer

merci de t'y interesser ! 

je viens juste de r&#233;soudre (&#224; moiti&#233;) mon souci. Le probleme pour BDE venait du fait que le recordcount est tout simplement bugg&#233; (apparement) car juste avant le recordcount je fais d&#233;sormais :

    if not (ADOQuery1.Eof) then
      ADOQuery1.Next;

et d&#233;sormais le recordcount renvoie la bonne valeur.

Pour ADO je cherche toujours...

padsou · Answer

effectivement le rowsaffected marche bien mieux que le recordcount ! merci beaucoup !!

Pb requete entre BDE et ADO

5 réponses

Votre réponse

Discussions similaires