![]() |
Hallo Flo,
also ich kenne mich nur mit Interbase und IBX aus und da geht folgendes immer.
Delphi-Quellcode:
Also einfach überall " und nich ' und bei Zahlen kann mann " schreiben oder auch nicht.
Add('SELECT * ');
Add('FROM kosten'); Add('WHERE abteilung = "' + Edit1.Text + '"'); Add('AND reihe = "' +edit2.Text+'"'); Add('AND Nr <= "' + edit3.text +'"'); Nochwas bei Interbase ist ein Select * immer langsamer als ein Select Feld1,Feld2,Feld3 ... Vieleicht hilft dir das ja weiter. :coder: |
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); |
Also ich hab das jetzt nochmal probiert.
Jetzt sieht's so aus:
Delphi-Quellcode:
Da kommt aber wieder:
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; Zitat:
|
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: |
: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: |
Also jetzt kommt ungültiges Schlüsselwort in Zeile 2 (select)
Code:
Delphi-Quellcode:
:roll: :roll: :roll:
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;; |
!
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:
Falls es nicht funktioniert, muss einer der Feldtypen nicht korrekt sein.
Add('SELECT * ');
Add('FROM kosten'); Add('WHERE abteilung = ' +QuotedStr(Edit1.Text)); Add('AND reihe =' +QuotedStr(edit2.Text)); Add('AND Nr <= ' + edit3.text); [edit=MrSpock]PS: In Edit3 muss eine gültige Ziffernfolge stehen![/edit] |
Vorweg: Es funktioniert immer noch nicht :cry:
Hab nochmals alles durchgeguckt, aber alles ist korrekt. Zitat:
In Edit2 soll die Reihe stehen..........Beispiel: R1 In Edit3 soll die Nummer stehen.........Beispiel: 1 Bin schon am Versweifeln :( |
Hallo Flo,
um ganz sicher zu gehen, habe ich den Originalcode wie folgt in ein kleines Programm gepackt:
Delphi-Quellcode:
Ich habe dazu eine Tabelle definiert, mit
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; 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? |
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. |
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