Datum aus Access mit ADO auslesen

[Gehstock]

versuche ich mit

Delphi-Quellcode:

ADOQuery1.Close;
ADOQuery1.SQL.Text := 'select * from '+Konten.Text;
ADOQuery1.Open;
     While Not ADOQuery1.Eof do
        begin
           Date20:= DateToStr(ADOQuery1.FieldValues['Datum']);
           if Date20 <> '' then datum20.Text := Date20;

dabei freezt das programm allerdings

[Overclocker]

probieres mal mit

Delphi-Quellcode:

adoquery1.DataSource.DataSet.FieldByName('datum').AsDateTime;

[NormanNG]

Hi,

oder einfach mit

SQL-Code:

adoquery1.FieldByName('datum').AsDateTime;

Das Dataset der Datasource des AdoQuery1 ist ja gerade wieder das AdoQuery1 :-D

[marabu]

Moin,

die Konvertierung von Variant zu TDateTime geschieht automatisch und friert das Programm niemals ein. Wird denn ADOQuery1.Next innerhalb der Schleife ausgeführt, damit das Abbruchkriterium Eof() zuverlässig erreicht wird?

Grüße vom marabu

[mkinzler]

Zitat:

Das Dataset der Datasource des AdoQuery1 ist ja gerade wieder das AdoQuery1 Very Happy

Nein, das wäre dann eine zirkuläre Referenz

[marabu]

Moin,

ADOQuery1.DataSource ist nicht die DataSource, deren DataSet auf ADOQuery1 gesetzt wurde. Eine zirkuläre Referenz würde aber auch dann nicht entstehen, wenn es so wäre - es würde lediglich eine unsinnige Indirektion vorliegen.

Die Eigenschaft ADOQuery1.DataSource hat eine gänzlich andere Funktion: Sie gestattet die komfortable Verkettung von Master- und Detail-Queries analog MasterSource, indem die Parameter einer Detail-Query mit den gleichnamigen Feldwerten der MasterQuery bestückt werden.

Freundliche Grüße