Показано с 1 по 2 из 2
Комбинированный просмотр
-
13.05.2011, 10:39 #1
- Регистрация
- 04.03.2010
- Сообщений
- 8
- Сказал(а) спасибо
- 0
- Поблагодарили 0 раз(а) в 0 сообщениях
Ошибка при втором проходе
Приложение на Delphi 6.
Таблица NewDbf типа TwwTable динамически создается и заполняется. Без проблем.
Однако при втором проходе на wwQuery1.ExecSQL вылетает ошибка "Table is busy". Почему?
Код:SavedMrsh := SaveDialog2.FileName; If NewDbf <> nil then begin if NewDbf.Active then begin NewDbf.Close; end; end; wwQuery1.Close; wwQuery1.SQL.Clear; wwQuery1.SQL.Text := 'Drop TABLE "' + SavedMrsh + '"'; wwQuery1.ExecSQL; // Здесь ошибка при втором прогоне NewDbf := TwwTable.Create(Self); wwQuery1.SQL.Clear; wwQuery1.SQL.Text := ' Create Table "' + SavedMrsh + '"' + ' (NOM Numeric(6),' + ' SPISOK CHAR(61),' + ' RAION CHAR(37),' + ' LON NUMERIC(10),' + ' LONHEX CHAR(8),' + ' LAT NUMERIC(10),' + ' LATHEX CHAR(8),' + ' NOMER CHAR(6),' + ' KORPUS CHAR(6))'; wwQuery1.ExecSQL;
-
13.05.2011, 17:03 #2
- Регистрация
- 12.03.2011
- Сообщений
- 9
- Сказал(а) спасибо
- 0
- Поблагодарили 1 раз в 1 сообщении
Может не хватет чего то типа wwQuery1.Active:=False или wwQuery1.Active:=True...
Если при втором проходе таблица занята, надо ее "отпустить". wwQuery1.FreeПоследний раз редактировалось WiseSev; 13.05.2011 в 17:27.
Похожие темы
-
Ошибка при установке винды...
от Mirvays в разделе Windows XPОтветов: 3Последнее сообщение: 07.09.2009, 15:59
Социальные закладки