Einzelnen Beitrag anzeigen

Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#3

AW: Übergabe von Parameters "funktioniert nicht"

  Alt 12. Aug 2010, 12:02
@PMM
vielen Dank, aber das hat nichts gebracht, aber ich hab mir die Sourcen daraufin nochmal genau angeschaut,
so funktioniert es:

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;
    ADOQuery1.close; // muß in der Schleife erfolgen !!!
  end;
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
  Mit Zitat antworten Zitat