Renvoi d'1 SELECT ds Variable

Question

Voici ma fonction qui doit récupérer le résultat de la requête :

function Tfrmba.Select(CorpsReq: string):string;
  var
    selection : string;
  begin
    frmba.RequeteBA.Close;
    frmba.RequeteBA.SQL.Clear;
    frmba.RequeteBA.SQL.Add(CorpsReq);
    frmba.RequeteBA.ExecSQL;

    selection := XXX;
    (je m'étais avant pr XXX=> RequeteBA.Fields[0].AsString;)
  end;

NB =>CorpsReq := 'SELECT act_naf_code From t_activite WHERE act_id = ' + idStr + '';

Pr information, ma requete est bonne, je verifie bien avant ke l'Act_id(sa valeur) est bien ds la table, la compilation ne pause aucun PB. C ke au moment de l'exécution...

Donc, je veux récuperer un string ds ma variable : SELECTION, mais j'arrive pas à trouver ce qu'il faut à la place de : "XXX".

Je vous remercie d'avance pour vos réponses ;)

cs_Delphiprog · Answer

ExecSql est destiné à être utilisé avec une requête qui ne renvoie pas de résultats (insert, update, delete).
Pour celà, il faut utiliser la méthode Open (select).
May Delphi be with you

TheShAmAn · Answer

Je suis d'accord avec toi... mais je ne vois pas comment tu appeles...
G juste a remplacer : "frmba.RequeteBA.ExecSQL;" ??

Si oui par koi...

Je suis dsl mais je ne vois pas comment faire, je sais c con... Mais ca me saoule depuis un ti moment....  :sad)

TheShAmAn · Answer

Erf, c bon je te remercie, g trouver... suis con qd je veux  :blush)

Renvoi d'1 SELECT ds Variable

3 réponses

Votre réponse

Discussions similaires