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

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

Удаляет запись,но после выдает ошибку [D7, MS Access]


Страницы:   1 2

John_Doe ©   (2006-02-20 16:16:00) 

Пишу вот что в Memo:
DELETE FROM Sample1 WHERE Id=4

Вот процедура на нажатии кнопки:
procedure TForm1.ButtonClick(Sender: TObject);
begin
   with ADOQuery do
     begin
       Close;
       SQL.Text:=Memo1.Lines.Text;
       Open;
     end;
end;

---------------------------
Debugger Exception Notification
---------------------------
Project SELECT.exe raised exception class EOleException with message 'Current provider does not support returning multiple recordsets from a single execution'. Process stopped. Use Step or Run to continue.
---------------------------
OK   Help  
---------------------------

'Current provider does not support returning multiple recordsets from a single execution'
Смысл таков: “Данный вид драйвера не поддерживает возврат множества записей при одном выполнении”.

Честно сказать не особо пойму,где это возвращается несколько записей.
И потом запись-то он удаляет,но ошибку после удаления записи все равно выдает.
Непонятно.
Такого рода глюки у меня бывают и с другими инструкциями,когда работаю в SQL.
Может быть что данную версию SQL надо переустановить?
И как это сделать?

PS.Использую MS Access.


Sergey13   (2006-02-20 16:21:00) [21]

2John_Doe   (20.02.06 16:16)
>Честно сказать не особо пойму,где это возвращается несколько записей.
Вот и провайдер не понимает. 8-)
Open для Select, для остального ExecSQL (или как там в АДО).


Ega23   (2006-02-20 16:19:00) [22]


> Вот процедура на нажатии кнопки:
> procedure TForm1.ButtonClick(Sender: TObject);
> begin
>    with ADOQuery do
>      begin
>        Close;
>        SQL.Text:=Memo1.Lines.Text;
>        Open;
>      end;
> end;


Исправь на ExecSQL.


Страницы:   1 2

Наверх

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