Mehrere Suchbegriffe in einem Datensatz suchen

[Cobra]

Hallo Flo,

also ich kenne mich nur mit Interbase und IBX aus und da geht folgendes immer.

Delphi-Quellcode:

      Add('SELECT * ');
      Add('FROM kosten');
      Add('WHERE abteilung = "' + Edit1.Text + '"');
      Add('AND reihe = "' +edit2.Text+'"');
      Add('AND Nr <= "' + edit3.text +'"');

Also einfach überall " und nich ' und bei Zahlen kann mann " schreiben oder auch nicht.

Nochwas bei Interbase ist ein Select * immer langsamer als ein Select Feld1,Feld2,Feld3 ...

Vieleicht hilft dir das ja weiter.
:coder:

[MrSpock]

Hallo Cobra,

ich denke, dass es so nicht ganz funktioniert. Ich hatte ja extra nach den Feldtypen gefragt. Nr ist ein numerisches Feld, sodass die Abfrage mit einem Zahlenwert und nicht mit einem String stattfinden muss:

Delphi-Quellcode:

 Add('SELECT * ');
 Add('FROM kosten');
 Add('WHERE abteilung = "' + Edit1.Text + '"');
 Add('AND reihe = "' +edit2.Text+'"');
 Add('AND Nr <= ' + edit3.text);

[Flo]

Also ich hab das jetzt nochmal probiert.

Jetzt sieht's so aus:

Delphi-Quellcode:

begin
WITH Query1 DO
    BEGIN
        Close;
        WITH SQL DO
          BEGIN
            Clear;
          Add('SELECT * ');
Add('FROM kosten');
Add('WHERE abteilung = "' + Edit1.Text + '"');
Add('AND reihe = "' +edit2.Text+'"');
Add('AND nr <= ' + edit3.text);
          END;
        Query1.Active := True;
        Open;
      END;;
      end;

Da kommt aber wieder:

Zitat:

'Keine Übereinstimmung der Typen im Ausdruck'

[Cobra]

Hallo MrSpock,

Interbase macht das mit aber jetzt wo ich es lese hat sich der Fehler ja auf die Datentypen bezogen.

:thuimb: :hello:
Dann bin ich jetzt auch dafür das deine Lösung die richtige ist.

SQL ist eben nicht gleich SQL :wink:
:coder:

[Cobra]

:wiejetzt: der Fehler kommt immernoch, dann gehen wir mal systematisch vor.

Mein erster Vorschlag wir fügen alles aufeinmal hinzu so können wir keine Leerzeichen vergessen.
so also:
Add('SELECT * FROM kosten.db WHERE abteilung = "' + Edit1.Text + '"'
+ ' AND reihe = "' +edit2.Text+'"'
+ ' AND nr <= ' + edit3.text);



Mein zweiter Vorschalg es muß doch eine Testconsole geben für die SQL wo wir diese prüfen können und den Fehlerpunkt bestimmen kann.

Machmal sind es kleine Fehler die eine große Wirkung haben.
:coder:

[Flo]

Also jetzt kommt ungültiges Schlüsselwort in Zeile 2 (select)

Code:

Delphi-Quellcode:

WITH Query1 DO
    BEGIN
        Close;
        WITH SQL DO
          BEGIN
            Clear;
          Add('SELECT * ');
Add('SELECT * FROM kosten.db wHERE abteilung = "' + Edit1.Text + '"'
+ ' AND reihe = "' +edit2.Text+'"'
+ ' AND nummer <= ' + edit3.text);
          END;
        Query1.Active := True;
        Open;
      END;;

:roll: :roll: :roll:

[MrSpock]

Hallo Flo,

na diese Fehlermeldung ist einfach. Du hast ja "SELECT * SELECT * FROM ..." erzeugt, da ist das 2-te SELECT fehl am Platz.

Also wenn die von dir angegebenen Feldtypen stimmen, dann versuch bitt mal folgendes:

Delphi-Quellcode:

Add('SELECT * ');
Add('FROM kosten');
Add('WHERE abteilung = ' +QuotedStr(Edit1.Text));
Add('AND reihe =' +QuotedStr(edit2.Text));
Add('AND Nr <= ' + edit3.text);

Falls es nicht funktioniert, muss einer der Feldtypen nicht korrekt sein.

[edit=MrSpock]PS: In Edit3 muss eine gültige Ziffernfolge stehen![/edit]

[Flo]

Vorweg: Es funktioniert immer noch nicht :cry:

Hab nochmals alles durchgeguckt, aber alles ist korrekt.

Zitat:

'Keine Übereinstimmung der Typen im Ausdruck'

In Edit1 soll die Abteilung stehen......Beispiel: A1
In Edit2 soll die Reihe stehen..........Beispiel: R1
In Edit3 soll die Nummer stehen.........Beispiel: 1

Bin schon am Versweifeln :(

[MrSpock]

Hallo Flo,

um ganz sicher zu gehen, habe ich den Originalcode wie folgt in ein kleines Programm gepackt:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
   Query1.Close;
   with Query1.SQL do
  begin
     Clear;
     Add('SELECT * ');
      Add('FROM kosten');
      Add('WHERE abteilung = ' +QuotedStr(Edit1.Text));
      Add('AND reihe =' +QuotedStr(edit2.Text));
      Add('AND Nr <= ' + edit3.text);
   end;
  Query1.Open;
end;

Ich habe dazu eine Tabelle definiert, mit
Abteilung A 20
Reihe A 20
Nr I

... und es funktioniert, wenn man in Edit1 z.B. A1, in Edit2 R1 und schließlich in Edit3 5 schreibt, ohne Fehler.

Was für eine Datenbank nutzt du?
Heißt das 3. Feld Nr oder Nummer?

[APP]

Hallo,
eine Anmerkung am Rande:

Wenn ich mit umfangreichen Queries arbeiten muß, öffne ich einen
(oder auch DEN) SQL-Explorer, mache einen Test-Alias oder benutze
auch schon mal die vorhendenen Demo-Aliase und schreibe meine
SQL-Statements in das SQL Fenster (natürlich angepasst und vereinfacht).

(Man kann den SQL-Explorer z.B. über das Menü Datenbank/Explorer oder
direkt beim TQuery1 auf dem Formular mit RechterMaus/Explorer im
Kontextmenü öffnen)

So habe ich immer den Überblick über die Feldnamen, Definitionen,
usw..., wenn das Statement dann funktioniert übertrage ich es einfach
in Delphi-Notation.