Bonsoir,
Ma base étant une base SQL Server, je vais rester sur les composants Dbexpress.
Je te remercie, pour tes recherches. Je vais creuser un peu du coté du SQL Monitor, mais pour le moment je vais construire mes requêtes sans paramêtres
(je vais résoudre les valeurs avant la construction) afin que les requetes apparaissent en clair dans les traces.
ainsi
with TSQLDataSet.Create(nil) do
begin
try
SQLConnection:=SQLConnectionMaBase;
CommandType:=ctQuery;
CommandText:='delete matable where champ_A < :Mon_Paramametre';
Params[0].AsInteger:=Valeur_Integer;
ExecSQL();
finally
free;
end;
end;
deviendra
with TSQLDataSet.Create(nil) do
begin
try
SQLConnection:=SQLConnectionXTMSD;
CommandType:=ctQuery;
CommandText:='delete matable where champ_A <'+inttostr(Valeur_Integer);
ExecSQL();
finally
free;
end;
end;
Merci
A+
----------------------------------------------------------------------
Ma config * Delphi 7.1 Entreprise / SQL Serveur 2000 / Windows 2000
Partager