盒子论坛 v2.1

为什么前三个查询条件一填就出错？
procedure TFormserch.Button1Click(Sender: TObject);
var
  i:integer;
  s,low,high:string;
begin
  s:='select * from handset ';
  i:=0;
  if trim(edit1.Text)<>' then
      begin
      s:=s+'where type=''+trim(edit1.Text)+'';
      i:=i+1;
      end;
  if trim(edit2.Text)<>' then
      begin
      if i=0 then
         s:=s+'where name=''+trim(edit2.Text)+''
      else
         s:=s+' and  name=''+trim(edit2.Text)+'';
         i:=i+1;
      end;
  if trim(edit3.Text)<>' then
      begin
      if i=0 then
         s:=s+'where cash=''+trim(edit3.Text)+''
      else
         s:=s+' and  cash=''+trim(edit3.Text)+'';
         i:=i+1;
      end;

   low:=formatDateTime('mm'/'dd'/'yyyy',DateTimePicker1.Date);
   high:=formatDateTime('mm'/'dd'/'yyyy',DateTimePicker2.Date);
   s:=s+'where '+'da<=''+high+'' and da>=''+low+'';

  with query1 do
  begin
      close;
      query1.sql.Clear;
      query1.sql.Add(s);
   try
      query1.Open;
   except
      query1.execsql;
  end;
end;
end;

此帖子包含附件:

大小:25.1K

----------------------------------------------
命运是一只沦落在鸡窝里的鹰

作者：

yqsmail (yqs)	★☆☆☆☆	-
	盒子活跃会员

2004/3/13 10:08:08

1楼：

楼主的解决方案不太好吧,我想在定义S字符串是就可以加个WHERE语句,列出全部数据,然后在后面判断编辑框的值不为空就加入,不要另加判断了.如果看SQL语句有没有写出,做个断点看值,慢慢试肯定能出来.我晕!!!!
----------------------------------------------
-

作者：

endo (燕子帝国)	★☆☆☆☆	-
	盒子活跃会员

2004/3/13 10:37:34

2楼：

1楼的兄弟，搂主的方案是外面企业经常用的方案！

----------------------------------------------
『惠安人才网』 www.harcw.net

作者：

msm2008 (msm2008)	★☆☆☆☆	-
	盒子活跃会员

2004/3/13 15:12:09

3楼：

你确保你的SQL语句只有一个where吗?
不行的话你可以把整条语句SEND出来在SQL编辑器里调一下就知道了
----------------------------------------------
＊＊＊＊＊＊你的一句鼓励都可能是别人走向成功的最大动力，请拿出我们的真诚、智慧与大家分享吧＊＊＊＊＊＊

信息

登陆以后才能回复