SQLite: как избежать дублирования записей

[Kerby666]

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

Так можно считать уникальным или всетки оно сделано как уникальное ключевое и проиндексированно?

Нет, не сделано и не проиндексировано. Я пробовал делать его уникальным, тогда при попытке импорта у меня вылетает ошибка, что поле KOD не уникально. Это видимо из-за дублирования. Я наверно что-то не так делаю.

[Stilet]

тогда при попытке импорта у меня вылетает ошибка

Вот. А теперь уже можно для импорта написать свою программу, которая такие ошибки будет учитывать.

Все равно не тем путем идем... Нужно из 1С напрямую производить импорт а не заниматься самодротованием.

[Kerby666]

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

Вот. А теперь уже можно для импорта написать свою программу, которая такие ошибки будет учитывать.

Все равно не тем путем идем... Нужно из 1С напрямую производить импорт а не заниматься самодротованием.

Я уже импортирую не через sqlite3.exe, а средствами delphi. Не слишком быстро, но скорость приемлемая и ошибок при этом не возникает=). Осталось только проверку на уже существующие записи сделать. И почему-то sql-запрос поиска по полю работает не корректно (1 раз). Писал об этом выше. В чем может быть проблема?
Конечно если делать импорт прямо в таблицу из 1с проблем бы было на порядок меньше. Но я в конфигуратор залезаю максимум тестирование ИБ сделать=). Поэтому этот вариант стоит пока оставить. Но в понедельник я поговорю об этом с нашим программистом 1с, может что и выйдет. А так к завтрашнему вечеру проект надо бы закончить.

[Stilet]

Осталось только проверку на уже существующие записи сделать.

Как вариант: Запрос по всем записям. А потом сравнивать перед импортом - если ли такая, вернутая этим запросом. В этом случае максимум нагрузки пойдет не на сервер а на твоего импортера.

в понедельник я поговорю об этом с нашим программистом 1с, может что и выйдет. А так к завтрашнему вечеру проект надо бы закончить.

А почему раньше с ним не обсудил?

[Kerby666]

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

А почему раньше с ним не обсудил?

На больничном он, да и не рассматривал я такой вариант вообще.

[Stilet]

На больничном он

От нисчастье-же...
Ну попробуй как я сказал - запросом берешь все что есть, а дальше уже не клиенте сравнение делаешь и если не найдено - впиндюривай.

[Kerby666]

    DataModule4.LiteQuery1.Active:=False;
    DataModule4.LiteQuery1.SQL.Text:='select KOD from Table where KOD='+F;
    DataModule4.LiteQuery1.Active:=TRUE;
    if not DataModule4.LiteQuery1.Eof then
        ShowMessage('Запись существует')
            else
                ShowMessage('Запись не существует');
    DataModule4.LiteQuery1.Close;

У меня сейчас только так сделано. Механизм работает только мне не понятно, как идентифицировать найденную строку, чтобы вместо ShowMessage удалить ее. Или искать лучше не Sql-запросом?

[Stilet]

Или искать лучше не Sql-запросом?

Поле KOD индексированно? Если нет то полюбому искать не запросом.

    DataModule4.LiteQuery1.Active:=False;
    DataModule4.LiteQuery1.SQL.Text:='select KOD from Table';
    DataModule4.LiteQuery1.Active:=TRUE;
with DataModule4.LiteQuery1 do begin
 for i:=0 to Конец твоего списка в файле do begin
  if not locate('KOD',код из списка в файле) then
   Можно вставлять;
 end;
end;

Так понятнее? - выбрать все записи, и уже в твоей программе делать поиск.

[Serge_Bliznykov]

вместо

 if not DataModule4.LiteQuery1.Eof then

лучше (надёжнее использовать)

 if not DataModule4.LiteQuery1.isEmpty then

ну, а дальше всё просто:

 if not DataModule4.LiteQuery1.isEmpty then begin
        // ShowMessage('Запись существует')
      пишете запрос на update всех полей, кроме KOD 
 end
 else begin
        // ShowMessage('Запись не существует');
      пишете ваш запрос на INSERT
 end;
 DataModule4.LiteQuery1.Close;

p.s. ответ от Stilet я увидел после того, как написал свой пост. Можно и по ему пути пойти. тут не угадаешь, какой и способов быстрее и проще. (есть разные нюансы!)

[Kerby666]

ну, а дальше всё просто:

Я извиняюсь, но голова уже не переваривает инфу. У меня сделано так. Я создаю StringList и загружаю в него содержимое txt. Потом циклом иду по каждой строке и заношу в разные переменные (такие как F) то, что у меня между разделителями ';'. И делаю:

DataModule4.LiteTable1.Insert;
DataModule4.LiteTable1.FieldByName('KOD').AsString:=F;

и так далее. Как вписать то, что вы предлагаете в уже существующий цикл прохода по стокам StringList. Или переписать как-то иначе все нужно?
И еще когда меняю insert на update - ошибка типа таблица не в режиме update or insert.