Выборка из базы по неполным именам

[sergey113]

При помощи такого кода выбираю данные из базы access:

ADOTable1.First;
        for k:=1 to ADOTable1.RecordCount do
        begin
        if ADOTable1.FieldByName(pole).Value = edit2.Text  then
                                 Begin
                                  sz:=sz+1;
                                  Ap.Cells[sz,1].Value :=   ADOTable1.FieldByName('fio').Value;
                                  Ap.Cells[sz,2].Value :=   ADOTable1.FieldByName('OtdUpr').Value;
                                  Ap.Cells[sz,3].Value :=   ADOTable1.FieldByName('otdel').Value;
                                  Ap.Cells[sz,4].Value :=   ADOTable1.FieldByName('dolg').Value;
                                  Ap.Cells[sz,5].Value :=   ADOTable1.FieldByName('Knomber').Value;
                                  Ap.Cells[sz,6].Value :=   ADOTable1.FieldByName('data_wyd').Value;
                                  Ap.Cells[sz,7].Value :=   ADOTable1.FieldByName('data_sda').Value;
                                  Ap.Cells[sz,8].Value :=   ADOTable1.FieldByName('wydana').Value;
                                  Ap.Cells[sz,9].Value :=   ADOTable1.FieldByName('prim').Value;
                                  Application.ProcessMessages();
                                  end;
        ADOTable1.Next;
        end;

Если указываю полное значение ячейки то работает. При неполном значении естественно результата нет.
Есть какой-нибудь финт, чтобы при минимальном изменении кода заставить работать выборкку по неполным значениям ?
Как это делают в "нормальном" виде ?

[Serge_Bliznykov]

ужас... Зачем пытаться моделировать отборку на ADOTable,
когда давно уже придумали SQL !!!

Берите ADOQuery - заносите туда запрос (select * from Таблица where ЧтоТо Like ... )
и получите результат!


p.s. а вообще очень рекомендую ознакомится с основами SQL - это весьма интересно и полезно!

[sergey113]

да. Это будет мой следующий шаг. Пока по быстрому делаю так, что быстрее понимаю.
Т.е. без sql и Query не получится ?

[Serge_Bliznykov]

Т.е. без sql и Query не получится ?

да почему не получится, получится...

Только определитесь, что в Вашем случае означает: "выборкку по неполным значениям"

например, если в переменной pole - имя поля, которое хранит строковое значение (char, varchar и т.п.), а в edit2.Text находится текст, начало которого совпадает с требуемыми записями,
(например, pole - это фамилия.
в базе:
Андреев
Иванцов
Антонов
Иващенко
Ивлев
Анохин
Бариванов

и в
edit2.Text вы задали текст Ива и должны отобраться
Иванцов
Иващенко

(т.е. начало фамилии совпадает с заданным текстом, тогда напишите так:

 if Pos(edit2.Text, ADOTable1.FieldByName(pole).Value) =  1  then ...

исли при этом нужно, чтобы прописные/строчные буквы не различались:

 if Pos(AnsiUpperCase(edit2.Text), AnsiUpperCase(ADOTable1.FieldByName(pole).Value)) =  1  then ...

а если нужно, чтобы нашёл даже Бариванов
тогда:

 if Pos(AnsiUpperCase(edit2.Text), AnsiUpperCase(ADOTable1.FieldByName(pole).Value)) >0  then ...

как говорится - хотите извращений - извращайтесь на здоровье!!

[sergey113]

ОГРОМНОЕ СПАСИБО.
работает.