PDA

Показать полную графическую версию : Процедура поиска в БД: Delphi 7 + Microsoft Office Access


Tomplier
07-03-2010, 10:21
Ситуация такая.
Есть БД (См. файл BD.rar)

А вот на всякий случай на Депозит выложил
http://depositfiles.com/ru/files/oe1vp7jm2

Помимо всего прочего, хочу реализовать простенькую систему поиска.
Конкретно результат д/б примерно таким:
После обработка запроса в Гриде отображаются только те записи, которые соответствую запросу (например, 1).


Вот код (но вы все же, пожалуйста посмотрите саму программу) кнопки поиска:
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select * From sinema where' +Edit1.Text);
ADOQuery1.Open;
DataSource1.DataSet:=ADOQuery1;
end;

Вроде бы все компилируется.
Да только после введения запроса и нажатия кнопки происходит такая фигня:
http://photo.sibnet.ru/upload/imgbig/126794622711.jpg

Что не так, не пойму?

М/б дело в запросе, в синтаксисе?
м/б где-то на компоненте я какой параметр не указал.

Пожалуйста, ребята, помогите.

Delirium
09-03-2010, 01:22
'Select * From sinema where' +Edit1.Text
Скорее всего дело в этом. После "where" нет пробела и текст Edit1.Text склеивается с Where. В итоге получаете
Select * From sinema whereFIELD=1.




© OSzone.net 2001-2012