Связанные таблицы

[aimk0]

Есть две таблицы tb_1(главная) и tb_2 (дочерняя), связаны через MasterSource.
Необходимо из дочерней таблицы удалить все записи. Собственно проблема и заключается в удалении.
Работаю с TTable, DataSource.
Пробовал сделать следующим способом(код ниже), не получается.

dm.tb_tb_1.First;   
for ii:=0 to dm.tb_tb_1.RecordCount-1 do 
 begin
  dm.tb_tb_1.RecNo:=ii; 
  dm.tb_tb_2.First;
  for i:=0 to dm.tb_tb_2.RecordCount-1 do 
   begin
    dm.tb_tb_2.Delete;
    dm.tb_tb_2.Next;
   end; 
 end;

[evg_m]

Пробовал сделать следующим способом(код ниже), не получается.

что значит не получается
выдает ошибку (какую)
не удаляет ничего
удаляет но не все
укажите другой вариант ответа

[aimk0]

В tb_2 удаляются только записи соответствующие первой записи в tb_1. Т.е. внешний цикл

for ii:=0 to dm.tb_tb_1.RecordCount-1 do
begin
dm.tb_tb_1.RecNo:=ii;

не работает

[_SERGEYX_]

dm.tb_tb_1.First;
for ii:=0 to dm.tb_tb_1.RecordCount-1 do
 begin
  dm.tb_tb_1.RecNo:=ii; //Для чего эта строка ?
  dm.tb_tb_2.First;
  for i:=0 to dm.tb_tb_2.RecordCount-1 do
   begin
    dm.tb_tb_2.Delete;
    dm.tb_tb_2.Next; {Эта строка здесь не нужна,
    при удалении курсор и так перейдет к следующей записи, или
    ты через одну удалять будешь}
   end;
 dm.tb_tb_1.Next; //А как они могут удаляться без этой строки
 end;

И вообще, уж если удалять циклом (что не практично, можно все удалить одним sql-запросом), то хотя бы так...
Навскидку

 dm.tb_tb_1.First;
while not dm.tb_tb_1.eof do
 begin
  dm.tb_tb_2.First;
  while not dm.tb_tb_2.Eof do  dm.tb_tb_2.Delete;
 dm.tb_tb_1.Next;
 end;

[Dimasw]

Зачем циклы??? Так таблица долго удаляться будет.
Делай так:

tb_2.close;
tb2.EmptyTable; //очистка таблицы
tb2.open;

[artemavd]

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

[aimk0]

_SERGEYX_, спасибо, что-то я с NEXTом провтыкал))
Dimasw, при такой очистке ошибку выдает
artemavd, не совсем понял как связать таблицы в запросе (если можно, приведите пример).

[_SERGEYX_]

не совсем понял как связать таблицы в запросе

Вместо таблиц используешь TQuery.
Допустим, ты их назвал так же, tb_tb_1 и tb_tb_2. Имена таблиц в БД такие же.
Таблицы связаны по полю, например, Number.
В свойствах SQL первого пишешь

select * from tb_tb_1

В событии AfterScroll первого пишешь

  tb_tb_2.close;
  tb_tb_2.SQL.Text:='select * from tb_tb_2 where Number = "'+tb_tb_1Number.Text+'"';
  tb_tb_2.Open;

Если нужно удалить из таблицы 2 только видимые записи пишешь

  Qurery.close;
  Qurery.SQL.Text:='delete from tb_tb_2 where Number = "'+tb_tb_1Number.Text+'"';
  Qurery.ExecSQL;

Если нужно очистить всю вторую таблицу:

  Qurery.close;
  Qurery.SQL.Text:='delete from tb_tb_2';
  Qurery.ExecSQL;

Предвижу будующие вопросы... Как добавлять и изменять записи????
Читай учебники по SQL. Их в интернете полно...

[Dimasw]

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

Dimasw, при такой очистке ошибку выдает
artemavd).

Скомпилируй проект, закрой Дельфи и попробуй мой код запустить из Exe-шника.
У меня работает.

[aimk0]

Dimasw, и правда, при закрытом Delphi все работает ))