Stored Procedure Abfrage ob Eintrag vorhanden

[p80286]

Zitat von Metallicwar:

wenn ich nur Memo1.Lines.Add(qBankdaten.FieldByName('bankleitzahl').AsString); zeigt er mir nur eine Bankleitzahl an, aber das will ich ja nicht !

Und warum schreibst Du dann "bankleitzahl"?

entweder Du holst alles über Fields /Fieldcount ab, hat den Vorteil, daß Du den Namen nicht kennen mußt,
oder du mußt alle zurückgegebenen Felder mit Namen ansprechen:

Delphi-Quellcode:

Memo1.Lines.Add(qBankdaten.FieldByName('Feld1').AsString);
Memo1.Lines.Add(qBankdaten.FieldByName('Feld2).AsString);
..
Memo1.Lines.Add(qBankdaten.FieldByName('FeldN').AsString);

Gruß
K-H

[Metallicwar]

irgendwie hab ich grade einen Hänger

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  sZeichenLoeschen: String;
  iDatensätze: Integer;
begin
  qBankdaten.sql.text:='select * from bankdaten where contains(bankname,:such1) or cast(bankleitzahl as sql_char) like :such2';
  qBankdaten.parambyname('such1').asstring:=edtSuchwert.Text;
  qBankdaten.parambyname('such2').asstring:=edtSuchwert.Text;
  qBankdaten.open;
  for iDatensätze := 0 to qBankdaten.FieldCount - 1 do
  begin
    Memo1.Lines.Add(qBankdaten.FieldByName('Bankleitzahl').AsString + '= ' +  qBankdaten.FieldByName('Bankname').AsString);
    qBankdaten.Next;
  end;
end;

Er trägt mir irgendwie immer drei Bankleitzahlen ein + den zugehörigen Banknamen, aber es müssen etliche mehr sein, was mach ich denn noch falsch?

Und wenn ich anstatt eines Banknamens eine PLZ eintrage (und diese ist ja eindeutig) krieg ich trotzdem 3 mal die selbe BLZ + Banknamen angezeigt.

[DeddyH]

Zitat:

Delphi-Quellcode:

for iDatensätze := 0 to qBankdaten.FieldCount - 1 do
  begin
    Memo1.Lines.Add(qBankdaten.FieldByName('Bankleitzahl').AsString + '= ' + qBankdaten.FieldByName('Bankname').AsString);
    qBankdaten.Next;
  end;

Was soll denn die For-Schleife?

[Metallicwar]

Zitat:

Was soll denn die For-Schleife?

Mein Select könnte ja mehrere Ergebnise beinhalten z.B.

Code:

1     Testbank
2     Testbank
3     Testbank
4     Testbank
5     Testbank

Und durch die for Schleife, wollte ich eben, erst das erste Ergebnis ins Memo schreiben, dann durch .Next das nächste Ergebnis, usw. ich hoffe ihr versteht wie ich's vorhatte.

[DeddyH]

Delphi-Quellcode:

while not qBankdaten.EOF do
  begin
    Memo1.Lines.Add(qBankdaten.FieldByName('Bankleitzahl').AsString + '= ' + qBankdaten.FieldByName('Bankname').AsString);
    qBankdaten.Next;
  end;

erscheint mir wesentlich zielführender

[Metallicwar]

Zitat von DeddyH:

Delphi-Quellcode:

while not qBankdaten.EOF do
  begin
    Memo1.Lines.Add(qBankdaten.FieldByName('Bankleitzahl').AsString + '= ' + qBankdaten.FieldByName('Bankname').AsString);
    qBankdaten.Next;
  end;

erscheint mir wesentlich zielführender

mir im Nachhinein auch

Vielen Dank, super Lösung!!!!!

Das wars !!! (falls mir nicht wieder irgendwas auffällt) *grins*