Запрос к базе.

← →
Xmen (2006-03-09 14:57) [0]

Привет Мастера.
Помогите справится с такой ощибкой.
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;

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

← →
Alexandr © (2006-03-09 15:02) [1]

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

← →
Megabyte © (2006-03-09 15:06) [2]

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

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

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

← →
Xmen (2006-03-09 15:43) [4]

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

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

← →
Xmen (2006-03-10 08:18) [6]

Спасибо нашел вот ощибка в самом коде
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;
Я ощибся базой.

Запрос к базе. Найти похожие ветки