Вопрос по ADOQuery...

← →
grusty (2003-08-27 12:10) [0]

На форме 5 компонентов: ADOQuery, ADOScript, DataSource, Button и DBGrid, причем:
ADOQuery.SQL:="SELECT * from Spisok";
ADOScript.SQL:="DELETE from Spisok";
DataSource связан с ADOQuery и при открытии формы все записи отображаются в DBGrid.
Мне необходимо при нажатии на Button удалить все записи из базы. Выполняю следующую процедуру:
procedure TForm.ButtonClick(Sender: TObject); begin SQLScript.ExecStatement(1); SQLScript.ExecSQL; ADOQuery.Close; ADOQuery.Open; end;
По логике все должно быть замечательно, однако при первом нажатии на Button записи продолжают отображаться. При последующем нажатии на Button - все нормально. Такое чувство, что необходима какая-то пауза. Может я что-то неправильно делаю? ПОМОГИТЕ!

← →
Fiend (2003-08-27 12:26) [1]

так может надо закрыть и открыть ADOQuery после віполнения удаления? ;)

← →
grusty (2003-08-27 12:34) [2]

--> Fiend
А я что делаю... См. процедуру...

← →
Vlad (2003-08-27 12:36) [3]

>Fiend © (27.08.03 12:26) [1]
Query итак закрывается-открывается после удаления.
>grusty (27.08.03 12:10)
А что такое ADOScript, если не секрет ?
И еще. Кажется где-то Commit надо ставить... :)

← →
ZS (2003-08-27 12:41) [4]

Попробуй ADOQuery.Refresh

← →
grusty (2003-08-27 12:49) [5]

--> Vlad
vg2ADOSQLScript (vgLib);

--> ZS
Возникает ошибка...

← →
Fiend (2003-08-27 12:50) [6]

То grusty
сорри, как фсегда недочитал до конца.
Действительно хто такой этот ADOScript?
Да и еще можно оттрассировать запросы к серверу, дабы убедиться что тот самый скрипт выполняется.

← →
grusty (2003-08-27 12:54) [7]

А вот так работает:
procedure TForm.ButtonClick(Sender: TObject); begin with ADOQuery do begin Close; SQL:="DELETE from Spisok"; ExecSQL; SQL:="SELECT * from Spisok"; Open; end; end;
Идиотизм какой-то...

← →
Fiend (2003-08-27 12:58) [8]

То grusty:
никакого идиотизма!
Ты просто доверился сторонней библиотеке vgLib, а теперь пожинаешь плоды.

← →
grusty (2003-08-27 13:02) [9]

-->Fiend
Ничего подобного. Если вместо SQLScript использовать второй ADOQuery, то результат тот же...

← →
Vlad (2003-08-27 13:10) [10]

А если так ?

procedure TForm.ButtonClick(Sender: TObject);
begin
ADOConnection.BeginTrans;
SQLScript.ExecStatement(1);
SQLScript.ExecSQL;
ADOConnection.CommitTrans;
ADOQuery.Close;
ADOQuery.Open;
end;

← →
grusty (2003-08-27 13:43) [11]

Абсолютно идентичный результат. Никакой разницы.
Вот если после SQLScript.ExecSQL поставить паузу около 5 сек., тогда все нормально. Что это за задержка?
Еще пол дня, и я перейду на BDE...

← →
SiJack (2003-08-27 13:54) [12]

Взято из работающей программы
ADODataSet.Close;
ADOExport.CommandText:="Delete * from TSTip";
ADOExport.Execute;
ADODataSet.Open;

Даже глазом не успеешь моргнуть :)

← →
SiJack (2003-08-27 14:01) [13]

ADOExport енто ADOCommand

← →
grusty (2003-08-27 14:23) [14]

Тот же результат, только компоненты разные...
Почему то именно запрос на удаление всех записей выполняется не менее чем 5 сек.

← →
SiJack (2003-08-27 14:25) [15]

← →
grusty (2003-08-27 14:49) [16]

-->SiJack
Я сейчас сделал все, как у тебя. В базе 1 запись.
Ну хоть убей, но не менее чем за 5 сек. происходит удаление. Могу текст своей проги выслать. Вот пример №7 работает без проблем (см. выше).

← →
Vlad (2003-08-27 15:27) [17]

Сдается мне, тут все-таки какая-то путаница с транзакциями...
То бишь судя по характеру проблемы, каждый Query делает запрос в отдельной транзакции, и первый - не успевает закончить ее, а второй уже делает SELECT

← →
grusty (2003-08-27 19:29) [18]

Ну наконец-то, разобрался...
Оказывается нужно было на форму добавить ADOConnection...
Спасибо всем, в частности -->Vlad!

Вопрос по ADOQuery... Найти похожие ветки