Einzelnen Beitrag anzeigen

Benutzerbild von Sharky
Sharky

Registriert seit: 29. Mai 2002
Ort: Frankfurt
8.251 Beiträge
 
Delphi 2006 Professional
 
#7

Re: SQL Befehl zum Ausgeben von daten in einen bestimmten Be

  Alt 1. Jul 2004, 09:29
Hai,

versuche es mal so:

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
  with Query1 do
  begin
    Close;
    SQL.Text := 'SELECT * FROM booking' +#10
      + 'WHERE (tag BETWEEN :tag1 AND :tag2)' + #10
      + 'WHERE (moat BETWEEN :monat AND :monat2)' + #10
      + 'WHERE (jahr BETWEEN :jahr1 AND :jahr2)' + #10
      + ' ORDER BY name, uhrzeit';
    ParamCheck := True;
    Params.ParamByName('tag1').Value := Tag1;
    Params.ParamByName('tag2').Value := Tag2;
    Params.ParamByName('monat1').Value := Monat1
    Params.ParamByName('monat2').Value := Monat2
    Params.ParamByName('jahr1').Value := Jahr1
    Params.ParamByName('jahr2').Value := Jahr2;
    Open;
  end;
end;
P.S.: Ich denke Sakura meinte das die Tags nicht [ source] [ /source] heissen sondern [ delphi] [ /delphi] (Natürlich ohne die Leerzeichen)
Stephan B.
"Lasst den Gänsen ihre Füßchen"
  Mit Zitat antworten Zitat