Hallo zusammen,
Bei dem folgenden Source funktioniert die Parameterübergabe nicht (lt. Debugger ist parameters.items[0] allerdings Liste1[i]).
Die Bastellösung erbringt allerdings das gewünschte Ergebnis.
Könnt Ihr mir auf die Sprünge helfen?
Delphi-Quellcode:
liste1.LoadFromFile('c:\temp\update0a.txt');
ADOQuery1.Close;
ADOQuery1.sql.Text:='select idebre from tabbre,tabpay '+
'where tabbre.idepay=tabpay.idepay '+
'and tabbre.numdlv=:_numdlv ';
for i:=0 to liste1.Count-1 do begin
ADOQuery1.parameters.parambyname('_numdlv').value:=liste1[i];
(* Bastellösung:
ADOQuery1.sql.Text:='select idebre from tabbre,tabpay '+
'where tabbre.idepay=tabpay.idepay '+
'and tabbre.numdlv='''+liste1[i]+'''';
*)
ADOQuery1.open ;
if not ADOQuery1.eof then begin
inc(cnt1);
repeat
liste2.add(ADOQuery1.fieldbyname('idebre').asstring);
ADOQuery1.next;
until ADOQuery1.eof;
end
else begin
inc(cnt2,1);
liste2.Add(liste1[i]+' nicht gefunden!');
end;
end;
ADOQuery1.close;
vielen Dank
K-H