Einzelnen Beitrag anzeigen

dragi

Registriert seit: 22. Jul 2003
198 Beiträge
 
Delphi 2005 Personal
 
#9

Re: Grosses Problem mit Datum/Zeit in Access

  Alt 19. Dez 2004, 14:42
So, da bin ich wieder. Es klappt trotzdem nicht. Ich habe nun folgenden testaufbau:

eine db1.mdb in der sich eine Tabelle1 befindet mit den Feldern ID (AutoWert), Datum(FDatum/Zeit) und Text (Text). Ein Datensatz ist angelegt : 1, 17.12.2004 08:30, Hallo

Auf meinem Formular ist ein Button, ein Edit1 , eine ADOConnection und ein ADODataset1.

folgenden Code dazu:

Code:
unit frm_STMain;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ADODB, Db, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    ADOConnection1: TADOConnection;
    ADODataSet1: TADODataSet;
    ADOQuery1: TADOQuery;
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source= D:\Ausbildung\Projekte\Delphi\SQLTest\db1.mdb';
  ADOConnection1.Connected := true;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 with Form1.ADODataset1 do
  begin
    Close;
    CommandText:= 'SELECT * FROM Tabelle1 WHERE (((Tabelle1.Datum) = #12/17/2004 08:30:0#))';
    Open;
  end;
  Edit1.Text := ADODataSet1.FieldByName('Text').AsString;
end;

end.
und bei Button1Click kommt folgende Exception (siehe Anhang)

Ich hab auch schon die Klammern weggelassen und auch nur das Tabelle1.Datum in Klammern gesetzt. Trotzdem kein Erfolg. Kann es mit dem Jet4.0 zusammen hängen?

Gruss

Dragi
Miniaturansicht angehängter Grafiken
exception1_903.jpg  
  Mit Zitat antworten Zitat