Как добавлять данные в таблицу выведенную из ACCESS в DBGrid (Delphi ADO)

[Ce4kok]

В общем я кое-что накидал, но у меня не работает поиск по базе Access'a и вывод в DBGrid. Я вроде норм всё сделал (это мне так кажется =) ). Кому не лень посмотрите исходник и попратве если, что я так начинал делать поиск только по Названию (BOOKNAME)

Ссылка на исходник (1.3 мб)
http://ifolder.ru/10233535

[Ce4kok]

Я вот пробовал поэксперементировать с DBNavigator. Его кнопки не активны. Помогите разобраться новичку, что да как там работает.

[plato]

что так сложно, тут бы и показал код

[plato]

А ты в навигаторе DataSource указал?

[Ce4kok]

Ура... Я моя деревянная голова поняла что нужно сделать и всё получилось =) всё вроде работает.

Остался один вопрос:

У меня никак не работает поиск!!!

Посмотрите исходник кому не трудно

[plato]

купишь детям шоколадки

[Ce4kok]

=) Я тут увидел новость, что есть DBNavigator с кнопкой поиска =). Только, что-то в гугле не могу нигде найти

[maladoy]

брось на форму edit
поставь радиогруппу
1 радиокнопка автор
2 радиокнопка наименование книги

procedure editchange(sender:toobject);
var s:string;
begin
 adotable1.locate (s,edit.text,[LocaseInsensive,Lopartialkey]) ;
end;

где s:='имя поля' в котором ищешь!!!!!

[Ce4kok]

procedure TForm4.RzButton1Click(Sender: TObject);
begin
with ADOQuery1 do begin
Close; //закрыть предыдущий запрос
SQL.Clear; //очистить предыдущий запрос
SQL.Add('SELECT *'); //отображение всех полей таблицы при совпадении
SQL.Add('FROM tblMain'); //в какой БД искать
SQL.Add('WHERE');
SQL.Add('( BookName="'+RzEdit1.Text+'")'); // параметр поиска для поля Раздел
SQL.Add('Order By BookName'); //искато по Разделу
open; //приступить к поиску
end;
DataSource1.DataSet:=ADOQuery1
end;

Что здесь неправильно в поиске?

[Ce4kok]

Ок, Maladoy. Попробую твоим способом.