VPF::Как сделать нижеописанную выборку из dbf файла?

dronster

Дата 13.12.2006, 11:27 (ссылка)

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

Загрузка ...

Новичок

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

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

Хелп ми, народ.
Есть файл dbf формата myfile.dbf . В нем есть поле field1 например. В этом поле есть повторяющиеся значения. Как сделать выборку, в которой будут выбраны записи, где значение поля field1 повторяется более чем один раз.
Например если поле field1 содержит следующие значения
1
2
3
3
4
4
5
6
7
7
7
7
8
9
10
10
10

Выборка должна быть такая
3
3
4
4
7
7
7
7
10
10
10

Буду очень благодарен, если кто откликнется....

MFoxer

Дата 13.12.2006, 20:44 (ссылка)

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

Загрузка ...

Новичок

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

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

Код


 Select field1 From myfile Group BY field1 HAVING Count(field1)>1

achepkunov

Дата 13.12.2006, 23:14 (ссылка)

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

Загрузка ...

Новичок

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

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

так выведется

3
4
7
10

Если фокс скушает - Select field1 From myfile where field1 in(Select field1 From myfile Group BY field1 HAVING Count(field1)>1)

если нет, что-то тиnа

Код


select a
printon = .f.
do while .t.
   prev_field = field1
   skip
   if .eof. 
      exit
   endif
   if prev_field = field1
       printon = .t.
   endif
   if printon 
      say prev_field
   endif
   if prev_field <> field1
       printon = .f.
   endif
enddo

ой, ужас какой я тут понаписал smile

Это сообщение отредактировал(а) achepkunov - 13.12.2006, 23:15

Cashey

Дата 14.12.2006, 00:19 (ссылка)

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

Загрузка ...

Бессмертный

Профиль
Группа: Завсегдатай
Сообщений: 3441
Регистрация: 13.11.2002
Где: в столице

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

тот же код, только без GROUP BY

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

библия учит любить ближнего, а камасутра обучает как именно

karina

Дата 22.12.2006, 16:21 (ссылка)

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

Загрузка ...

Новичок

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

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

фокс скушал - Select field1 From myfile where field1 in(Select field1 From myfile Group BY field1 HAVING Count(field1)>1)
а без Group BY не работает

Cashey

Дата 28.12.2006, 13:42 (ссылка)

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

Загрузка ...

Бессмертный

Профиль
Группа: Завсегдатай
Сообщений: 3441
Регистрация: 13.11.2002
Где: в столице

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

Цитата(karina @ 22.12.2006, 17:21

)

Select field1 From myfile where field1 in(Select field1 From myfile Group BY field1 HAVING Count(field1)>1)

Цитата(MFoxer @ 13.12.2006, 21:44

)

Select field1 From myfile Group BY field1 HAVING Count(field1)>1

это разные запросы и логика у них разная

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

библия учит любить ближнего, а камасутра обучает как именно

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Foxpro/Clipper/Dbase \| Следующая тема »