Проверка при импорте

[Власов А.С.]

Добрый день!
Подскажите как правильно сделать. У меня база в аксес есть одна таблица в которую проходит импорт из экселя а как сделать так чтоб при импорте в одну таблицу шла проверка другой и если нет записей таких то и туда заносилось.
вот как у меня происходит импорт в таблицу аксеса.

procedure TForm1.Button1Click(Sender: TObject);
var
Msx, Workbook, Sheet : variant;
st, st1, st2, st3, st4,
st5, st6, st7, st8, st9,
st10, st11, st12 : String;
boo : boolean;
c1 : integer;
begin
if FileListBox1.ItemIndex = -1 then exit;
Msx:=CreateOleObject('Excel.Application');
Msx.Visible:=false;
Workbook:=Msx.Workbooks.Open(FileListBox1.FileName);
Sheet:= WorkBook.ActiveSheet;
boo:=true;
c1:=16;
While boo<>false do
begin
st:= Sheet.cells[c1, 1].value;
st1:= Sheet.cells[c1, 2].value;
st2:= Sheet.cells[c1, 3].value;
st3:= Sheet.cells[c1, 4].value;
st4:= Sheet.cells[c1, 5].value;
st5:= Sheet.cells[c1, 6].value;
st6:= Sheet.cells[c1, 7].value;
st7:= Sheet.cells[c1, 8].value;
st8:= Sheet.cells[c1, 9].value;
st9:= Sheet.cells[c1, 11].value;
st10:= Sheet.cells[c1, 12].value;
st11:= Sheet.cells[c1, 13].value;
st12:= Sheet.cells[c1, 14].value;
if (st<>'') then
begin
ADOTable1.Insert;
ADOTable1.FieldByName('Наименование п/п').AsString:=st;
ADOTable1.FieldByName('Дата').AsString:=st1;
ADOTable1.FieldByName('Номер').AsString:=st2;
ADOTable1.FieldByName('ИНН плательщика').AsString:=st3;
ADOTable1.FieldByName('КПП плательщика').AsString:=st4;
ADOTable1.FieldByName('Плательщик').AsString:=st5;
ADOTable1.FieldByName('ИНН администратора поступления').AsString:=st6;
ADOTable1.FieldByName('КПП администратора поступления').AsString:=st7;
ADOTable1.FieldByName('ОКАТО администратора поступления').AsString:=st8;
ADOTable1.FieldByName('КБК').AsString:=st9;
ADOTable1.FieldByName('Назначение платежа').AsString:=st10;
ADOTable1.FieldByName('Зачислено').AsString:=st11;
ADOTable1.FieldByName('Списано').AsString:=st12;
ADOTable1.Post;
inc(c1);
end else boo:=false;
end;
Msx.Quit;
Msx := Unassigned;
ShowMessage('Готово!');
if DeleteFile(Pchar(FileListBox1.FileName)) then
ShowMessage('Импорт прошел без ошибок!')
else
ShowMessage('Ошибка! Вот ее код: '+IntToStr(GetLastError));
end;

[artemavd]

Используй функцию Locate. С ее помощью можно решить твою проблему.

[Власов А.С.]

А можно по подробнее.

[Stilet]

А мне кажется что достаточно создать в БД некое поле ключ причем уникальный, (допустим это поле Номер) тогда при попытке вставить запись с номером, который уже есть прога ругнется.