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

[Vapaamies]

Первым делом посмотрел, есть ли в SQLite аналог merge. Нашел insert or replace или просто replace. Если используемые компоненты не знают про такую конструкцию, команду вставки придется формировать вручную. Мне кажется, что оно стоит того.

Но можно и на клиенте, как советует Stilet. Хотя "на клиенте" применительно к SQLite мне кажется оксюмороном.

[Stilet]

"на клиенте" применительно к SQLite мне кажется оксюмороном.

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

[Kerby666]

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

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

Да, я тут морочусь уже не первый день. Подкиньте пожалуйста пример проверки перед вставкой записи по полю KOD.

[Yurk@]

может всё-таки проще будет залить весь файл во временную табличку и потом запросом вычистить её же от тех записей которые в любом случае не попадут в основную таблицу. А оставшиеся уже дописать\перезаписать в основную

[Kerby666]

Сообщение от Yurk@

может всё-таки проще будет залить весь файл во временную табличку и потом запросом вычистить её же от тех записей которые в любом случае не попадут в основную таблицу. А оставшиеся уже дописать\перезаписать в основную

Времени совсем мало, буду благодарен за пример реализации. Я об этом тоже думал.

[Stilet]

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

Дак я же выше примерный пример привел

залить весь файл во временную табличку

Отличная идея. Поддерживаю.

[Kerby666]

if not locate('KOD',+F) then

ругается на эту строку

[Stilet]

гается на эту строку

Скажи, что бы ты сделал если бы тебе задали вопрос:"Как приготовить?"
Или ты думаешь что тут телепаты?
Извини конечно, но твоя фраза "ругается на эту строку " говорит только о том что что-то не так, и код дает ошибку. К твоему сведению не существует одной универсальной ошибки на все случаи.

[Kerby666]

if not DataModule4.LiteTable1.Locate('KOD',F,[]) then

Сделал так, теперь ошибка - примерный перевод рядом с Table : ошибка

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

Скажи, что бы ты сделал если бы тебе задали вопрос:"Как приготовить?"
Или ты думаешь что тут телепаты?
Извини конечно, но твоя фраза "ругается на эту строку " говорит только о том что что-то не так, и код дает ошибку. К твоему сведению не существует одной универсальной ошибки на все случаи.

Да-да, каюсь, синтаксис там неверный был.

Вот код, который у меня получился.

procedure TBaseForm.Button2Click(Sender: TObject);
var list:TStringList;
    J, K, G, H, F, s:String;
    i, p:Integer;
begin
    List:=TStringList.Create;
    List.LoadFromFile('C:\k.txt');
    DataModule4.LiteQuery1.Active:=False;
    DataModule4.LiteQuery1.SQL.Text:='select KOD from Table';
    DataModule4.LiteQuery1.Active:=TRUE;
        with DataModule4.LiteQuery1 do begin
                  For i:=1 to List.Count -1 do  begin

    s:=List.Strings[i];// Тут присваиваю переменным часть строки от начала до ;
    p:=Pos(';',s);
    F := Copy(S, 1, p - 1);

    S := Copy(S, p + 1, Length(S));
    p:= Pos(';',s);
    G := Copy(S, 1, p - 1);

    S := Copy(S, p + 1, Length(S));
    p:= Pos(';',s);
    H := Copy(S, 1, p - 1);

    S := Copy(S, p + 1, Length(S));
    p:= Pos(';',s);
    J := Copy(S, 1, p - 1);

    S := Copy(S, p + 1, Length(S));
    p:= Pos(';',s);
    K := Copy(S, 1, p - 1);

  if not DataModule4.LiteTable1.Locate('KOD',F,[]) then
    begin

    DataModule4.LiteTable1.Insert;
    DataModule4.LiteTable1.FieldByName('KOD').AsString:=F;
    DataModule4.LiteTable1.FieldByName('Type').AsString:=G;
    DataModule4.LiteTable1.FieldByName('Name').AsString:=H;
    DataModule4.LiteTable1.FieldByName('Quantity').AsString:=K;
    DataModule4.LiteTable1.Post;
    end
    else ShowMessage('Запись уже существует');
    end;
     end;
        LAbel1.Caption:=IntToStr(i);
   end;

[Stilet]

Во-о-о-о-т!
Теперь идея уловлена правильно.
Только один момент разве что еще посоветую: DataModule4.LiteTable1.Post; вынеси за пределы цикла. Прога должна быстрее отрабатывать.
Ну и в ShowMessage('Запись уже существует'); я бы не поленился либо дописать какая именно запись либо писал бы это в ЛОГ файл, либо вообще бы не писал.