Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Базы данных
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 07.06.2011, 14:26
Sleipnir Sleipnir вне форума
Прохожий
 
Регистрация: 06.05.2011
Сообщения: 18
Репутация: 10
Восклицание Удаление записей в ADOTable

День добрый.
Есть у меня ADOTable.

Код:
      Form1.ADOTable1.DisableControls;
      Active  := Form1.ADOTable1.Active;
      Form1.ADOTable1.First;
      while not Form1.ADOTable1.Eof do
        begin
          aa  := Trim(Form1.ADOTable1.FieldByName('ZAKAZ').AsString);
          if aa = '' then
            begin
              Form1.ADOTable1.Delete;
            end
          else
            Form1.ADOTable1.Next;
        end;
      if Form1.ADOTable1.Modified then
        Form1.ADOTable1.UpdateBatch();
      Form1.ADOTable1.EnableControls;

Вот так убираю из таблицы не нужные мне записи.
В DBGrid отображается все правильно, но сам файл физически не очищается.

Собственно вопрос: как убрать записи из файла?
Ответить с цитированием
  #2  
Старый 07.06.2011, 15:57
Аватар для anonymous
anonymous anonymous вне форума
Новичок
 
Регистрация: 19.01.2011
Сообщения: 61
Версия Delphi: Delphi2009 v.12
Репутация: 12
По умолчанию

А файл должен очищаться при удалении строк из выборки таблицы?
Может попробовать query?
Ответить с цитированием
  #3  
Старый 07.06.2011, 16:07
Sleipnir Sleipnir вне форума
Прохожий
 
Регистрация: 06.05.2011
Сообщения: 18
Репутация: 10
Плохо

Цитата:
Сообщение от anonymous
А файл должен очищаться при удалении строк из выборки таблицы?
Может попробовать query?

ADOTable, в данном случае, есть ни что иное как DataSet.
Записи в нем помечаются на удаление. А мне необходимо физическое удаление этих записей.

Плюс ко всему попробовал сделать так:

Код:
Form1.ADOConnection1.Execute('delete * from ordercl.dbf where ZAKAZ = ''''');

результат тот же, т.е. абсолютно не утешительный.

Последний раз редактировалось Sleipnir, 07.06.2011 в 16:14.
Ответить с цитированием
  #4  
Старый 07.06.2011, 17:33
Аватар для anonymous
anonymous anonymous вне форума
Новичок
 
Регистрация: 19.01.2011
Сообщения: 61
Версия Delphi: Delphi2009 v.12
Репутация: 12
По умолчанию

Ну попробуй Table.ApplyUpdates
но я все равно за query)
Ответить с цитированием
  #5  
Старый 07.06.2011, 19:35
Sleipnir Sleipnir вне форума
Прохожий
 
Регистрация: 06.05.2011
Сообщения: 18
Репутация: 10
Плохо

Цитата:
Сообщение от anonymous
Ну попробуй Table.ApplyUpdates
но я все равно за query)
Мда...
Создается впечатление что Вы стремитесь написать хоть что-нибудь...

Я использую ADOTable, а там нет метода ApplyUpdates. Он есть в BDE.
Ответить с цитированием
  #6  
Старый 08.06.2011, 13:37
Аватар для anonymous
anonymous anonymous вне форума
Новичок
 
Регистрация: 19.01.2011
Сообщения: 61
Версия Delphi: Delphi2009 v.12
Репутация: 12
По умолчанию

Все-все, не флужу.
извините.

пойду займусь чем то не связанным с базами данных, я в них ничего не понимаю.

ой.
http://www.delphisources.ru/forum/showthread.php?t=8049
ойойой
http://www.cyberforum.ru/archive/t-243704.html

Последний раз редактировалось anonymous, 08.06.2011 в 13:50.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 21:22.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter