Stored Procedure Abfrage ob Eintrag vorhanden

[p80286]

Zitat:

Zitat von Metallicwar (Beitrag 1085150)

wenn ich nur

Delphi-Quellcode:

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 :oops:

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? :x

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:

Zitat von DeddyH (Beitrag 1085182)

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 :lol: :lol:

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

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