SQL语句中间部分有‘#$D#$A’,所以数据集返回是空，怎么去掉呢？

Question

我想通过RadioGroup1来切换‘在院’和‘出院’，DbGrid1连接Dm.ADOQuery_BedInfo, 我想通过在原有的SQL语句后添加限制条件：
‘ and (OutDay is null)’或‘ and (OutDay is not null)’来达到效果，
但结果在语句中间部分有‘#$D#$A’,所以数据集返回是空，怎么去掉呢？
源码如下：procedure TFrm_ZhuYuanBu.RadioGroup1Click(Sender: TObject);
var
  s: string;
begin
    Case RadioGroup1.ItemIndex of
      0:   //在院
        begin
          Dm.ADOQuery_BedInfo.Close;
          s := Dm.ADOQuery_BedInfo.SQL.Text;
          Dm.ADOQuery_BedInfo.SQL.Text := Dm.ADOQuery_BedInfo.SQL.Text   + ' and (OutDay is null) ';
          Dm.ADOQuery_BedInfo.Prepared;
          Dm.ADOQuery_BedInfo.ExecSQL;
          Dm.ADOQuery_BedInfo.Open;
          Dm.ADOQuery_BedInfo.SQL.Text := s;
        end;
      1:   //出院
        begin
          Dm.ADOQuery_BedInfo.Close;
          s := Dm.ADOQuery_BedInfo.SQL.Text;
          Dm.ADOQuery_BedInfo.SQL.Text := Dm.ADOQuery_BedInfo.SQL.Text   + ' and (OutDay is not null) ';
          Dm.ADOQuery_BedInfo.Prepared;
          Dm.ADOQuery_BedInfo.ExecSQL;
          Dm.ADOQuery_BedInfo.Open;
          Dm.ADOQuery_BedInfo.SQL.Text := s;
        end;
    end;
end;

Answer 1

这个‘#$D#$A’是什么？把SQL语句贴出来看看呢？

Answer 2

‘#$D#$A’事实上就是#13#10，这就是换行符，根本就不影响SQL语句的执行！所以你得到的记录集为空，应该和这个是没有关系的！还是重点考虑你的SQL语句的问题吧！

Answer 3

Dm.ADOQuery_BedInfo.SQL.Text错误了，累加了很多条件
你可以设置断点看看将S设置为全局变量，并且在formshow的时候赋值，就是不带任何其他where查询条件的sql，形如：select * from table where 1=1 procedure TFrm_ZhuYuanBu.RadioGroup1Click(Sender: TObject);
begin
    Case RadioGroup1.ItemIndex of
      0:   //在院
        begin
          Dm.ADOQuery_BedInfo.Close;
          Dm.ADOQuery_BedInfo.SQL.Text := S+ ' and (OutDay is null) ';
          Dm.ADOQuery_BedInfo.Open; 
        end;
      1:   //出院
        begin
          Dm.ADOQuery_BedInfo.Close;
          s := Dm.ADOQuery_BedInfo.SQL.Text;
          Dm.ADOQuery_BedInfo.SQL.Text := S+ ' and (OutDay is not null) ';
          Dm.ADOQuery_BedInfo.Open; 
        end;
    end;
end;

Answer 4

agree with soaringsouth(栈桥捉鳖)
在使用adoquery.sql.add時請請先用adoquery.sql.clear清空sql語句;
你可以再用showmessage(adoquery1.sql.text)來看一下sql語句有沒有錯錯在哪裡.

Answer 5

谢谢大家！原因是我在后面加了一句：
 Dm.ADOQuery_BedInfo.SQL.Text := s;去掉就可以了，但我之所以要引入‘s’,是起一个临时变量的作用，因为我想通过在原有的SQL语句后添加限制条件，故我要保存原有的SQL语句，并且复原它，怎么办？

Answer 6

如果你只是SELECT那就不要用“Dm.ADOQuery_BedInfo.ExecSQL;”只要用“Dm.ADOQuery_BedInfo.Open;”就好了

Answer 7

如果要保存原有的SQL语句，并且复原它，那还是在当前单元private中建立变量，这样可以在整个单元中使用了，然后在其它用到这个ADOQUERY的时候再复原SQL语句