IN mit einem Parameter

[Sir Rufo]

Zitat von Bummi:

@Sir Rufo
der Witz bei den IN-Parametern ist üblicherweise daß die Anzahl der Elemente variabel ist, zb der Benutzer in einer Checklistbox bestimmte Elemente ausgewählt hat.

ok, man scheint mich nicht zu verstehen

Delphi-Quellcode:

for idx := 1 to AnzahlParameter do
  InParamStr := InParamStr + Format( ':InParam%d', [ idx ] );

Die Kommas fehlen noch, aber der Ansatz sollte nun klar sein.
Die Werte jetzt den Parametern zuweisen und dann abschicken.

[haentschman]

hmmm... ich hab jetzt zwar den String schon zusammengesetzt aber ich schau mir die Parametervariante morgen mal an. Für heute reicht es

Danke an alle...

[Bummi]

@Sir Rufo
sorry, ich hatte Dich wirklich falsch verstanden, aber eine Schleife mit QuotedStr()+',' und an Schluß das letzte Komma wegschmeißen empfinde perönlich ich als weniger aufwändig.

[himitsu]

Du hast weniger Arbeit, aber dafür mit das QuotedStr ordentlich arbeiten (korrekt die Quotes setzen), wofür zusätzliche Stringoperationen nötig sind
und dann muß das DBMS diesen String auch wieder zerlegen, was bei den Parametern nicht so aufwändig ist.

[Bummi]

Danke an Sir Rufo und Himitsu für die Anregung, ich hatte zwar an dieser Ecke bisher nie Performanceprobleme werde mich aber doch mal etwas ausgiebiger damit beschäftigen.

[Sir Rufo]

Und auch nur gefühlt mehr Arbeit
QryStr := '... Where Feld In (' + ParStr( 5 ) + ')'; die Funktion ParStr( Count : integer ) liefert dir dann die entsprechenden Parameter-Felder in der gewünschten Anzahl.
Nun ist der Aufwand die Werte an die Parameter zu übergeben geringer als diese als String aufzubauen.

[Bummi]

nur noch eine kleine Rückfrage, habt ihr Erfahrungen damit ob es bei einer hohen IN-Anzahl bei der Parametrisierten Form, die ja nur Sinn macht wenn man Prepared fährt z.B. bei MS-SQLserver ein Limit gibt.
Der SQL kann ja prinzipiell beliebig lang werden, die Frage wäre gibt es bei der Parameteranzahl möglicherweise eine Grenze?

[Sir Rufo]

Ab einer bestimmten Parameter-Anzahl müsste man mal das Konzept überdenken.
Ansonsten bleibt immer noch die Möglichkeit die Werte in eine temp. Tabelle zu übertragen und dann wie folgt prüfen

Code:

Where Feld In ( Select tmpFeld From tmpTab )