Übergabeparameter in SQL-String Where-Clause einfügen

[Tonik]

Hallo zusammen,

Ich habe folgendes Problem:

Delphi-Quellcode:

procedure TBestandsanalyseView.GenerateQuery(KundenID:String);
var
  SQLKrit : String;
begin
  SQLKrit:='Select Status,Praemie,Zahlung,Courtproz From Vertrag v Where v."KEY"='KundenID';
  AddQuery(SQLKrit);
end;

Das geht natürlich nicht:
Where v."KEY"='KundenID', aber wie bekomm ich es hin, dass mein Übergabeparameter im SQL-String in Anführunszeichen steht ohne diesen dadurch zu schliessen ?

Grüße
Micha

[edit=Sharky]Delphi-Tags gesetzt. Mfg, Sharky[/edit]

[Bernhard Geyer]

1, Du solltest wenn möglich parametrisierte Abfragen verwenden

2, Einfach quoten:

SQL-Code:

'Select Status,Praemie,Zahlung,Courtproz From Vertrag v Where v."KEY"=''KundenID''';

[Tonik]

Hallo Bernhard,

und Danke für die schnelle Antwort.
Wenn ich es so mache wie Du geschrieben hast, steht in meinem SQL-String dann

...Where v."KEY"='KundenID'

Er fügt jedoch nicht den Inhalt von KundenID an der Stelle ein sondern den String "KundenID"
ich suche nach einem Weg den Inhalt einzufügen und trotzdem die einzelnen Anführungszeichen davor und dahinter zu platzieren ohne die die Abfrage ja nicht funktioniert.

[Sharky]

Hai Tonik,

mit welchen Komponenten arbeitest Du denn für den zugriff auf deine Datenbank?

P.S.: Herzlich Willkommen in der Delphi-PRAXIS.

[Tonik]

Hi Sharky,

so sieht die Sache bei mir aus:
Ich benutze NextQuery vom Typ TSQLQuery in AddQuery. Das ist aber alles geerbt, ich muss nur 'nen sauberen SQL-String generieren in dem der Inhalt von Kunden ID in einzelnen Anführungsstrichen steht und den übergeben.

Delphi-Quellcode:

procedure TBestandsanalyseView.GenerateQuery(KundenID:String);
var
  SQLKrit : String;
begin
  SQLKrit:='Select Status,Praemie,Zahlung,Courtproz From Vertrag v Where v."KEY"=''KundenID''';
  AddQuery(SQLKrit);
end;

procedure TBestandsanalyseView.AddQuery(SQL:String);
var
  NextQuery  : TAfnQuery;
  zahlfaktor : integer;
  jahresNettoPraemie,praemie,vermittlerAnteil  : double;
begin
  NextQuery:=TAfnQuery.Create(self);
  NextQuery.SQLConnection := BuSession.DbSession.DBServer;
  NextQuery.Execute(SQL);
  while not NextQuery.Eof do
  begin
  ...
end;

[edit=Sharky]Delphi-Tags gesetzt. Bitte beim nächsten mal selber machen ;-) Mfg, Sharky[/edit]

[lume96]

Hallo,

sollte KEY in der Datenbank ein INTEGER, etc... sein, dann so

Delphi-Quellcode:

SQLKrit := 'Select Status,Praemie,Zahlung,Courtproz From Vertrag v Where v.KEY='+KundenID;

wenn KEY ein varchar, etc... ist, dann so :

Delphi-Quellcode:

SQLKrit := 'Select Status,Praemie,Zahlung,Courtproz From Vertrag v Where v.KEY='''+KundenID+'''';

MfG
Lutz

[Sharky]

Hai Tonik,

ich kenne diese Query-Komponente nicht und weis nicht ob diese mit Parametern arbeiten kann.
Normalerweise würde ich das so machen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  kunden_id : String;
begin
  kunden_id := '0815';
  ADOQuery1.Close;
  ADOQuery1.SQL.Text :=
  'Select Status,Praemie,Zahlung,Courtproz From Vertrag v' +#10
  +' Where v."KEY"= :kunden_id';
  ADOQuery1.ParamCheck := True;  // Parametercheck aktivieren
  ADOQuery1.Parameters.ParamByName('kunden_id').AsString := KundenID; //Parameter setzen.
  ADOQuery1.Open;
end;

Sollte es so nicht gehen verwende doch einfach die Funktion QuotedStr.

Delphi-Quellcode:

begin
  SQLKrit := 'Select Status,Praemie,Zahlung,Courtproz From Vertrag v Where v.KEY=' + QuotedStr (KundenID);

[Tonik]

Hallo Lutz !

klappt wunderbar wie Du geschrieben hast, vielen Dank (und den anderen natürlich auch) !!!

Grüße
Micha