const s:= 'select * from %s where xxx=:thedate' var thedate:tdatetime; query1.close; thedate:=datetime(i,'12:00:00') query1.sql.add(Format(s,[tablename,thedate]); query1.open;
Var I: TDate; TableName: String; Begin With Query1 Do Begin SQL.Clear; SQL.Add('Select * From '+TableName); SQL.Add('Where Start_Day = :Start_Day'); ParamByName('Start_Day').AsDateTime := I; Open; End; End;
Var I: TDate; TableName: String; Begin With Query1 Do Begin SQL.Clear; SQL.Add('Select * From '+TableName); SQL.Add('Where Start_Day = :Start_Day'); Prepared ; //最好加上这一句 ParamByName('Start_Day').AsDateTime := I; Open; End; End;
Var I: TDate; TableName: String; Begin Begin query1.SQL.Clear; query1.SQL.Add('Select * From '+TableName); query1.SQL.Add('Where Start_Day = :day'); query1.ParamByName('dqy').AsDateTime := I; query1.Open; End;
s:= 'select * from %s where xxx=:thedate'
var
thedate:tdatetime; query1.close;
thedate:=datetime(i,'12:00:00')
query1.sql.add(Format(s,[tablename,thedate]);
query1.open;
I: TDate;
TableName: String;
Begin
With Query1 Do
Begin
SQL.Clear;
SQL.Add('Select * From '+TableName);
SQL.Add('Where Start_Day = :Start_Day');
ParamByName('Start_Day').AsDateTime := I;
Open;
End;
End;
I: TDate;
TableName: String;
Begin
With Query1 Do
Begin
SQL.Clear;
SQL.Add('Select * From '+TableName);
SQL.Add('Where Start_Day = :Start_Day');
Prepared ; //最好加上这一句
ParamByName('Start_Day').AsDateTime := I;
Open;
End;
End;
I: TDate;
TableName: String;
Begin
Begin
query1.SQL.Clear;
query1.SQL.Add('Select * From '+TableName);
query1.SQL.Add('Where Start_Day = :day');
query1.ParamByName('dqy').AsDateTime := I;
query1.Open;
End;