Forum: Datenbanken
Delphi
by Major1337,
17. Sep 2009
@DeddyH
ich weiß doch wie das Programm ablaufen soll da brauch ich keinen Programmablauf o.O.
Datum von: (DateBeginSucheEdit)
Datum bis: (DateEndSucheEdit)
1. Fall
Forum: Datenbanken
Delphi
by Major1337,
17. Sep 2009
Mein Vorschlag wäre:
if DateBeginSucheEdit.text <> '' then
SmartQuery1.SQL.Add('and datum = :ANFANG');
DateEndSucheEdit.Text := DateBeginSucheEdit.Text;
SmartQuery1.ParamByName('ANFANG').Value := StrToDate(DateBeginSucheEdit.Text);
begin
if DateEndSucheEdit.Text <> '' then
begin
SmartQuery1.SQL.Add('and datum >= :ANFANG and datum <= :ENDE');
Forum: Datenbanken
Delphi
by Major1337,
17. Sep 2009
Wenn DateBeginEdit nicht ausgefüllt ist aber DateEndEdit soll er nur nach dem Datum suchen was in DateEndEdit eingeben ist und dann gleichzeitig in DateBeginEdit das Datum von DateEndEdit eintragen umgekehrt geht es ja schon.
Forum: Datenbanken
Delphi
by Major1337,
17. Sep 2009
ja, das Datumformat ist immer das selbe. Habe mich aber jetzt entschieden, wenn man nur ein Feld ausfüllt wird genau das Datum angezeigt was man eingegeben hat. Das klappt jetzt allerdings nur mit dem Feld DateBegin.. wie bekomme ich den jetzt da noch den Fall unter wenn er nur DateEnd eingibt ? o.O.
if DateBeginSucheEdit.text <> '' then
begin
if DateEndSucheEdit.Text <> '' then
...
Forum: Datenbanken
Delphi
by Major1337,
17. Sep 2009
Hey,
es funktioniert auch ohne das Datenformat anzugeben. ^^
Forum: Datenbanken
Delphi
by Major1337,
17. Sep 2009
hab dieses Datenformat jetzt eingesetzt aber er unterstreicht es rot, wieso? => DD.MM.YYYY
EDIT: mit Hochkommata? :P
Forum: Datenbanken
Delphi
by Major1337,
17. Sep 2009
mit var deklarieren ich hab in der OraSession bei Eigenschaften das Datenformat DD.MON.YYYY eingetragen.
EDIT Okay ich habs verstanden!
Forum: Datenbanken
Delphi
by Major1337,
17. Sep 2009
Unit6.pas(101): E2250 Es gibt keine überladene Version von 'Format', die man mit diesen Argumenten aufrufen kann
Forum: Datenbanken
Delphi
by Major1337,
17. Sep 2009
if DateBeginSucheEdit.text <> '' then
begin
if DateEndSucheEdit.Text <> '' then
begin
SmartQuery1.SQL.Add('and datum >= :ANFANG and datum <= :ENDE');
SmartQuery1.ParamByName('ANFANG').asString := DateBeginSucheEdit.Text;
SmartQuery1.ParamByName('ENDE').asString := DateEndSucheEdit.Text;
end
else
begin
Forum: Datenbanken
Delphi
by Major1337,
15. Sep 2009
@p80286
danke für deine Lösung aber ich muss nur ein Feld abfragen da gibts keine zwei unterschiedliche Namen, nur einen.
Kann von diesem PC aus nicht das Projekt pflegen, könntest du mir aber trotzdem schreiben ob man es so schreiben kann.
....
SmartQuery1.SQL.Add(' and date >= :ANFANG and date <= :ENDE);
....
else
Forum: Datenbanken
Delphi
by Major1337,
15. Sep 2009
Die möglichen Beispiele die oben genannt worden sind wie beispielsweise mit Markos konnte ich nicht ganz nachvollziehen.
Ich zeige euch mal nochmal anhand meines Quellcodes wie es aussehen sollte.
if DateFromEdit.text <> '' then
begin
SmartQuery1.SQL.Add('{ DateFromEdit.Text bis ENDE} ');
SmartQuery1.ParamByName('').AsString := DateFromEdit.Text;
end;
if...
Forum: Datenbanken
Delphi
by Major1337,
14. Sep 2009
// DATE FROM
if DesEdit2.Text <> '' then
SmartQuery1.SQL.Add('');
end;
//DATE END;
if DesEdit3.Text <> '' then
begin