Discussion :

[delphi2019]

salut
Comment savoir si ExecSQL a-t-il réussi ou échoué ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
var ResultSuccess:integer;
begin
with FDQuery1 do
  begin
     Close;
     SQL.Clear;
     SQL.Text:='INSERT INTO MYTABLE N_INSCRIPTION VALUES (:N_INSCRIPTION)' 
     ParamByName('N_INSCRIPTION').value:=Edit1.Text;
 
       try
      ExecSQL;
      ResultSuccess := ExecSQL ;
      if ResultSuccess = 1  then showmessage('Requete Success');
     except
       on E:Exception do
        showmessage(e.ClassName + ' error raised, with message: ' + e.Message);
     end;

Delphi installés : RAD Studio 10.3
SGBD : Firebird 2.5

[SergioMaster]

Bonjour,

il faut utiliser rowsaffected

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
with FDQuery1 do
  begin
     Close;
     SQL.Clear;
     SQL.Text:='INSERT INTO MYTABLE N_INSCRIPTION VALUES (:N_INSCRIPTION)' 
     ParamByName('N_INSCRIPTION').value:=Edit1.Text;
 
       try
      ExecSQL;
      ResultSuccess := rowsaffected ;
      if ResultSuccess = 1  then showmessage('Requete Success')
                                   else showmessage('Problème '+resultsuccess.tostring+' enregistrement traité(s)'); 
     except
       on E:Exception do
        showmessage(e.ClassName + ' error raised, with message: ' + e.Message);
     end;

il y a quand même plus simple comme écriture

Code :

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

resultsuccess:=FDConnection.ExecSQL('INSERT INTO MYTABLE N_INSCRIPTION VALUES (:N)',[Edit1.Text]);

[delphi2019]

merci