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