Hallo zusammen,

Ich habe folgendes Problem:

markieren

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]

1, Du solltest wenn möglich parametrisierte Abfragen verwenden

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

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.

Hai Tonik,

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

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

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.

zusammenfalten · markieren

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]

Hallo,

sollte KEY in der Datenbank ein INTEGER, etc... sein, dann so
SQLKrit := 'Select Status,Praemie,Zahlung,Courtproz From Vertrag v Where v.KEY='+KundenID; wenn KEY ein varchar, etc... ist, dann so :

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

Hai Tonik,

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

zusammenfalten · markieren

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.

markieren

Delphi-Quellcode:

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

Hallo Lutz !

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

Grüße
Micha