Кол-во похожих записей БД Access

[one1991]

люди как посчитать количество одинаковых значений хотябы одного поля в одной БД? А потом еще и сравнить кол-во похожих записей одной БД с другой?????

[Serge_Bliznykov]

одинаковых значений хотябы одного поля в одной БД

для таблицы, например, с такими значениями:

Иванов
Сидоров
Иванов
Петров
Сидоров
Иванов

сколько должно быть КОЛИЧЕСТВО ОДИНАКОВЫХ ЗНАЧЕНИЙ ?!
а вообще SQL в нём GROUP BY Поле (+ возможно использование агрегатного HAVING COUNT(*) ) решают такие задачи "на раз"!!

сравнить кол-во похожих записей одной БД с другой?????

а вот тут полный завал... ибо, не существует достаточно эффективных алгоритмов определения что такое "похожие" записи ?!
Кроссов на Кросса похожи? А Колосов на Молосова ?
кроме того, мне кажется, что Вы путаете разные БД с разными таблицами в одной БД... (а если не путаете, так тем хуже, тогда нужно в одной из БД вставлять связь с таблицей из другой БД и уже работать в рамках одной БД с разными таблицами!

[one1991]

подскажите в чем проблема?

var
i:integer;
begin
  with DataModule2.ADOTable1 do
    begin
    DataModule2.ADOTable3.First;
    if FieldByName('Возраст').AsInteger=DataModule2.ADOTable3.FieldByName('Возраст').AsInteger then
      begin
      DataModule2.ADOTable3.Edit;
      //DataModule2.ADOTable3.FieldByName('Возраст').AsInteger:=FieldByName('Возраст').AsInteger;
      DataModule2.ADOTable3.FieldByName('Повтор возраста').AsInteger:=DataModule2.ADOTable3.FieldByName('Повтор возраста').AsInteger+1;
      DataModule2.ADOTable3.Post;
      DataModule2.ADOTable3.RecNo:=DataModule2.ADOTable3.RecNo+1;
      end else begin
      DataModule2.ADOTable3.Edit;
      DataModule2.ADOTable3.insert;
      DataModule2.ADOTable3.FieldByName('Возраст').AsInteger:=FieldByName('Возраст').AsInteger;
      DataModule2.ADOTable3.FieldByName('Повтор возраста').AsInteger:=DataModule2.ADOTable3.FieldByName('Повтор возраста').AsInteger+1;
      DataModule2.ADOTable3.Post;
      end;
    RecNo:=RecNo+1;

    //RecordTimer.Enabled:=True;
    end;
end;

[vovk]

А похоже проблем нет, что написано, то и происходит
если уж не подходит запросом как советовал Serge_Bliznykov,
то по записям нужно двигатся, так как читаем только значение текущей записи, а двигатся можно с помощью moveby, next, Prior, и тп. Но честно говоря то что тут легко запросом сделать, перемещаясь по записям сделать куда как труднее


..00:57.
ЗЫ в голове родилась извращенческая идея реализации ... сек ща проверю напишу.. извращение кончно, но работать должно )

[vovk]

отвлекали, всё извращение закончено заценяйте

var
fltr:string;
begin
fltr:='';
ListBox1.Clear;
ADOTable1.First;
repeat
ADOTable1.Filter:=ADOTable1.Fields.Fields[1].FieldName+' = '+ADOTable1.Fields.Fields[1].AsString;
ADOTable1.Filtered:=true;
ListBox1.Items.Add(ADOTable1.Fields.Fields[1].AsString+'  ='+inttostr(ADOTable1.RecordCount));
if fltr='' then
fltr:=ADOTable1.Fields.Fields[1].FieldName+' <> '+ADOTable1.Fields.Fields[1].AsString
else fltr:=fltr+' and '+ADOTable1.Fields.Fields[1].FieldName+' <> '+ADOTable1.Fields.Fields[1].AsString;
ADOTable1.Filter:= fltr;
ADOTable1.Filtered:=true;
until ADOTable1.IsEmpty ;

ADOTable1.Filtered:=false;
end;

Ну кто видел извращение круче? )

топик стартеру: это ещё и работает


ЗЫ простите чтото не обратил внимания, что моё сообщение последнее, сразу новое запостил.. теперь править смысла нет, всё равно 2 сообщения останется

ЗЫЗЫ топикстартеру: если поле текстовое не забываем кавычки можно так
Quotedstr(ADOTable1.Fields.Fields[1].AsString)

[one1991]

объясни как сделать запросом

[vovk]

ADOQuery1.SQL.Text:='SELECT <имя поля совпадения которого проверяем>, count(*) From <имя таблицы> GROUP BY <имя поля совпадения которого проверяем>';
ADOQuery1.Open;

[Serge_Bliznykov]

vovk +1

добавлю только, что в случае TC
это, по всей видимости, будет так:

ADOQuery1.SQL.Text:=
'SELECT [Возраст], count(*) as CountAge '+
' From <имя таблицы> '+
' GROUP BY [Возраст]';
ADOQuery1.Open;

[one1991]

в этой строчке кода (у меня) вылетает ошибка, типо базы конфликтуют неверный тип, данные выходят за пределы диапазона итд итп...

ListBox1.Items.Add(ADOTable1.Fields.Fields[1].AsString+'  ='+inttostr(ADOTable1.RecordCount));

[vovk]

а листбокс на форме есть? Хотя я подозреваю что ошибка возникает при фильтрации, а если фильтруем по строковому полю, то как я и говорил

ЗЫЗЫ топикстартеру: если поле текстовое не забываем кавычки можно так
Quotedstr(ADOTable1.Fields.Fields[1].AsString)

так что если поле строковое, то везде где встречается ADOTable1.Fields.Fields[1].AsString, замените на Quotedstr(ADOTable1.Fields.Fields[1].AsString)