Discussion :

[KRis]

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 :

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

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 !

[yoyo44]

Salut,

Moi je ferais plus :

Code :

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

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;

@++

[KRis]

merci,

j'ai supprimé le createparam et cela fonctionne.