Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.01.23;
Скачать: CL | DM;

Вниз

Использование LIKE при формировании SQL запроса   Найти похожие ветки 

 
RRA   (2004-12-17 12:26) [0]

Как правильно задать условие частичного совпадения значения с помощью LIKE при формировании SQL запроса? Код, который ниже, отрабатывает правильно, когда данные поля и введенного значения абсолютно идентичны, а если ввести первые несколько символов, то ничего не находит. При чем точно известно, что эти первые символы введенного значения точно соответствуют первым символам в поле таблицы. (Delphi6/dBase тип поля - Character, поле ввода - TEdit)
В чем может быть казус?
Процедура:
procedure TmForm.Action_StartSearchExecute(Sender: TObject);
 begin
   mForm.Table1.Active := True;
   case MForm.RadioGroup_TS1.ItemIndex of
     0 :
        ............
     1 :
        ............
     2 :
        begin
          with mForm.Query1 do
            begin
              Query1.Close;
              Query1.SQL.Clear;
              Query1.SQL.Add("Select *");
              Query1.SQL.Add("FROM "DB_Drawing.dbf"");
              Query1.SQL.Add("WHERE NameObj LIKE "" + mForm.Edit_NameObj.Text +"" ");
              Open;
            end;
        end;
     3 :
        ............
     4 :
        ............
   end; // case

   if mForm.Query1.RecordCount = 0
      then MessageDlg("Ничего не найдено!", MtWarning, [mbOk],0)
      else
        begin
          mForm.TabSheet_Result.TabVisible := True;
          mForm.SM_Search_Result.Enabled := True;
          mform.PageControl.ActivePage := mForm.TabSheet_Result;
        end;
 end; //procedure


 
ЮЮ ©   (2004-12-17 12:30) [1]

LIKE [* | %] <SomeText> [* | %]
* или % - зависит от движка


 
Александр Иванов ©   (2004-12-17 12:32) [2]

Еще ? и кроме того регистр.


 
ЮЮ ©   (2004-12-17 12:32) [3]

Например, LIKE "коро%"


 
Johnmen ©   (2004-12-17 12:34) [4]

1. LocalSQL.hlp
2. В общем случае неверно
  >if mForm.Query1.RecordCount = 0  
  Надо if mForm.Query1.IsEmpty then


 
RRA   (2004-12-17 12:36) [5]

Понял, спасибо!



Страницы: 1 вся ветка

Текущий архив: 2005.01.23;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.033 c
1-1105464482
Magic_STI
2005-01-11 20:28
2005.01.23
Вывод ресалтов поиска


1-1105264235
гость
2005-01-09 12:50
2005.01.23
электрические схемы


1-1105502786
TankMan
2005-01-12 07:06
2005.01.23
Писал кто-нибудь видеопроигрыватель?


1-1105532126
Jeka
2005-01-12 15:15
2005.01.23
Программно подсветить строку.


1-1105345131
HF-Trade
2005-01-10 11:18
2005.01.23
У TMainMenu можно изменить высоту?