🚀 go-pugleaf

Koert,

What is the error message?

Try ADOQuery1->FieldByName("Dag")->AsDateTime

Bruce.

Koert Wilmink wrote:

> Hi all,
>
> I have a MSACCESS database with a table called "Dag" with a field called
> "Dag" with type Date.
> I want to decode this date field, thirst I'm assigning this field to Gdate,
> GDate =  ADOQuery1->FieldValues["Dag"];
>
> The compiler is giving me an error! What is wrong ????? See the following
> code:
>
> Word GYear, GMonth, GDay;
> TDateTime GDate;
>
> ADOQuery1->Close();
> ADOQuery1->SQL->Clear();
> ADOQuery1->SQL->Add("SELECT * ");
> ADOQuery1->SQL->Add("FROM Dag ");
> ADOQuery1->SQL->Add("WHERE Employee = " + QuotedStr(AnEmployee));
> ADOQuery1->Open();
> ADOQuery1->First();
> while (!ADOQuery1->Eof)
>         {
>         GDate =  ADOQuery1->FieldValues["Dag"];
>         DecodeDate(GDate, GYear, GMonth, GDay);
>         if (GYear == ComboBox1->Text) {
>                 StringGrid1->Cells[StrToInt(GMonth)-1][StrToInt(GDay)-1] = "
> V";
>                 }
>         Form1->ADOQuery1->Next();
>         }
> Form1->ADOQuery1->Close();
>
> Thanks,
>
> Koert Wilmink
> Koert@Wilmink.com