Обновление DBGrid + ADOQuery

[Demonk]

Пытаюсь вывести данные из таблицы при помощи DBGrid и ADOQuery

когда в коде прописываю запрос: select [document No_], description, quantity from [ok$sales line] where [document No_]= '07-04074'

в ADOQuery, данные нормально выводятся в DBGrid, а если во время работы проги пытаюсь изменить запрос выводится сообщение:

Project Project1.exe raised exception class EOleException with message 'Invalid column name '07-04074". Process stopped. Use Step
or Run to continue.

привожу кусок кода конструирующего запрос :
no_:=InputBox('Поиск документа','Введите номер документа и нажмите OK.', '');
Zapros:='Select [document no_] from [ok$sales line] where [document no_]= "' + no_ + '"';

перелопатил инет и Help не могу понять где ошибка может тут кто подскажет?

[mihali4]

В первую очередь избавьтесь от пробелов в именах полей и проблемы сразу резко пойдут на убыль.

[masterdela]

Может попробуешь через переменную:

select [document No_], description, quantity from [ok$sales line] where [document No_]= :number

Далее выполнение запроса:

no_:=InputBox('Поиск документа','Введите номер документа и нажмите OK.', '');

AdoQuery1.Active := false;
AdoQuery1.Parametrs.ParamByName('number').Value := no_;
AdoQuery1.Active := true;

[Demonk]

Сообщение от mihali4

В первую очередь избавьтесь от пробелов в именах полей и проблемы сразу резко пойдут на убыль.

от пробелов избавиться не могу база не моя, я к ней только подключаюсь

[Demonk]

Сообщение от masterdela

Может попробуешь через переменную:

select [document No_], description, quantity from [ok$sales line] where [document No_]= :number

[/CODE]

как и где его описать потому что после того как его использовал вот что выводит:

Project Project1.exe raised exception class EDatabaseError with message 'ADOQuery1: Parameter 'number' not found'. Process
stopped. Use Step or Run to continue.

[masterdela]

Demonk, просто замени тот запрос что у тебя есть на тот что я писал с переменной, в свойствe SQL компонента AdoQuery1! В свойсте AdoQuery1 Parameters желательно задать тип этой переменной и значение по умолчанию...
Согласен с mihali4, не понимаю Demonk, как у тебя этот запрос работает! Названия таблиц с пробелами... Может я чего не знаю, надо попробывать как-нибудь ...

[_Engine_]

Запрос может и работать, если его запускать под Access, но под дельфой или любой другой средой желательно использовать параметрические запросы, особенно если они типовые и неоднократно повторяются при запросах к БД.

[Demonk]

Сообщение от masterdela

Demonk, просто замени тот запрос что у тебя есть на тот что я писал с переменной, в свойствe SQL компонента AdoQuery1! В свойсте AdoQuery1 Parameters желательно задать тип этой переменной и значение по умолчанию...
Согласен с mihali4, не понимаю Demonk, как у тебя этот запрос работает! Названия таблиц с пробелами... Может я чего не знаю, надо попробывать как-нибудь ...

хорошо попробую заменить.

Нормально в sql работают запросы такие, и в delphi, и в access, просто нужно в квадратные скобки брать названия с пробелами, вот например этот запрос:

select [document No_], description, quantity from [ok$sales line] where [document No_]= '07-04074'

без проблем работает, как раз его и хочу заменить во время работы программы.

[Demonk]

Сообщение от masterdela

Demonk, просто замени тот запрос что у тебя есть на тот что я писал с переменной, в свойствe SQL компонента AdoQuery1! В свойсте AdoQuery1 Parameters желательно задать тип этой переменной и значение по умолчанию...

заменил, не хочет работать , и я для проверки вывел на форму, поле мемо в нем вот что выводит :

Select [document no_] from [ok$sales line] where [document no_]= :number

а после ввода данных выводит :

БД нет записей, удовлетворяющих критерию запроса.

получается запрос не до конца заменяется , глянь если не трудно код, ниже привожу код обработки нажатия кнопки:

begin
if adoquery2.Active= false then
begin
adoquery2.Active:= true
end;

Zapros:='Select [document no_] from [ok$sales line] where [document no_]= :number';

no_:=InputBox('Поиск документа','Введите номер документа и нажмите OK.', '');

AdoQuery1.Active := false;
AdoQuery1.Parameters.ParamByName('n umber').Value:= no_;
AdoQuery1.Active := true;

if no_ <> '' then // пользователь ввел данные
begin
with form1.ADOQuery1 do
begin
Close; // закрыть файл-результат выполнения предыдущего запроса
SQL.Clear; // удалить текст предыдущего запроса
SQL.Add(Zapros);
memo1.Lines.add (Zapros);
Open; // активизируем выполнение запроса
end;
if form1.ADOQuery1.RecordCount <> 0 then
begin
form1.DataSource2.DataSet:=form1.AD OQuery1; // отобразить рез-т выполнения запроса
end else
begin
ShowMessage('В БД нет записей, удовлетворяющих критерию запроса.');
form1.DataSource2.DataSet:=form1.AD OTable1;
end;
end;
end;

[serqei35]

Привет! Если нужна книга по созданию баз данных в Delphi, то бесплатно скачать её можно здесь : http://golden-books.narod.ru/books/bd1.html