Запрос с параметром Like

[uraura]

Использую delphi7 + ado + acess 2010
запрос из программы:

qry1.SQL.Text:='SELECT * FROM kolesa WHERE nomer = 1234'

работает и возвращает данные из базы, а запрос ниже возвращает null

qry1.SQL.Text:='SELECT * FROM kolesa WHERE nomer Like "123*"'

в самом access запрос ниже работает

SELECT * FROM kolesa WHERE nomer Like "123*"

подскажите что не так?

[uraura]

вот полный код процедуры

procedure TForm1.btn2Click(Sender: TObject);
var
  i, j, k: Integer;
  st:string;
begin   
   k:=1;
   if edt2.Text<>'' then
   begin
     for j:=1 to edt2.GetTextLen do
       begin
        st:=edt2.Text;
        st[j]:='*';
        qry1.Close;
        qry1.SQL.Text:='SELECT * FROM kolesa WHERE nomer Like "'+st+'"';
        qry1.open;
        if qry1.Fields.Fields[0].value<>null then //здесь проверка не проходит
         begin
           while not qry1.Eof do           
             begin
               for i:=0 to 4 do
                 begin
                   grd1.Cells[i,k]:=qry1.Fields.Fields[i].AsString;
                 end;
               k:=k+1;
               qry1.Next;
             end;
         end;
       end;
   end;
end;

[evg_m]

     for j:=1 to edt2.GetTextLen do
st:=edt2.Text;
j:=edt2.GetTextLen;
st[j]:='*';
qr1.Close;
qr1.SQL.Text:=format('select * from kolesa where nomer like "%s" ', [st]);
qr1.Open;
if qr1.Fields.fields[0].value<>null then 
if not qr1.Fields.Fields.Fiels[0].isnull then begin 
if not qr1.isEmpty then begin 
while not qr1.eof do begin
...
end;
end;
end;

и что теперь будет показывать ?...

[uraura]

Попробовал, никакой разницы.
Ставлю break на проверку наличия данных в query после query.open,

if qry1.Fields.Fields[0].value<>null then

Сравнил query.SQL.Text одинаковая строка что с моим кодом что с предложенным.
Результат соответственно одинаков.

[uraura]

qry1.SQL.Text:='SELECT * FROM kolesa WHERE nomer Like "123_"'

решение: использование символа "_" вместо "*", на просторах нашел что "*" в запросе означает любую цифру, поэтому пытался использовать. "_" означает любой символ, на всякий ограничил ввод в эдит только цифры.

[xxbesoxx]

Сообщение от uraura

вот полный код

цикл for для чего ?