50分!!! 请大家告诉,这段语句错在哪里?
按条件的查询:


我想按条件查询数据库里的信息,其中字段CODE 里保存的七位数字的阿拉伯数字.

比如 1100718 /1100788 /1209810 /1351234 ,

我想达到的要求是只输入前三位的数字比如 110 即可查询出相应的数据 1100718 /1100788


以下是原语句,任何问题都没有,但不是我想要的模糊查询...........


----------------------------------------------------;


procedure TSarch.BitBtn7Click(Sender: TObject);
var ss:string;
var mStr1:string;
var low1,high1:string;
begin
mStr1 := 'select * from information where ';


ss := ' ';

if Rzcombobox6.Text <> ' ' then
ss:=ss+ 'model= ' ' '+Rzcombobox6.Text+ ' ' ' and ';


// 部件代码查询

if Edit7.Text <> ' ' then
ss:=ss+ 'code = ' ' '+Edit7.Text+ ' ' ' and ';


if Rzcombobox7.Text <> ' ' then
ss:=ss+ 'shift= ' ' '+Rzcombobox7.Text+ ' ' ' and ';

if Rzcombobox8.Text <> ' ' then
ss:=ss+ 'line= ' ' '+Rzcombobox8.Text+ ' ' ' and ';

if Rzcombobox9.Text <> ' ' then
ss:=ss+ 'grade= ' ' '+Rzcombobox9.Text+ ' ' ' and ';


low1:=formatdatetime( 'yyyy-mm-dd ',DateTimePicker4.Date);
high1:=formatdatetime( 'yyyy-mm-dd ',DateTimePicker5.Date);
ss:=mStr1 + ss + 'workdate <=# '+high1+ '# and workdate> =# '+low1+ '# ' + 'order by id desc ' ;


ADOQuery4.Connection:=ADOConnection1;
ADOQuery4.Close;
ADOQuery4.SQL.Clear;
ADOQuery4.SQL.Add(ss);
ADOQuery4.Open;

end;


end.

----------------------------


但是我改成下面这样,为什么运行不了? 错在哪里????请指点.....谢谢!!!!!!


...........................................................


// 部件代码查询

if Edit7.Text <> ' ' then
ss:=ss+ 'code like= ' ' '+Edit7.Text+ ' ' ' and ';

..............................................................




[解决办法]
if Edit7.Text <> ' ' then
ss := ss + 'code like ' '% ' + Edit7.Text + '% ' ' and ';

------解决方案--------------------

模糊查询
SQL:
if Edit7.Text <> ' ' then
ss := ss + 'code like ' '% ' + Edit7.Text + '% ' ' and ';
Access:
if Edit7.Text <> ' ' then
ss := ss + 'code like ' '* ' + Edit7.Text + '* ' ' and ';
[解决办法]
if Edit7.Text <> ' ' then
ss := ss + 'code like ' ' ' + Edit7.Text + '% ' ' and ';