Исключение дубликатов при записи в базу данных

@1412 · Регистрация: 15.08.2015

Author24 — интернет-сервис помощи студентам

Как исключить дубликаты при записи в базу данных! Нужно повторяющиеся данные перезаписывать или пропускать. Если использую insert ignore into, появляется ошибка. Уникальный ключ по [iData].Подскажите, пожалуйста, очень нужно!

Delphi

1
2
3

Q.SQL.Add(‘insert into[Tabl].[Produkt]’);
Q.SQL.Add(‘([iData],[Summa])’);
Q.SQL.Add(‘values (CONVERT(DTATIME,’’’+nDate+’’’,102),’+nSumma+’)’);

@northener · 23.08.2015, 01:03

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

Как исключить дубликаты при записи в базу данных! Нужно повторяющиеся данные перезаписывать или пропускать.

SQL не настолько умный, чтобы при "insert into" сначала проверять есть ли уже запись с таким ключом. Проверяй сам перед внесением данных в БД.

@vfp5 · 23.08.2015, 08:21

не работает уникальный ключ. Надо посмотреть, почему.

@1412 · 23.08.2015, 08:54 **[ТС]**

А как правельно сделать проверку?

Delphi

if ('values (CONVERT(DTATIME,’’’+nDate+’’’,102')<>[iData]
then 
begin
Q.SQL.Add(‘insert into[Tabl].[Produkt]’);
Q.SQL.Add(‘([iData],[Summa])’);
Q.SQL.Add(‘values (CONVERT(DTATIME,’’’+nDate+’’’,102),’+nSumma+’)’);
end
else
begin
Q.SQL.Add(‘UPDATE[Tabl].[Produkt]’);
Q.SQL.Add(‘([iData],[Summa])’);
Q.SQL.Add(‘SET [iData]=(CONVERT(DTATIME,’’’+nDate+’’’,102),
[Summa]=’+nSumma+’’);
end;

@xxbesoxx · 23.08.2015, 14:11

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

SQL не настолько умный, чтобы при "insert into" сначала проверять есть ли уже запись с таким ключом. Проверяй сам перед внесением данных в БД.

Ехх друг

SQL умный и очень умный ! Но, его надо изучать ! что пользоваться его грамотно . Ладно по делу

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

Как исключить дубликаты при записи в базу данных!

1) Проверка на уровне СУБД
2) из приложения делаем INSERT
3) А там триггер проверяет если есть такой запись то Rollback tran

T-SQL

create database DB1;
----------------
use DB1
----------------------
create table Tab1(t_id int identity(1,1),
                  t_name nvarchar(30)
                  )
-----------------------
--drop table Tab2
create table Tab2(t_id int,
                  t_name nvarchar(30)
                  )
----------------------
insert into Tab1(t_name) values(N'Чай');
insert into Tab1(t_name) values(N'Кофе');
insert into Tab1(t_name) values(N'Сахар');

T-SQL

/*Триггер проверяеть при инсерте из Tab1 на Tab2 ! Если есть такой запись уже на Tab2 НЕ встравляем ROLLBACK TRAN */
ALTER TRIGGER TR_INSERT_COUNT
ON Tab2
AFTER INSERT
AS
IF (SELECT COUNT (*) FROM Tab2 T, inserted I WHERE T.t_id=I.t_id)>1
BEGIN
ROLLBACK TRANSACTION
 RAISERROR(N'Ест тако запись уже Tab2', 16, 1)
END

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
 if Application.MessageBox(PChar('Вы действительно хотите это запись вставить на Tab2 ?  :  '+
  MSQuery1.FieldByName('t_name').AsString ), 'Предупреждение !!!', MB_ICONWARNING+MB_YESNO)=IDYES then
 begin
  with msqryINSERT do   // Начинаю INSERT
  begin
    SQL.Clear;
    SQL.Text := ' INSERT Tab2 (t_id, t_name)  '+
                ' SELECT t_id, t_name         '+
                ' FROM Tab1                   '+
                ' WHERE Tab1.t_id= '+ MSQuery1.FieldByName('t_id').AsString +'';  // тоько те запись где курсор стаит
    ExecSQL;
    MSQuery2.Refresh;
  end;
end;
end;
 
end.

Добавлено через 1 час 3 минуты

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

не работает уникальный ключ. Надо посмотреть, почему.

Причем тут "уникальный ключ" и как вы хотите что он работал ?

Добавлено через 2 минуты

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

А как правельно сделать проверку?

Не правильны поиптка

@northener · 24.08.2015, 01:04

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

Ехх друг SQL умный и очень умный ! Но, его надо изучать ! что пользоваться его грамотно . Ладно по делу

Так это ты, друже не про SQL говорил. Правильно говорил, но не об самом языке SQL А про грамотное создание БД..

@xxbesoxx · 24.08.2015, 02:19

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

Так это ты, друже не про SQL говорил.

Почему , Про SQL тоже говорил

смотри так тоже можно проверить да ?

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
 if Application.MessageBox(PChar('Вы действительно хотите это запись вставить на Tab2 ?  :  '+
  MSQuery1.FieldByName('t_name').AsString ), 'Предупреждение !!!', MB_ICONWARNING+MB_YESNO)=IDYES then
 begin
 with msqryINSERT do
 begin
   SQL.Text := ' select *  '+
               ' from Tab1 inner join Tab2  '+ // Здесь    JOIN
               ' on Tab1.t_id=Tab2.t_id     '+
               ' and Tab1.t_id= '+ MSQuery1.FieldByName('t_id').AsString +''; // Вот здесь на каком записе есть курсор
   Open;
 end ;
 
 if msqryINSERT.RecordCount<>0 then   // А здесь если есть такой запись на Tab2 тоже  RecordCount не будет "0"
 begin
   ShowMessage('Такой запись уже есть на Tab2'); //
 end
 else
 if msqryINSERT.RecordCount=0  then  // А если Tab2 нету такой запись , тогда  RecordCount будет "0" да ?
  with msqryINSERT do   // Начинаю INSERT
  begin
    SQL.Clear;
    SQL.Text := ' INSERT Tab2 (t_id, t_name)  '+
                ' SELECT t_id, t_name         '+
                ' FROM Tab1                   '+
                ' WHERE Tab1.t_id= '+ MSQuery1.FieldByName('t_id').AsString +'';  // тоько те запись где курсор стаит
    ExecSQL;
    MSQuery2.Refresh;
  end;
end;
end;
end.

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

А про грамотное создание БД..

Да

@1412 · 24.08.2015, 16:26 **[ТС]**

Когда заношу данные в базу из небольшой таблицы Excel, c количеством строк примерно до 900, записываются нормально. Но если строк больше, до 8000 в базу ничего не импортируется. В чем может быть причина?

@northener пофигист широкого профиля 4733 / 3167 / 859 Регистрация: 15.07.2013 Сообщений: 18,252
	23.08.2015, 01:03	2
	Сообщение от 1412 Как исключить дубликаты при записи в базу данных! Нужно повторяющиеся данные перезаписывать или пропускать. SQL не настолько умный, чтобы при "insert into" сначала проверять есть ли уже запись с таким ключом. Проверяй сам перед внесением данных в БД. 1

@vfp5 4 / 4 / 1 Регистрация: 15.11.2014 Сообщений: 53
	23.08.2015, 08:21	3
	не работает уникальный ключ. Надо посмотреть, почему. 1

@northener пофигист широкого профиля 4733 / 3167 / 859 Регистрация: 15.07.2013 Сообщений: 18,252
	24.08.2015, 01:04	6
	Сообщение от xxbesoxx Ехх друг SQL умный и очень умный ! Но, его надо изучать ! что пользоваться его грамотно . Ладно по делу Так это ты, друже не про SQL говорил. Правильно говорил, но не об самом языке SQL А про грамотное создание БД.. 0

@1412 0 / 0 / 0 Регистрация: 15.08.2015 Сообщений: 5
	24.08.2015, 16:26 [ТС]	8
	Когда заношу данные в базу из небольшой таблицы Excel, c количеством строк примерно до 900, записываются нормально. Но если строк больше, до 8000 в базу ничего не импортируется. В чем может быть причина? 0