Hallo zusammen
Vielleicht bin ich ein bisschen blöd oder schon zu müde. Habe ein Problem.
Ich habe eine Tabelle (Kunden.DB) mit Feldern Name, Vorname, Datum1, Datum2, Datum3, datum4. In irgendeinem Feld (Datum1 bis Datum4) ist beispielsweise das Datum "13.08.2007" eingegeben. Wie finde ich jetzt heraus, in welchem Feld das Datum eingegeben ist?
Bis jetzt habe ich folgenden Code:
Delphi-Quellcode:
procedure TForm1.Button33Click(Sender: TObject);
var
Field1 :
string;
begin
//Hilfstabelle löschen
Table4.First;
while table4.Eof = false
do
begin
Table4.Delete;
end;
with Query1
do //alle Datensätze in Kunden.DB durchsuchen nach gewähltem Datum
begin
//SQL.Text := 'Select * from Kunde.DB where Request_Formular = :datum';
Close;
Params.ParamByName('
datum').AsDateTime := Trunc(DateTimePicker4.Date);
// RequestLive := True; // im Object Inspector gesetzt
Open;
end;
Query1.First;
While Query1.Eof = false
do //gefundene Datensätze in Hilfstabelle füllen
begin
Table4.Edit;
Table4.Insert;
Table4.FieldByName('
Name').AsString := Query1.FieldByName('
Nachname').AsString;
Table4.FieldByName('
Task').AsString := Field1;
Table4.Post;
Query1.Next;
end;
end;
Tabelle 4 hat die Felder Name und Task.
In der Tabelle Kunde.DB finde ich nun alle Datensätze welche das gesuchte Datum enthalten. Jetzt sollte ich aber wissen in welchem Feld das Datum eingegeben ist und den Feldnamen des betreffenden Feldes in eine Variable laden und in die Hilfstabelle einfügen.
Kann mir da jemand helfen.