поиск ни как не хочет работать

[Gooch]

помогите плиз...хочу сделать поиск в БД асес через поле эдит по вводимому символу в столбце ФИО. я начинающий в кодинге. пересмотрел кучу форумов и справок везде одно и тоже:

procedure Edit1OnChange(...);
var i:integer;
begin
if not updating then exit; {сделайте обновление где-нибудь еще - например при срабатывании таймера}
updating:= false;
Table1.FindNearest([Edit1.text]);
ListBox1.clear;
i:= 0;
while (i < 5) and (not (table1.eof)) do

begin
listbox.items.add(Table1.fields[0].asString);
inc(i);
table1.next;
end;
listbox1.itemindex:= 0;
end;
или:

with MainForm.PatientTable do
begin
{ начинаем поиск имени }
IndexName := 'Name';
FindNearest([SearchFor.Text]);
end



не могу запустить ни чего из ентого...как только уже не пробывал редоктировать...прошу подсказать как сделать. если что то из кода проги выложить надо то обращайтесь. если всю прогу надо то пишите в личку я на маил скину.

[Professor Hubert]

Делай через ADOQuery.
Формируешь простейший запрос и результаты выводишь куда тебе надо. DBGrid например.
Пример использования.

Var uslovie:string;
Uslovie:= '%'+edit1.text+'%';

With ADOQuery1 do begin
       Close;
       SQL.Clear;
       SQL.ADD('SELECT * FROM maintable ');
       SQL.ADD('WHERE name LIKE '+quotedstr(Uslovie)')
       Open;
end;

Конечно если у тебя несколько таблиц, надо их связать.

Есть другой вариант, попроще через filter. Используешь компонент ADOTable.

procedure TForm1.Button1Click(Sender: TObject);
begin
     if Length(Edit1.Text)>0 then
         ADOTable1.Filtered:=true
     else
         ADOTable1.Filtered:=false;
         
     ADOTable1.Filter:='name  like '+'%'+Edit1.Text+'%';

end;

[mihali4]

Если хочется через ADOTable сделать, посмотрите хэлп по Table.Locate - там есть готовые примеры использования.

[Gooch]

поиск сделал спасиб...а вот ещё такой вопрос...как сделать так чтоб скомпелированному файлу не нано было постоянно указывать где БД расположенна?

[dron-s]

как сделать так чтоб скомпелированному файлу не нано было постоянно указывать где БД расположенна

ExtractFilePath(Application.ExeName)

[Gooch]

Код:
view plaincopy to clipboardprint?

ExtractFilePath(Application.ExeName )

хм...а можно поподробнее с этим кодом...и я посетил указанный форум...там написано что если через бде делать то работать не будет...а у меня через адо сделано...

[Pitbull]

Либо как выше..либо...:

Table1.TableName:=GetCurrentDir+'\data_cb.dbf' ;
Table1.open;