简单问题 我做了个查询功能可是不知道为什么每次运行后点查询按纽总是提示"参数内型不正确,或不在可接受的范围之内,或与其他参数冲突"请问这是为什么,要怎么解决 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 你检查一下传入SQL中的参数咯,看看数据类型有没有问题 我的代码是这样写的,如果是参数类型的问题我应怎么改procedure TForm7.SpeedButton1Click(Sender: TObject);varfilterstr:string;begin filterstr:=''; filterstr:=Format('(LIST_DATE,''YYYY-MM-DD'')>=''%s'' And (LIST_DATE,''YYYY-MM-DD'')<=''%s'' ',[FormatDateTime('YYYY-MM-DD',DateTimePicker1.Date),FormatDateTime('YYYY-MM-DD',DateTimePicker2.Date)]); if ComboBox5.Text <>'' then FilterStr := FilterStr + ' And LIST_TYPE = '+ComboBox5.Text else FilterStr := ' LIST_TYPE = '+ComboBox5.Text; if ComboBox1.Text<>'' then begin if ComboBox5.Text <>'' then filterstr:= filterstr +'and LIST_ITEM = '+ComboBox1.text else filterstr:= 'LIST_ITEM = '+ComboBox1.Text ; end; if ComboBox4.Text<>'' then begin if (ComboBox5.Text <>'')or(ComboBox1.Text <>'') then filterstr:= filterstr +'and LIST_ACCOUNT = '+ComboBox4.text else filterstr:= 'LIST_ACCOUNT = '+ComboBox4.Text ; end; ADOTable1.Filtered :=False; ADOTable1.Filter := filterstr; ADOTable1.Filtered :=True;end; 求解,关于对象和接口引用的同时清空 Delphi程序跟flash交互的问题 小问题急!!! 窗体调用的小问题,在线等呀. 新人第二问????? 求助!如何在DBGrid中实现与Excel相似的冻结左边窗口功能? 悬赏50分,请教delphi7.0中网络编程问题,望各位高手拉兄弟一把! 号外, 号外, 很多有趣的程序 怎样实现在TEDIT框里面有个按钮啊? 请问一下关于SDK/API的二次开发? 我想学delphi 遇到难题了请问他是如何加密的,请高手赐教!
procedure TForm7.SpeedButton1Click(Sender: TObject);
var
filterstr:string;
begin
filterstr:='';
filterstr:=Format('(LIST_DATE,''YYYY-MM-DD'')>=''%s'' And (LIST_DATE,''YYYY-MM-DD'')<=''%s'' ',[FormatDateTime('YYYY-MM-DD',DateTimePicker1.Date),FormatDateTime('YYYY-MM-DD',DateTimePicker2.Date)]);
if ComboBox5.Text <>'' then
FilterStr := FilterStr + ' And LIST_TYPE = '+ComboBox5.Text
else
FilterStr := ' LIST_TYPE = '+ComboBox5.Text;
if ComboBox1.Text<>'' then
begin
if ComboBox5.Text <>'' then
filterstr:= filterstr +'and LIST_ITEM = '+ComboBox1.text
else
filterstr:= 'LIST_ITEM = '+ComboBox1.Text ;
end;
if ComboBox4.Text<>'' then
begin
if (ComboBox5.Text <>'')or(ComboBox1.Text <>'') then
filterstr:= filterstr +'and LIST_ACCOUNT = '+ComboBox4.text
else
filterstr:= 'LIST_ACCOUNT = '+ComboBox4.Text ;
end;
ADOTable1.Filtered :=False;
ADOTable1.Filter := filterstr;
ADOTable1.Filtered :=True;
end;