Naja, kann man so machen, aber wie wäre es denn, die Parameter einfach abzufragen?
Delphi-Quellcode:
procedure GetSQLParameters(qry : TAdoQuery);
var
i : Integer;
begin
with qry.Parameters do begin
if Count > 0 then begin
for i := 0 to Count - 1 do begin
qry.Parameters[i].Value := InputBox('Parametereingabe:',qry.Parameters[i].Name + ' = ','');
end;
end;
end;
end;
Im Quelltext dann vor dem Open der
Query sowas:
Delphi-Quellcode:
try
qry.SQL.Text := // irgendeine Zuweisung:
GetSQLParameters(qry);
qry.Open
except
// siehe oben
end;