Проверка импортируемых данных на существование

[royun]

Добрый день.

Есть код который делает импорт данных из StringGrid в таблицу MS SQL Server 2000

ADODataSet1.DisableControls;
  try
    ADODataSet1.First;
    for iRow := StringGrid2.FixedRows to StringGrid2.RowCount - 1 do begin
    if StringGrid2.Cells[1,iRow] <> '' then
      begin
      ADODataSet1.Insert;
      ADODataSet1['Date'] := StrToDateTime(StringGrid2.Cells[1, iRow]);
      ADODataSet1['AbonentA'] := StringGrid2.Cells[2, iRow];
      ADODataSet1['AbonentB'] := StringGrid2.Cells[3, iRow];
      ADODataSet1['Vremia'] := StringGrid2.Cells[4, iRow];
      ADODataSet1['Dlit'] := StringGrid2.Cells[5, iRow];
      ADODataSet1['Dlit_fakt'] := StringGrid2.Cells[6, iRow];
      ADODataSet1['Vh_trunk'] := StringGrid2.Cells[7, iRow];
      ADODataSet1['Ish_Trunk'] := StringGrid2.Cells[8, iRow];
      ADODataSet1['Prichina'] := StringGrid2.Cells[9, iRow];
      ADODataSet1['Zona'] := StringGrid2.Cells[10, iRow];
      ADODataSet1.Post;
      end;
    end;
  finally
    ADODataSet1.EnableControls;
end;

Надо осуществить проверку импортируемых данных на существование в таблице.

[royun]

Итак, надо было сделать вот такую проверку хотя бы по двум столбцам:

SELECT Count(*) AS Cnt FROM TableName WHERE Date = :D AND Vremia = :V

Если поле Cnt >0, то такие записи существуют.

[rdama]

А повесить уникальный индекс на таблицу? А сделать это триггером?
Не модно? Религия? Знания?
И не надо городить дурной код.