[TADODataSet] SQL : - Erreur CommandText ..

bonjour,

Dans mon application Delphi, Je veux executer une commande SQL via un Dataset :

Var ChaineStr : AnsiString;

AdoDataSet1.Active:=false;
AdoDataSet1.CommandText:=(ChaineSQL);
ChaineStr:='IF EXISTS (SELECT AR_Ref FROM F_Article where Ar_Ref = ''VIN25DWH100X99.6'') UPDATE F_ARTICLE SET AR_PrixAch=143.41, AR_PrixVen=115.29 WHERE (AR_Ref =''VIN25DWH100X99.6'')';


AdoDataSet1.Active:=true;

Lorsque j'execute cette dernière ligne (AdoDataSet1.Active:=true;),

j'obtiens le message :
Le Projet Test.exe a provoque une classe d'exception EDataBaseError avec le message 'AdoDataSet1: commandText ne renvoie pas un ensemble de résultats'

Que puis je faire pour résoudre ce problème ?

Merci d'avance pour votre aide.

Au lieu de Actie := True; utilise ExecSql;

Bonjour Malatar.

La Methode ExecSQL ne semble pas fonctionner avec un composant DataSet car 'AdoDataSet1.ExecSQL ' ne se compile pas sous Delphi.

Je pense que ExecSQL fonctionne plutot avec un composant AdoQuery.

Essaie avec un AdoQuery et le ExecSql.

Salut Malatar.

Effectivement avec un composant ADOQuery çà fonctionne merci.

Caviar