关于SQL对日期的操作!在线等,比较急!谢谢

Question

大哥们:我有个问题,想请教
就是我有一个DateTimePicker控件,如当前日期是2003年07月22日,库(Access)DataBase中的Name表,删除2003年07月22日以前的记录,这句SQL该怎么写!?大哥们教教我,谢谢!delete for Name where.....后面的控件时间怎么写?

Answer 1

qyery.sql.clear;
qyery.sql.Text:='delete from name where yourTimeField<:yourtimeFirld';
qyery.Parambyname('yourtimeFirld').asDateTime := StrToDateTime('2003-07-22');

Answer 2

with adoquery1 do
begin
close;
sql.clear;
sql,add('delete Name where 日期<=#' + DateToStr(DateTimePicker1.Date)+ '#');
//或者sql,add('delete Name where 日期<=#' + DateToStr(Now)+ '#');
execsql;
end;

Answer 3

'delete for Name where datetime >'''+ Formatdatetime('yyyy-mm-dd',DateTimePicker.date)+''''

Answer 4

sqlstr := 'delete from name where yourTimeField<''%s''';
sqlstr := format(sqlstr,[Formatdatetime('yyyy-mm-dd',DateTimePicker.date]);

Answer 5

adoquery.sql.text:='delete from name where TimeField<:timeFirld';
adoquery.paramerters.Parambyname('timeFirld').value:=datetime;

Answer 6

oracle数据库：
qyery.sql.clear;
qyery.sql.Text:='delete from name where yourTimeField<to_date('+''''+'2003-07-22'+''''+','+''''+'yyyy-mm-dd'+''''+')';
qyery.open;