Discussion :

[bekomolla]

bonjour a tous
je suis débutant au delphi7,
quant j'exécute la requête (au dessous) dans delphi7, il bloc et stop d'exécution, malgré la requête exécute et il donne la résulta mais avec un message d'erreur
voici le code.
/*****************************
remarque mon ADOQUERY sont nom est insr
/*************************************

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.Button3Click(Sender: TObject);
 
begin
datam1.insr.Active:= false;
datam1.insr.SQL.Clear;
datam1.insr.SQL.add ('INSERT INTO diplome (MAT_EMP, code_dip ,date_obten,designatio )values(:p1,:p2,:p3,:p4 )');
datam1.insr.Parameters.ParamByName('p1').Value := QuotedStr(Edit1.Text) ;
datam1.insr.Parameters.ParamByName('p2').Value := QuotedStr(Edit2.Text) ;
datam1.insr.Parameters.ParamByName('p3').Value := QuotedStr(Edit3.Text) ;
datam1.insr.Parameters.ParamByName('p4').Value := QuotedStr(Edit4.Text);
datam1.insr.Open;
datam1.insr.Active:= true;
end;

et voila le message d'érreur

project1.exe raised exception class EdatabaseError with message 'ADOQUERY: commandtext does not return a result set'. Process
stopped.Use step or run to continue

/*********************************************************
merci mes amis d'avance
c'est vous avez autre idée aide moi

[Rayek]

Sur les requetes INSERT, UPDATE et DELETE il faut utiliser EXECSQL au lieu de OPEN qui lui ne s'utilise qu'avec les requête SELECT

De plus soit tu utilises CLOSE/Open ou tu utilises Active := False/True, ça fait exactement la même chose