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

royun

Дата 29.12.2011, 05:08 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 25
Регистрация: 22.8.2011

Репутация: нет
Всего: нет

Добрый день.

Есть код который делает импорт данных из 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;

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

royun

Дата 29.12.2011, 07:18 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 25
Регистрация: 22.8.2011

Репутация: нет
Всего: нет

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

Код


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

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

Данкинг

Дата 29.12.2011, 10:27 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130

Да можно просто выбрать всё и посмотреть .RecordCount.

--------------------

There's nothing left but silent epitaphs.

superVad

Дата 29.12.2011, 10:58 (ссылка)

(голосов:1)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 735
Регистрация: 6.4.2006
Где: Черкассы, Украина

Репутация: 3
Всего: 15

royun, Заливай все с каким нибудь признаком, а потом делай запрос на дубли. Можно даже запрос на удаление дублей. Это если записей много - АТС какая нибудь городская.
А если относительно мало - можешь и каждую запись проверять перед заливкой.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »