[delphi] ADOQuery Проблема

[sPan4eZ]

У меня следующая ошибка почему после добавление в таблицу записи выдает ошибку после нажатие открытие ее

Вот коды:

Кнопка Добавить:

begin
ADOQuery1.Active:=False;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Insert Into Table1 (ИмяТовара,Цена,Склад)');
ADOQuery1.SQL.Add('Values ("'+Edit1.Text+'",'+Edit2.Text+','+Edit3.text+')');
ADOQuery1.ExecSQL;
end;

Кнопка Старт:

begin
ADOQuery1.Active:=True;
end;

После того как добавив запись и по нажатие на кнопку старт выдает ошибку

Project Project1.exe raised exception class EOleException with message 'Текущий проводник не поддерживает возврат нескольких наборов записей в результате одной операции'. Process stopped. Use Step or Run to continue.

[Yurk@]

1. Потому что ADOQuery1.ExecSQL; уже открывает твой набор, а ты пытаешься его открыть повторно.
2. Для функции INSERT (а у тебя именно она) вызывается только ExecSQL и никак иначе.
Тебе нужно так:
добавить:

begin
ADOQuery1.Close;
ADOQuery1.SQL.Text:='Insert Into Table1 (ИмяТовара,Цена,Склад) Values ("'+Edit1.Text+'",'+Edit2.Text+','+Edit3.text+')';
ADOQuery1.ExecSQL;
end;

старт:

begin
ADOQuery1.Close;
ADOQuery1.SQL.Text:='SELECT ИмяТовара, Цена,Склад FROM Table1';
ADOQuery1.Open;
end;

[sPan4eZ]

Ура спасибо большое!!!

[sPan4eZ]

Теперь трабла с Update:

begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Update From Table1');
ADOQuery1.SQL.Add('Set Имя Товара='+'"'+Edit6.Text+'"'+
                        ', Цена='+Edit5.Text+
                        ', Склад='+Edit7.Text);
ADOQuery1.SQL.Add('Where Код ='+ Edit4.Text);
ADOQuery1.ExecSQL;
end;

Ему почему то не нравится вот эта строчка ADOQuery1.ExecSQL; Процедура останавливается на ней и выдает ошибку

Ошибка синтаксиса Update

Какая именно ошибка?

Перепробовал по разному не чего не выходит(

[Serge_Bliznykov]

'Set Имя Товара=

а что, поле Имя товара прямо так с пробелом и есть?
вроде выше оно было без пробела..

[sPan4eZ]

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

а что, поле Имя товара прямо так с пробелом и есть?
вроде выше оно было без пробела..

Оп не уследил Спасибо

[soleil@mmc]

ADOQuery1.SQL.Add('Update Table1');

[sPan4eZ]

Сообщение от soleil@mmc

ADOQuery1.SQL.Add('Update Table1');

Угу спасибо это я уже заметил ))))

Народ как сделать чтобы из DBLookupComboBox1 после выбора строки добавлялась в другую таблицу как запись??

[Serge_Bliznykov]

вообще, мне кажется, что Вы неправильно что-то замыслили...

впрочем, хозяин — барин...
код добавления записи есть? Повесить его на нужное событие компонента DBLookupComboBox1 (например, на OnChange).
p.s. только неверно это. вот смотрите, выбрали что-то из комбобокса, запись добавилась... тут же, не выходя из комбобокса открыли список и выбрали другое значение, запись опять добавилась...

[sPan4eZ]

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

вообще, мне кажется, что Вы неправильно что-то замыслили...

впрочем, хозяин — барин...
код добавления записи есть? Повесить его на нужное событие компонента DBLookupComboBox1 (например, на OnChange).
p.s. только неверно это. вот смотрите, выбрали что-то из комбобокса, запись добавилась... тут же, не выходя из комбобокса открыли список и выбрали другое значение, запись опять добавилась...

Ты наверно не так понел меня короче объясню на примере

Есть 2 таблицы Table1 и Table2 они в Accesse связаны "один ко многим"

Table1 идет связь ADOConnection1 ADOQuery1 DataSource1 и все это выводится в BDGrid

Table2 идет связь ADOConnection1 ADOQuery2 DataSource2 и выводится только одно поле например НормерСкалада в DBLookupComboBox1

Я хочу сделать добавление с помощью выбора название из DBLookupComboBox1 чтобы это название добавилась в таблицу которая выводится BDGrid

Но у меня не получается вот код как я делаю:

begin
Adoquery1.Active:=False;
Adoquery1.Close;
Adoquery1.SQL.Clear;
Adoquery1.SQL.Add('insert into Состав');
Adoquery1.SQL.Add('(Имя,Ник,Класс,констпати)');
Adoquery1.SQL.Add('Values("'+Edit1.Text+'","'+Edit2.Text+'","'+DBLookupComboBox1.Text+'","'+DBLookupComboBox2.Text+'")');
Adoquery1.ExecSQL;
end;

Пишит ошибку "Неправильный синтаксис Insert into" и процедура останавливается на:

Adoquery1.ExecSQL;