在Access中null和空字符串是不同的,若处理不好会带来不少麻烦,特别是在混合查询中。
解决的简单方法如下:
var
SQLStr:string;
begin
//
SQLStr := 'select * from ordertb where 1>0';
if Trim(Edit1.Text)<>'' then
SQLStr := SQLStr +' and serialid like :a';
if Trim(Edit2.Text)<>'' then
SQLStr := SQLStr +' and pname like :b';
with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add(SQLStr);
if Trim(Edit1.Text)<>'' then
Parameters.ParamByName('a').Value := '%'+Trim(Edit1.Text)+'%';
if Trim(Edit2.Text)<>''then
Parameters.ParamByName('b').Value := '%'+Trim(Edit2.Text)+'%';
Open;
end;
end;
或者如下:
begin
with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('select * from ordertb where 1>0');
if Trim(Edit1.Text)<>'' then
SQL.Add(' and serialid like ''%'+Trim(Edit1.Text)+'%''');
if Trim(Edit2.Text)<>''then
SQL.Add(' and pname like ''%'+Trim(Edit2.Text)+'%''');
Open;
end;
end;
总结一句话,将条件为空的字段从查询语句中过滤掉。