SQL Select IN Abfrage mit Parameter ?

[user0815]

Delphi-Quellcode:

  SQL.Clear;
  SQL.Add('SELECT');
  SQL.Add('  FELD1, FELD2, DATUM');
  SQL.Add('WHERE');
  SQL.Add('  FELD1 IN (1,2,3,4,5,6,7,8,9) AND');
  SQL.Add('  DATUM >= :DATE1');
  SQL.Add('ORDER BY');
  SQL.Add('  FELD1 DESC');

  ParamCheck := true;
  ParamByName('DATE1').AsDateTime:= StartOfTheDay(DateTimePicker1.Date);

Frage: Kann man für die FELD1 IN Abfrage auch mit Parametern arbeiten, & wenn ja wie ?

Grüße
user0815

[Medium]

"...IN (:p00, :p01, :p02, :p03, ...)" geht bei MySQL zumindest prima.

[mkinzler]

Ich vermute mal er meint aber ein Parameter für die Liste. Und das geht bei den mir bekannten DBMS nicht.

[user0815]

Schade + Danke !

Also ne Parameter Schleife für die Werte 'bauen', ....

[himitsu]

Geht denn sowas?

Delphi-Quellcode:

  SQL.Clear;
  SQL.Add('SELECT');
  SQL.Add(' FELD1, FELD2, DATUM');
  SQL.Add('WHERE');
  SQL.Add(' FELD1 IN (&liste) AND');
  SQL.Add(' DATUM >= :DATE1');
  SQL.Add('ORDER BY');
  SQL.Add(' FELD1 DESC');

  ParamCheck := true;
  ParamByName('DATE1').AsDateTime:= StartOfTheDay(DateTimePicker1.Date);
  MakroByName('DATE1').Value:= ':p0,:p1,:p2,:p3'; 
  ParamByName('p0').AsIrgendwas:= ...; 
  ParamByName('p1').AsIrgendwas:= ...;

Den String für das Makro müßte man berechnen lassen, oder, wenn's mit Makro nicht geht, dann StringReplace oder so, direkt ins SQL.Text
Ohne das Makro hatte ich sowas mal verwendet. :oops:

[Medium]

Die Frage war nach Parametern. Ich kenne auch kein DBMS, dass einen Listentypen in dieser Weise unterstützen würde. Man könnte sich ansonsten noch ggf. über eine temporäre Tabelle helfen, die man dann joined. Dann müsste man diese befüllen statt String-Gewurschtel, klingt üppiger, gefiele mir aber grad bei variabler Anzahl der Listenitems irgendwie besser.

[alex517]

ich mach das mit einer SP

Parameterliste für where .. IN (..)

alex

[Union]

Du könntest auch eine temporäre Tabelle verwenden:

Code:

WHERE FELD1 IN (SELECT FELD1 FROM #Temp)

[mikhal]

Bei den UniDACs gibt es die Möglichkeit Macros in deinem Statement unterzubringen. Damit kann man auch eine Parameterliste sauber übergeben. Ist in der Hilfe gut beschrieben.

Grüße
Mikhal

[user0815]

DANKE !
In der Hilfe gefunden, ausprobiert, funktioniert.

Zitat:

Working with Macros
Macros help you to change SQL statements dynamically. They allow partial replacement of the query statement by user-defined text. Macros are identified by their names which are then referred from SQL statement to replace their occurrences for associated values.
First step is to assign macros with their names and values to a dataset object.
Then modify SQL statement to include macro names into desired insertion points. Prefix each name with & ("at") sign to let UniDAC discriminate them at parse time. Resolved SQL statement will hold macro values instead of their names but at the right places of their occurrences. For example, having the following statement with the TableName macro name:

SELECT * FROM &TableName

You may later assign any actual table name to the macro value property leaving your SQL statement intact.

Query1.SQL.Text := 'SELECT * FROM &TableName';
Query1.MacroByName('TableName').Value := 'Dept';
Query1.Open;

UniDAC replaces all macro names with their values and sends SQL statement to the server when SQL execution is requested.

Delphi-Quellcode:

  SQL.Clear;
  SQL.Add('SELECT');
  SQL.Add(' FELD1, FELD2, DATUM');
  SQL.Add('WHERE');
  SQL.Add(' FELD1 IN (&Feldwerte) AND');
  SQL.Add(' DATUM >= :DATE1');
  SQL.Add('ORDER BY');
  SQL.Add(' FELD1 DESC');

  ParamCheck := true;
  ParamByName('DATE1').AsDateTime:= StartOfTheDay(DateTimePicker1.Date);
  MacroByName('Feldwerte').Value := '1,2,3,4,5,6,7,8,9';