Tweet
In meinem Programm möchte ich via Click über einen Kalender gerne alle Daten
aus meiner MSSQL Datenbank auflisten die das gewählte Datum haben. Als ich das
mit MS Access gemacht habe hat der untenstehende Code funktioniert. Nachdem ich auf
MSSQL umgestellt habe leider nicht mehr. Es kommt immer der Fehler:
"Im Projekt "Programmname" ist eine Exception der Klasse EOleException mit der Meldung
ungültiger Spaltenname "22.11.2009" aufgetreten.
Was mache ich falsch oder wie frage ich Datumswerte mittels Variable in einem SQL-String
ab? Ich hoffe es kann mir einer den entscheidenden Typ geben!
Danke im Voraus!
Procedure GehezuDatum;
VAR Datum : String;
Sortierung : String;
Begin
Datum := datetostr(FMain.Kalender.Date);
Sortierung := FMain.CBSortierung.Text;
with FMain.ADOJournal do
begin
active := False;
sql.Clear;
sql.Add('SELECT * From Journalbuch Where Eintragdatum Like "' + datum + '"');
sql.Add('ORDER by "' + Sortierung + '" DESC');
try
active := True;
except
beep;
end;
end;
End;
aus meiner MSSQL Datenbank auflisten die das gewählte Datum haben. Als ich das
mit MS Access gemacht habe hat der untenstehende Code funktioniert. Nachdem ich auf
MSSQL umgestellt habe leider nicht mehr. Es kommt immer der Fehler:
"Im Projekt "Programmname" ist eine Exception der Klasse EOleException mit der Meldung
ungültiger Spaltenname "22.11.2009" aufgetreten.
Was mache ich falsch oder wie frage ich Datumswerte mittels Variable in einem SQL-String
ab? Ich hoffe es kann mir einer den entscheidenden Typ geben!
Danke im Voraus!
Procedure GehezuDatum;
VAR Datum : String;
Sortierung : String;
Begin
Datum := datetostr(FMain.Kalender.Date);
Sortierung := FMain.CBSortierung.Text;
with FMain.ADOJournal do
begin
active := False;
sql.Clear;
sql.Add('SELECT * From Journalbuch Where Eintragdatum Like "' + datum + '"');
sql.Add('ORDER by "' + Sortierung + '" DESC');
try
active := True;
except
beep;
end;
end;
End;
Comment