добавление в таблицу БД

[NieL]

Есть 2 таблицы БД

Categories (ID, Name)
Products (ID, Name, category_id)

Есть список, каждая запись которого является Categories.ID:

11
36
17
57
21
88
..

Задача: пройти по списку, проверя существование каждой записи в таблице Gategories, если существует добавить в таблицу Products новую запись назначив полю categories_id значение из списка. В списке около 15 000 записей, как сделать проверку и добавление максимально быстрым. Вот мой код, но выполняется все долго.

procedure TForm2.Add(categories_ids: TStrings);
var
 field_category_id: TField;
 I, category_id: Integer;
begin
 field_category_id := tbl_products.FindByName('category_id');
 for I := 0 to categories_ids.Count - 1 do
 begin
   category_id := categories_ids[I];
   // проверяем существование category_id в таблице tbl_categories
   if tbl_categories.FindKey([category_id]) then
   begin
     tbl_products.Append;
     try
       field_category_id.AsInteger := category_id;
       tbl_products.Post;
     except
       tbl_products.Cancel;
     end;
   end;
 end;
end;

Еще пытался делать через запросы (проверка (SELECT) и добавление (INSERT)) так вообще, в секунду по 2-3 записи добавляется.

[Аватар]

1. А поля ID и Name в Products вы не заполняете?
2. А может легче список загнать как временную таблицу в базу и все добавление одним INSERT-ом реализовать?

[NieL]

Сообщение от Аватар

1. А поля ID и Name в Products вы не заполняете?
2. А может легче список загнать как временную таблицу в базу и все добавление одним INSERT-ом реализовать?

ID - автоинкрементное поле
Name - для тестов пока не критично

можете привести пример, не совсем понятно, с временной таблицей

[Аватар]

Я не имею понятия в какую базу вы пишите. Под временной я имел ввиду таблицу для разового использования, которую потом удаляете. Наполнить ее можно как программно, так и возможно средствами вашей SQL-базы (если таковые имеются)