begin
with dataa.Q2 do
begin if CBshkdate.Checked=true then
swhere:='and shkdate>='''+FormatDateTime('ddddd',shkdate.Date)+'''';
if CBshkname.Checked=true then
swhere:=swhere+' and shkname='''+trim(shkname.Text)+'''';
if CBusername.Checked=true then
swhere:=swhere+'and username='''+trim(username.Text)+'''';
close;
sql.Clear;
sql.Add('select * from shkinfo where 1=1'+swhere);
open;
end;红色部分的错误,FormatDateTime('ddddd',shkdate.Date) 如何调整? DELPHI+ACCESS
哪位兄弟分析下
with dataa.Q2 do
begin if CBshkdate.Checked=true then
swhere:='and shkdate>='''+FormatDateTime('ddddd',shkdate.Date)+'''';
if CBshkname.Checked=true then
swhere:=swhere+' and shkname='''+trim(shkname.Text)+'''';
if CBusername.Checked=true then
swhere:=swhere+'and username='''+trim(username.Text)+'''';
close;
sql.Clear;
sql.Add('select * from shkinfo where 1=1'+swhere);
open;
end;红色部分的错误,FormatDateTime('ddddd',shkdate.Date) 如何调整? DELPHI+ACCESS
哪位兄弟分析下
swhere:='and shkdate>='''+FormatDateTime('yyyy-mm-dd',shkdate.Date)+''''; 都是一样的错误!
shkdate可以是datetime就用下面这个
swhere:='and (shkdate>='''+datetimetostr(shkdate.datetime)+''')';
swhere:='and DateValue(shkdate)>='''+DateToStr(shkdate.Date)+'''';
我数据库ACCESS里的shkdate是日期/时间 格式!!
Edit1.Text := FormatDateTime('YYYY-MM-DD', ADODataSet1.FieldByName('testDateTime').AsDateTime);
没报错啊
例如,select * from table where nDateTime>#2012-03-25 12:01:52#