Discussion :

[caviar44]

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.

[Rayek]

Au lieu de Actie := True; utilise ExecSql;

[caviar44]

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.

[Rayek]

Essaie avec un AdoQuery et le ExecSql.

[caviar44]

Salut Malatar.

Effectivement avec un composant ADOQuery çà fonctionne merci.

Caviar