24.11.2008, 19:29
|
|
Новичок
Регистрация: 09.11.2008
Сообщений: 15
Провел на форуме:
59870
Репутация:
16
|
|
Приветствую всех. Суть ситуации такая: пишу на Delphi7 прогу, которая будет обращаться к БД. Необходимо написать SQL запрос, который по введенным полям (Фамилия, Имя, Отчество) ИЛИ по одному введенному полю будет выполнять поиск и выводить полученные данные на отдельную форму.
У меня получается примерно следующее:
Код:
fam:=edit1.Text;
imja:=edit2.Text;
otch:=edit3.Text;
with form2.query1 do begin //начало выполнения запроса
close;//Закрыть файл результат выполлнения предыдущего запроса
sql.Clear; //очистить поля предыдущего запроса
//записываем новый запрос в свойство SQL
sql.Add('select Фамилия,Имя,Отчество');
Sql.Add('form "Telef_Kniga.DB"');
SQL.Add('ORDER BY fam,Imja,Otch');
open; //старт выполнения запроса
if Query1.RecordCount <> 0 then
DataSource1.DataSet:=Query1 // отобразить рез-т выполнения запроса
else begin
ShowMessage('В БД нет записей, удовлетворяющих критерию запроса.');
DataSource1.DataSet:=Table1;
end;
end; //конец выполнения запроса
Но в результате выполнения вылетает дли-и-и-и-иная ошибка. Признаться честно в чем в чем, а в SQL`е я вообще нема, поэтому буду очень благодарен если будут присутствовать, желательно подробные, комментарии |
|
|