Query mit Parameterübergabe und Sonderzeichen im Wert

[Moony]

Hallo zusammen,

ich baue in meinem Tool ein Query mit Parameterübergabe zusammen.

Beispiel:

Delphi-Quellcode:

SELECT * FROM Personen WHERE ([Name] LIKE :fltprm_1)

Bevor das Query abgesendet wird, werden die Werte für die Parameter gefüllt mit:

Delphi-Quellcode:

for i := 0 to ParamFieldsLst.Count - 1 do
begin
  if myDS.FindParam(ParamFieldsLst.Strings[i]) <> nil then
    myDS.ParamByName(ParamFieldsLst.Strings[i]).Value := Variant(ParamValuesLst.Strings[i]);
end;

In der ParamValuesLst können Werte stehen wie 'Müller'. Wenn der SQL BEfehl ausgeführt wird, dann bekomme ich keinerlei Ergebnisse. Ich schätze mal dass wegen der Sonderzeichen - in diesem Fall Umlaut - nichts gefunden wird. Habe bereits versucht beim Füllen von ParamByName den Wert in QuotedStr() bzw. in Hochkommata zu setzen. Aber auch hier kein Ergebnis. Gibts da noch eine andere Lösung?

Danke & Gruß,
Moony

[Bernhard Geyer]

welchen SQL-Typ hat dein Feld? ich hoffe doch nvarchar.

Sollte es nur varchar sein könnte hier die schön öfter selbst bemerkten Probleme zuschlagen wenn man versucht mit einem Unicode-String mit einem Ansi-Feld beim MS-SQL-Server zu arbeiten.

[Moony]

Nee, das ist ein nvarchar.

[Sir Rufo]

Also zum einen würde ich so schon mal nicht durch die Parameter iterieren ;)

Besser so:

Delphi-Quellcode:

var
  ParamName : string;
  ParamIdx : integer;
  ParamValue : string;

for i := 0 to myDS.ParamCount - 1 do
begin
  ParamName := myDS.Params[ i ].Name;
  ParamIdx := ParamFieldsLst.IndexOf( ParamName );
  if ( ParamIdx >= 0 ) and ( ParamIdx < ParamValuesLst.Count ) then
  begin
    ParamValue := ParamValuesLst[ ParamIdx ];
    myDS.Params[ i }.Value := ParamValue;
  end
  else
    myDS.Params[ i ].Clear;
end;

warum so ... weil dann auch das hier möglich ist:

Code:

SELECT * FROM foo WHERE name1 LIKE :Parameter OR name2 LIKE :Parameter

Für die Suche mit LIKE müsstest du aber auch die Joker % oder _ verwenden, oder du bekommst nur 100% übereinstimmende Treffer. Auch dieses kann ein Grund dafür sein, dass du keine Treffer bekommst.

Wenn der Wert also irgendwie in dem Feld auftauchen soll, dann musst du also so vergleichen lassen:

Code:

SELECT * FROM foo WHERE name1 LIKE "%Müller%"

Mein Beispiel damit erweitert würde dann wie folgt aussehen:

Delphi-Quellcode:

var
  ParamName : string;
  ParamIdx : integer;
  ParamValue : string;

for i := 0 to myDS.ParamCount - 1 do
begin
  ParamName := myDS.Params[ i ].Name;
  ParamIdx := ParamFieldsLst.IndexOf( ParamName );
  if ( ParamIdx >= 0 ) and ( ParamIdx < ParamValuesLst.Count ) then
  begin
    ParamValue := ParamValuesLst[ ParamIdx ];
    myDS.Params[ i }.Value := '%' + ParamValue + '%';
  end
  else
    myDS.Params[ i ].Clear;
end;

[Moony]

Den Umbau kann man so auch machen. Was den Wert betrifft, der übergeben wird, sieht immer folgendermaßen aus 'Müller%'. Heißt in meiner Stringliste sind die Werte bereits mit dem Platzhalter versehen.

[DeddyH]

Kannst Du nicht am SQL-Server nachschauen, welcher Querystring da tatsächlich ankommt?

[Moony]

wie mache ich das?

[DeddyH]

Aktivitätsmonitor im Management Studio.

[Moony]

Habe den Aktivitätsmonitor gestartet und im Debugmodus von meinem Tool Schritt für Schritt geprüft was passiert. Der Monitor zeigt nicht die Befehle an, die ich ausführe.

Zu erwähnen wäre noch, dass ich einen SQL Befehl als erstes in eine temporäre Tabelle absetze und anschließend SELECT * FROM #TempTable mit der Bedigung auf diese absetze.
Habe jetzt im Monitor gesehen, dass er zwar den Befehl für das Schreiben der Temptabelle anzeigt, aber nicht meine anschließende Anfrage.

Habe des weiteren für mein Tool über den SQL Server Profiler meine Befehle tracen lassen. und folgende Ergebnisse erhalten:

Delphi-Quellcode:

exec sp_executesql N'SELECT * FROM #tempPDF WHERE ([Name] LIKE @P1) ORDER BY Name,Vorname,Datum,Uhrzeit,Ausweisnummer',N'@P1 varchar(8000)','''LÖKER%'''

Gruß, Moony

[RWarnecke]

Nehme doch mal eine Kopie Deines zusammengesetzten SQL-Befehls aus Deinem Programm und führe diesen direkt über ein bestehendes Programm aus, welches einwandfrei mit der Datenbank funktioniert. Sowas wie IBExpert für MS SQL. Ich mache das gleiche bei Firebird und habe dadurch schon so manchen Fehler gefunden.

[Moony]

Also:

1. Ich schreibe einen vorgefertigten SQL Befehl in eine temporäre Tabelle mit

Code:

SELECT t.* INTO #tempTable FROM (mein SQL Befehl) AS t

2. Anschließend wird folgender Befehl meinem UniQuery zugewiesen:

Code:

SELECT * FROM #tempTable WHERE ([Name] LIKE :fltprm_1) ORDER BY Name,Vorname,Datum,Uhrzeit,Ausweisnummer

Gibt es noch eine Bedingung oder eine Sortierung wird diese hier an den SQL Befehl gehangen. In meinem Fall gibt es beides. Das ist der Befehl so wie er an das Query geschickt wird mit:

Delphi-Quellcode:

myDS.SQL.Text := SQL

3. Dann werden anhand einer Parameterliste die Werte dem Query zugewiesen mit Hilfe von:

Delphi-Quellcode:

for i := 0 to ParamFieldsLst.Count - 1 do
begin
  if myDS.FindParam(ParamFieldsLst.Strings[i]) <> nil then
    myDS.ParamByName(ParamFieldsLst.Strings[i]).Value := Variant(ParamValuesLst.Strings[i]);
end;

Die Listen wurde vorher gefüllt und auf Konsistenz geprüft.

4. Öffnen des Queries mit:

Delphi-Quellcode:

myDS.Open;

Habe anschließend beide Querys im SQL Management Studio ausgeführt.

[Moony]

Ich habe es jetzt anders gelöst:

Anstatt mit Parameterübergabe mache ich folgende Schritte:

1. Anhand der Parameterliste für jeden Parameter eine Variablendeklaration ins Query laden mit: myDS.SQL.Add().
2. Anschließend anhand der Parameterliste die Variablen mit Werten füllen.
3. Den SQL Befehl hinzufügen, der sowieso bereits schon in das Query geladen wurde.

Somit werden alle Suchanfragen (egal ob String, Integer oder Datumsfelder) erfolgreich ausgeführt.

Dennoch vielen Dank an alle die mitgewirkt haben.

Gruß, Moony