ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Поиск фильмов для которых не было выпущено копий
4 сообщений из 4, страница 1 из 1
Поиск фильмов для которых не было выпущено копий
    #38946638
deepstyle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
deepstyle
Гость
Допустим есть СУБД Foxpro 2.6 для DOS. База данных реализует простейшую фильмотеку. В ней есть две таблицы FILM и COPY_MOV. Таблица FILM содержит колонки id_film, title, director, year. Таблица COPY_MOV (копии фильмов на носителях) содержит колонки: id_cpy, id_film, type_media, format.

Обе таблицы проиндексированы по полям id_film, id_copy.

Необходимо найти все фильмы, для которых не было произведено копий. Я написал следующий запрос который выполняет эту работу:

Код: sql
1.
select * from FILM where ID_FILM not in (select ID_FILM from COPY_MOV)



Как реализовать тоже самое только используя оператор SEEK foxpro? Без sql и SCAN.
...
Рейтинг: 0 / 0
27.04.2015, 20:15
| Ответить | Цитировать | Написать  
Поиск фильмов для которых не было выпущено копий
    #38946762
alextashk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alextashk
Участник
deepstyle,

Create cursor list_err (id_film c(10))
Select film
Goto top
Do while ! Eof()
If ! seek( id_flm, 'copy_mov', 'id_film') then
Insert into list_err(id_film) values (id_film)
Endif
Skip
Enddo
...
Рейтинг: 0 / 0
28.04.2015, 05:04
| Ответить | Цитировать | Написать  
Поиск фильмов для которых не было выпущено копий
    #38949065
deepstyle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
deepstyle
Гость
alextashk, переписал вашу программу

Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
use FILM index FILM
use COPY_MOV index COPY_MOV

Create cursor list_err (id_film n(10))

goto top
do while !EOF()
if !seek (id_film, 'copy_mov','film') then
	insert into list_err(id_film) values (id_film)

endif
skip
enddo

select * FROM list_err



В результате выводит пустую таблицу, хотя просматривая обе таблицы в BROWSE фильмов несколько.
...
Рейтинг: 0 / 0
29.04.2015, 21:01
| Ответить | Цитировать | Написать  
Поиск фильмов для которых не было выпущено копий
    #38949160
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
deepstylealextashk, переписал вашу программу
Плохо списывал. В оригинале так было

Код: sql
1.
2.
3.
Select film
Goto top
...
...
Рейтинг: 0 / 0
30.04.2015, 05:33
| Ответить | Цитировать | Написать  
4 сообщений из 4, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Поиск фильмов для которых не было выпущено копий
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]