Einzelnen Beitrag anzeigen

tylix

Registriert seit: 9. Dez 2003
Ort: Sauerlach
40 Beiträge
 
Delphi 5 Enterprise
 
#1

Hilfe, ich ahb ein Problem mit einer Query und Edit-Feld

  Alt 26. Mär 2004, 14:22
Hi Leute,

ich hab ein sau blödes Problem.

Ich hab eine DB-connect auf eine ADABAS DB.
Die untere Abfrage funktioniert soweit.

Nur habe ich folgendes Problem, im Formular habe ich ein Edit-Feld.
In dieses Edit - Feld tippe ich das gewünschte Datum ein.

Ich weiß jetzt nicht, wie ich den edit - Text in das SQL-Statement einbauen muss, und die Klammern setzen muss.
Ich steh wie vor einer Wand. Mein Kopf raucht und alles grübeln hilft nix.
Könnt ihr mir bitte helfen.



Code:
dm.qry_akti2_selektieren.sql.clear;
dm.qry_akti2_selektieren.sql.add ('SELECT Dbadmin_person.ID ');
dm.qry_akti2_selektieren.sql.add (' FROM DBADMIN.PERSON Dbadmin_person, DBADMIN.BOGEN Dbadmin_bogen');
dm.qry_akti2_selektieren.sql.add (' WHERE (Dbadmin_person.ID = Dbadmin_bogen.PER_ID)');
dm.qry_akti2_selektieren.sql.add (' and dbadmin_bogen.status = 1');
dm.qry_akti2_selektieren.sql.add (' and dbadmin_person.sperre not in (''1'',''02'',''03'',''04'',''05'',''06'')');
dm.qry_akti2_selektieren.sql.add (' and dbadmin_person.id not in ');
dm.qry_akti2_selektieren.sql.add ('(select ID FROM DBADMIN.PERSON Dbadmin_person, DBADMIN.MERKMALE Dbadmin_merkmale where dbadmin_person.id = dbadmin_merkmale.mer_pad_id and dbadmin_merkmale.mer_merkmal = ''002'' and dbadmin_merkmale.mer_dat = [b][u][color=red]''2004-03-05''[/color][/u][/b])'); [b][color=red] <------ Dieses Datum soll durch den Edit.text ersetzt werden. [/color][/b]
dm.qry_akti2_selektieren.open;

Ist doch echt zum

Dank euch

[edit=Sharky]Tags gesetzt Mfg, Sharky[/edit]
  Mit Zitat antworten Zitat