Problem bei der Übergabe von SQLStatements an ein TQuery

[Silbar]

Hi Leute :hi:

also bei Datenbanken bin noch nen ziemlicher Neuling darum wird die Antwort wahrscheinlich sehr einfach sein. Vornweg hab schon versucht was passendes in der DB zu finden hat aber irgendwie nichts funktioniert. :?

Also hier das Problem:
Ich habe folgende SQL-Anweisung

Delphi-Quellcode:

SELECT SUCHTEXT
FROM ARTIKEL Artikel
WHERE  SUCHTEXT LIKE '%KABEL%'

die wenn ich sie direkt beim Objekt Inspektor unter SQl eintrage tadellos funktioniert und mir das gewünschte Ergebnis in einem DBGrid ausgibt. Nun soll statt dem Wort KABEL in der SQL Anweisung der eingegebene Text eines Edit Fenster stehen wenn ich nun also im Quelltext folgendes Statement schreibe

Delphi-Quellcode:

 Form1.MyQuery.SQL.Add:='SELECT SUCHTEXT FROM ARTIKEL Artikel WHERE SUCHTEXT LIKE '%+Form1.Edit1.Text+%'';

bekomme ich folgende Fehlermeldung:

Zitat:

[Error] OMDBTestUnit.pas(57): Not enough actual parameters
[Error] OMDBTestUnit.pas(57): Illegal character in input file: '%' ($25)
[Error] OMDBTestUnit.pas(57): Illegal character in input file: '%' ($25)
[Fatal Error] OMDBTestProject.dpr(5): Could not compile used unit 'OMDBTestUnit.pas'

Weiss einer wie ich den Quell code korrigieren muss damit es läuft?

Schon mal danke an alle die sich die Mühe gemacht haben und bis hier gelesen haben. :thumb:

[Chris1986]

Hi Silbar,
die %-Zeichen müssen noch vor die Hochkommata. Auserdem erwartet TStringlist.Add den neu eingefügten String als Übergabeparameter.
So sollte es funktionieren:

Delphi-Quellcode:

Form1.MyQuery.SQL.Add('SELECT SUCHTEXT FROM Artikel WHERE SUCHTEXT LIKE %'+Form1.Edit1.Text+'%;');

Mfg
Christian

[gmc616]

Hi Silbar,

versuchs doch mal so:

Delphi-Quellcode:

Form1.MyQuery.SQL.Add:='SELECT SUCHTEXT FROM ARTIKEL Artikel WHERE Artikel.SUCHTEXT LIKE ''%'+Form1.Edit1.Text+'%''';

Das Label kannst du übrigens in diesem Fall weglassen.

Delphi-Quellcode:

Form1.MyQuery.SQL.Add:='SELECT SUCHTEXT FROM ARTIKEL WHERE SUCHTEXT LIKE ''%'+Form1.Edit1.Text+'%''';

gmc

[Hansa]

Wieso liegt der "Suchtext" eigentlich als Feld in der DB ? Wieso steht da 2mal Artikel ? :shock:

Delphi-Quellcode:

ArtDS.SelectSQL.Text := 'SELECT * FROM ART WHERE UPPER (BEZ) LIKE UPPER (''%' + edSuch.Text + '%'') ORDER BY NR';

Ich mache das so, sortiere nach Nummern und erschlage gleich noch die Groß/Kleinschreibung. 8)

[Silbar]

Danke für die Lösung Delphi kompiliert jetzt zwar aber nun kommt wenn ich auf den Button klicke der das ganze auslösen soll folgende Fehlermeldung:

Zitat:

General SQL error
ORA-00911: Ungültiges Zeichen

PS.:
Mein Quelltext sieht so aus:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
 Form1.MyQuery.SQL.Add('SELECT SUCHTEXT FROM Artikel WHERE SUCHTEXT LIKE %'+Form1.Edit1.Text+'%;');
 Form1.MyQuery.ExecSQL;
end;

PPS.:Im Edit-Fenster stand 'KABEL' drin.

PPPS.:Gemeint is die Lösung von Chris1986 die anderen teste ich noch

@Hansa:
Das kamm mit dem SQl Builder der TQuery Komponete ohe hat das unter des Builder irgendwie net funktionert liegt vermutlich am Aufbau der DB die ich bekommen habe.

[marabu]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
 Form1.MyQuery.SQL.Text := 'SELECT SUCHTEXT FROM Artikel WHERE SUCHTEXT LIKE ''%' + Form1.Edit1.Text + '%''';
 Form1.MyQuery.Open;    // ExecSQL nur, wenn du keinen result set erwartest 
end;

Grüße vom marabu

[Silbar]

das mag jetzt komisch klingen aber das DBGrid das ich mit der DataSource verbunden habe, das wiederum mit der TQuery verbunden ist gibt nix aus. Als ich den SQL Text direkt im Objekt Manager eingetragen habe hat sich das DBGrid selbstständig gefüllt nun isses aber leer obwohl ich weiss das es eigentlich mit Daten gefüllt sein müsste. Kann es sein das da noch ne Befehl fehlt der vorher net nowendig war?

PS.: Ich arbeite mit de Lösung von Marabu da bei den andere immer der Fehler von oben auf tritt

Zitat:

[Error] OMDBTestUnit.pas(57): Not enough actual parameters

[marabu]

Du solltest nicht mit ExecSQL() arbeiten, wenn du ein SELECT Statement zum Server schickst.

marabu

[Silbar]

mit welchem dann bin mit DB's net so vertraut bzw mit dem Befehlssatz

[marabu]

Open heißt das Tier - habe ich weiter oben in den Code schon eingepflegt...

marabu

[shmia]

Wenn man keine Parameter verwendet, sollte man zumindest die Funktion QuotedStr verwenden !

Delphi-Quellcode:

MyQuery.SQL.Text:='SELECT SUCHTEXT FROM ARTIKEL Artikel WHERE SUCHTEXT LIKE '+
   QuotedStr('%'+Edit1.Text+'%');
MyQuery.Open;

Andernfalls kommt es zu einem SQL Syntaxfehler wenn Edit1.Text mal ein Hochkoma enthalten sollte.

[Silbar]

danke leute (besonders marabu) :cheers: jetzt rennt das.

eine kleine weiteführende frage wie baue ich das UPPER von Hansa passend in marabu's bzw.shmia's quelltext ein irgendwie funzt das net wen ich das mache (im SUCHTEXT steht alles in Grossbuchstaben drin deshalb soll die Eingabe vom Edit auch in Grossbuchstaben umgewandelt werden)

PS.: Das open habe ich wohl überlesen marabu sry

[marabu]

Hier eine überarbeitete Fassung:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
 Form1.MyQuery.SQL.Text := 'SELECT SUCHTEXT FROM Artikel WHERE UPPER(SUCHTEXT) LIKE ''%' 
                         + QuotedStr(AnsiUppercase(Form1.Edit1.Text)) + '%''';
 Form1.MyQuery.Open;    // ExecSQL nur, wenn du keinen result set erwartest 
end;

Verbesserungsvorschläge von Hansa und shmia sind eingebaut.

und auch noch ein Fehler - also unbedingt bis zum Beitrag von shmia weiterlesen...

marabu

[Silbar]

Danke für die Mühe marabu aber jetzt bekomm ich die Meldung

Zitat:

[Error] OMDBTestUnit.pas(58 ): Undeclared identifier: 'Upper'

[Chris1986]

ich glaub marabu meint die Funktion UpperCase

[marabu]

Er meinte sogar AnsiUppercase() - um genau zu sein - aber so ist das im Alter: man meint manchmal das eine und schreibt das andere. Gut das immer einer da ist, der mitdenkt. Ich ändere das mal im Code, bevor noch jemand darauf hereinfällt...

marabu

[shmia]

Zitat:

Zitat von marabu

...aber so ist das im Alter: man meint manchmal das eine und schreibt das andere

Stimmt, die grauen Zellen wollen einfach nicht mehr. :nerd:
Und das mit den Hochkommas und QuotedStr passt auch nicht.
Richtig wäre:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
Form1.MyQuery.SQL.Text := 'SELECT SUCHTEXT FROM Artikel WHERE UPPER(SUCHTEXT) LIKE ' 
                         + QuotedStr('%'+AnsiUppercase(Form1.Edit1.Text)+'%'); 
Form1.MyQuery.Open;    
end;

[marabu]

Heute ist nicht mein Tag
*UnbedachterTrittGegenSchreibtisch*
Ich gehe dann mal nachbessern...

marabu

[Silbar]

Danke Leute jetzt funzt :thumb:

und marabu baruchst net sauer sein wusstest immmerhin mehr als ich :thumb:


also leute cya