Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Запрос к базе. [D6, IB6.x]


Xmen ©   (2006-03-09 14:57:00) 

Привет Мастера.
Помогите справится с такой ощибкой.
Project ipk.exe raised exception class EDatabaseError with message 'DBEdit1: Field 'Opisanie' not found'. Process stopped. Use Step or Run continue.
Проблема в том в этом форме даже нету DBEdit1 .
А код такой

procedure TOsPrForm.Button1Click(Sender: TObject);
var lines:string;
begin
lines:='';
 if raspol'' then if lines='' then lines:='raspol='''+raspol+'''' else lines:=lines+' and raspol='''+raspol+'''';
 if primet'' then if lines='' then lines:='primety='''+primet+'''' else lines:=lines+' and primety='''+primet+'''';
 
 if lines '' then
begin
with DMIPK.qrOsobPrim do
begin
DisableControls;
 if Active then Close;
 Screen.Cursor := crHourGlass;
 SQL.Clear;
 SQL.Add(' SELECT * FROM osn_dan');
 SQL.Add(' WHERE id in (SELECT main_id FROM osob_prim WHERE') ;
 SQL.Add(lines);
 SQL.Add(')') ;
 SQL.SaveToFile('sql.txt') ;
 try
   Open;
 except
   ShowMessage('Îøèáêà âûïîëíåíèÿ çàïðîñà');
   Screen.Cursor := crDefault;
   exit;
 end;
 EnableControls;
 Screen.Cursor := crDefault;
end;

end
else showmessage('Íåò äàííûõ äëÿ çàïðîñà');
end;

У меня некак не получается.
Смысл запроса в том есть два таблисы в одно люды, в другом их приметы. Я делаю из второго выбор по приметам и получаю первую таблицу.


Xmen   (2006-03-10 08:18:00) [1]

Спасибо нашел вот ощибка в самом коде
with DMIPK.qrOsobPrimdo
begin
DisableControls;
if Active then Close;
Screen.Cursor := crHourGlass;
SQL.Clear;
SQL.Add(' SELECT * FROM osn_dan');
SQL.Add(' WHERE id in (SELECT main_id FROM osob_prim WHERE') ;
SQL.Add(lines);
SQL.Add(')') ;
SQL.SaveToFile('sql.txt') ;
try
  Open;
except
  ShowMessage('Îøèáêà âûïîëíåíèÿ çàïðîñà');
  Screen.Cursor := crDefault;
  exit;
end;
EnableControls;
Screen.Cursor := crDefault;
end;
Я ощибся базой.


Sergey13   (2006-03-09 15:47:00) [2]

2[4] Xmen   (09.03.06 15:43)
>Где мне искать может подскажете
В своей форме/проекте. Лежит себе где нибудь под каким нибудь гридом и не отсвечивает. Поищи в инспекторе или дереве объектов - чудес то не бывает.


Xmen   (2006-03-09 15:43:00) [3]

Когда этот сиквел запрос выполняю в ИБ Эхперте то все нормально получается. В чем ошибка не могу понять. В других полях которые связан с этой формой тоже нет ДВЕдит1. Где мне искать может подскажете (прикрасно понемаю что вы не телепаты, но приходиться просит о помощи).


Виталий Панасенко   (2006-03-09 15:15:00) [4]

Может НА ЭТОЙ ФОРМЕ и нет, но ЗАТО ЕСТЬ НА ДРУГОЙ ?


Megabyte   (2006-03-09 15:06:00) [5]

Ага, я тоже так подумал.


Alexandr   (2006-03-09 15:02:00) [6]

ну если
DBEdit1: Field 'Opisanie' not found
и при этом DBEdit1 нет, тогда тебе не сюда.
Тебе к изгоняющим злых духов, однозначно. :)


Наверх

Титульная страница Поиск, карта сайта Написать письмо