Insert данных в БД используя ADOQuery

[royun]

Вот сделал такой код, но он ничего не делает.

procedure TForm1.Button4Click(Sender: TObject);
var
iRow:integer;
Dubls:integer;
begin
AdoDataSet1.Active:=False;
Dubls:=0;
RecCount:=0;
AdoDataSet1.CommandText:='select * from ['+Combobox1.Text+']';
AdoDataSet1.Active:=True;
ADODataSet1.First;
for iRow := StringGrid2.FixedRows to StringGrid2.RowCount - 1 do
begin
  if StringGrid2.Cells[1,iRow] <> '' then
  begin
  
      if ((ADODataSet1['data'])= (StrToDateTime(StringGrid2.Cells[1, iRow]))) and
         ((ADODataSet1['fio'])  = (StringGrid2.Cells[2, iRow])) then Dubls := Dubls + 1         
  end;
end;
ShowMessage('Дублей '+ IntToStr(Dubls) +'!');
end;

[Serge_Bliznykov]

1) а где цикл перебора записей в датасете?!
Или Вас, судя по коду

ADODataSet1.First;

только самая первая интересует? Остальные записи в наборе данных Вы не рассматриваете?


да и по первой записи не всё так однозначно...

ADODataSet1['data']

datetime такой "хитрый" тип данных, который содержит не только собственно саму дату, но ещё и время (часы,минуты, секунды и миллисекунды).
если хоть на одну миллисекунду не будет совпадать, то равенство ничего не даст.

попробуйте так написать:

procedure TForm1.Button4Click(Sender: TObject);
var
  iRow:integer;
  Dubls:integer;
  dt:TDateTime;
begin
AdoDataSet1.Active:=False;
Dubls:=0;
RecCount:=0;
AdoDataSet1.CommandText:='select * from ['+Combobox1.Text+']';
AdoDataSet1.Active:=True;
ADODataSet1.First;
for iRow := StringGrid2.FixedRows to StringGrid2.RowCount - 1 do
begin
  if StringGrid2.Cells[1,iRow] <> '' then
  begin
      dt := ADODataSet1['data'].AsDateTime; 
      if ( (Trunc(dt) = Trunc(StrToDateTime(StringGrid2.Cells[1, iRow])) ) and
             (AnsiUpperCase(Trim(ADODataSet1['fio'])) = AnsiUpperCase(Trim(StringGrid2.Cells[2, iRow]))) ) 
             then Inc(Dubls);
  end;
end;
ShowMessage('Дублей '+ IntToStr(Dubls) +'!');
end;

если не поможет, тогда в отладчик и пошагово проходите, смотрите, чему равны значения. Ещё можно кинуть мемо и выводить значения туда

[royun]

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

1) а где цикл перебора записей в датасете?!
Или Вас, судя по коду
только самая первая интересует? Остальные записи в наборе данных Вы не рассматриваете?


да и по первой записи не всё так однозначно...

datetime такой "хитрый" тип данных, который содержит не только собственно саму дату, но ещё и время (часы,минуты, секунды и миллисекунды).
если хоть на одну миллисекунду не будет совпадать, то равенство ничего не даст.

попробуйте так написать:

procedure TForm1.Button4Click(Sender: TObject);
var
  iRow:integer;
  Dubls:integer;
  dt:TDateTime;
begin
AdoDataSet1.Active:=False;
Dubls:=0;
RecCount:=0;
AdoDataSet1.CommandText:='select * from ['+Combobox1.Text+']';
AdoDataSet1.Active:=True;
ADODataSet1.First;
for iRow := StringGrid2.FixedRows to StringGrid2.RowCount - 1 do
begin
  if StringGrid2.Cells[1,iRow] <> '' then
  begin
      dt := ADODataSet1['data'].AsDateTime; 
      if ( (Trunc(dt) = Trunc(StrToDateTime(StringGrid2.Cells[1, iRow])) ) and
             (AnsiUpperCase(Trim(ADODataSet1['fio'])) = AnsiUpperCase(Trim(StringGrid2.Cells[2, iRow]))) ) 
             then Inc(Dubls);
  end;
end;
ShowMessage('Дублей '+ IntToStr(Dubls) +'!');
end;

если не поможет, тогда в отладчик и пошагово проходите, смотрите, чему равны значения. Ещё можно кинуть мемо и выводить значения туда

Спасибо, за терпение и труд.

[Serge_Bliznykov]

всегда пожалуйста.

Так у Вас всё получилось?

[royun]

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

всегда пожалуйста.

Так у Вас всё получилось?

Вот так получилось.

procedure TForm1.Button4Click(Sender: TObject);
var
  iRow:integer;
  Dubls:integer;
  dt:TDateTime;
begin
AdoDataSet1.Active:=False;
Dubls:=0;
RecCount:=0;
AdoDataSet1.CommandText:='select * from ['+Combobox1.Text+']';
AdoDataSet1.Active:=True;
ADODataSet1.First;
for iRow := StringGrid2.FixedRows to StringGrid2.RowCount - 1 do
begin
  if StringGrid2.Cells[1,iRow] <> '' then
  begin
      dt := ADODataSet1['data'].AsDateTime; 
      if ( (Trunc(dt) = Trunc(StrToDateTime(StringGrid2.Cells[1, iRow])) ) and
      (AnsiUpperCase(Trim(ADODataSet1['fio'])) = AnsiUpperCase(Trim(StringGrid2.Cells[2, iRow]))) ) 
             then
        begin
          Inc(Dubls);
          AdoDataSet1.Next;
        end;
  end;
end;
ShowMessage('Дублей '+ IntToStr(Dubls) +'!');
end;

Теперь возник еще один вопрос: Мне надо получить только уникальные значения по дате в StringGrid2.Cells[1, iRow], все дубли убрать. Быстрый способ не подскажите?

[Serge_Bliznykov]

Вот так получилось.

Код не очень надежный.
Думаю, что это код работает только потому что у Вас и даты в StringGrid2 и даты в запросе ADODataSet упорядочены.
Рискну предположить, что если это будет не так, код может не сработать.
Просто возьмите это себе на заметку.

Мне надо получить только уникальные значения по дате в StringGrid2.Cells[1, iRow], все дубли убрать. Быстрый способ не подскажите?

а откуда взялись данные в StringGrid2 ?
может быть, проще их убрать на этапе заполнения?

и сколько же у Вас записей в StringGrid, что Вы переживаете за скорость? (если я правильно понял вопрос про "быстрый" способ).

[royun]

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

а откуда взялись данные в StringGrid2 ?
может быть, проще их убрать на этапе заполнения?

и сколько же у Вас записей в StringGrid, что Вы переживаете за скорость? (если я правильно понял вопрос про "быстрый" способ).

Данные загружаются в StringGrid, затем в СУБД MS SQL Server 2000. И перед тем как загружать в БД, проверяю на уникальность, т.е. имеется запись StringGrid в БД.

А теперь понадобилось получить уникальные даты.

Порядка 50 тыс

[royun]

Пробовал через memo, долго.

[Dvoishnik]

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

Данные загружаются в StringGrid

откуда они загружаются в стринггрид БД, файл?? нужны ли повторяющиеся данный в гриде??

[royun]

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

откуда они загружаются в стринггрид БД, файл?? нужны ли повторяющиеся данный в гриде??

Да через файл. Да