dbexpress : delete avec paramètre

Version imprimable

salut à tous,

ce bout de code me génère un message d'erreur :

"SQLDA missing or incorrect version, or incorrect number/type of variable"
Code:

1 2 3 4 5 6 7 8 9 10 11 SQLQ:= TSQLQuery.Create(Self); SQLQ.SQLConnection:= MonDM.SQLConnect; SQLQ.Close; SQLQ.SQL.Clear; SQLQ.Params.Clear; SQLQ.SQL.Add('delete from PROFIL where ID_PROFIL = :ID'); SQLQ.Params.CreateParam(ftInteger,'ID',ptInput); SQLQ.Params.ParamByName('ID').AsInteger:= MonID; SQLQ.ExecSQL();
ce code est il incorrect ?

Merci !

Salut,

Moi je ferais plus :

Code:

1
2
3
4
5
6
7
8
9
10
11
  with SQLQ := TSQLQuery.Create(nil) do
  begin
    try
      SQLConnection:= MonDM.SQLConnect; 
      SQLQ.SQL.Text := 'delete from PROFIL where ID_PROFIL = :ID'; 
      SQLQ.ParamByName('ID').AsInteger:= MonID; 
      SQLQ.ExecSQL(); 
    finally
      Free;
    end;
  end;

@++

14/06/2005, 10h04
KRis

merci,

j'ai supprimé le createparam et cela fonctionne.