SQL-Befehl mit Edit-Text

[tylix]

Hallo zusammen,

ich habe folgendes Problem

Code:

  qry_tmp.SQL.Clear;
    qry_tmp.SQL.Add ('SELECT mer_pad_id  ');
    qry_tmp.SQL.Add ('from DBADMIN.MERKMALE MERKMAL');
    qry_tmp.SQL.Add ('where mer_merkmal in (''017'',''018'',''019'',''020'',''034'')');
    qry_tmp.SQL.Add ('and MER_merkMal = '+ (edit1.text));
    qry_tmp.Active := true;

Obiger Code funktioniert.

Nun muss ich aber das soweit umbiegen, dass diese Zeile

Code:

 qry_tmp.SQL.Add ('and MER_merkMal = '+ (edit1.text));

abgeändert wird und zwar,

and mer_dat < (edit1.text);

nur wenn ich das so einsetze zwar mit richtiger klammersetzung, schreibt er invalid End of SQL statement.
Ich habe gar keinen Plan, wie ich das jetzt noch umbiegen soll, damit er nur nach dem Datum kleiner als Edit1.Text sucht.

Könnt ihr mir helfen, wäre echt supi.

Danke, tylix

[tylix]

ich muss noch dazu sagen, dass die Tabelle eine ADABAS - DB ist, ich über die BDE auf ADABAS zugehe und das FEld MER_DAT ein DAtumsfeld ist.

Gruss


Tylix

[BluesKid]

Moin moin

Also denke das lässt sich schön durch Parameter lößen, da musst du dann mal die Suche bemühen

Alternativ könnte auch das funktionieren (ungetestet):

Delphi-Quellcode:

  qry_tmp.sql.delete(3); //4. Zeile löschen
  qry_tmp.sql.Add ('and MER_merkMal = '+ (edit1.text));

schönen Gruß

Sam

[TypusMensch]

hm....

warum nicht einfach zwei strings???

Delphi-Quellcode:

prozedure xxx.xxx(...);
var s1,s2:string;
begin
s1 := ...; //die eine variante
s2 := ...; // die zweite variante
if ... then qry_tmp.sql.Add(s1)
  else qry_tmp.sql.Add(s2);
end;

?!?

[TypusMensch]

Zitat von BluesKid:

Moin moin

Also denke das lässt sich schön durch Parameter lößen, da musst du dann mal die Suche bemühen

Alternativ könnte auch das funktionieren (ungetestet):

Delphi-Quellcode:

  qry_tmp.sql.delete(3); //4. Zeile löschen
  qry_tmp.sql.Add ('and MER_merkMal = '+ (edit1.text));

schönen Gruß

Sam

ginge natürlich evl. auch.....

wie kann ich eigentlich nen beitrag in diesem forum wieder löschen???