Delphi-PRAXiS
Seite 2 von 3     12 3      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Datenbanken (https://www.delphipraxis.net/15-datenbanken/)
-   -   Delphi Mehrere Suchbegriffe in einem Datensatz suchen (https://www.delphipraxis.net/4264-mehrere-suchbegriffe-einem-datensatz-suchen.html)

Cobra 24. Apr 2003 16:18

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 24. Apr 2003 17:08

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 24. Apr 2003 17:24

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 24. Apr 2003 17:27

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 24. Apr 2003 17:45

: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 24. Apr 2003 18:49

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 24. Apr 2003 22:12

!
 
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 25. Apr 2003 15:39

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 26. Apr 2003 21:41

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 27. Apr 2003 12:30

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.


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:15 Uhr.
Seite 2 von 3     12 3      

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz