Поиск фильмов для которых не было выпущено копий / FoxPro, Visual FoxPro

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Поиск фильмов для которых не было выпущено копий

4 сообщений из 4, страница 1 из 1

Поиск фильмов для которых не было выпущено копий

#38946638

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

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

Участник

Сообщения: 437

Рейтинг: 0 / 0

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

Гость

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

Участник

Сообщения: 15 530

Рейтинг: 0 / 0

deepstylealextashk, переписал вашу программу
Плохо списывал. В оригинале так было

Код: sql

1.
2.
3.

Select film
Goto top
...

...

Рейтинг:

0 / 0

30.04.2015, 05:33

| Ответить | Цитировать | Написать

4 сообщений из 4, страница 1 из 1

Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Поиск фильмов для которых не было выпущено копий

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=41&fpage=25&tid=1582376]:	0ms
get settings:	8ms
get forum list:	12ms
check forum access:	3ms
check topic access:	3ms
track hit:	30ms
get topic data:	12ms
get forum data:	3ms
get page messages:	50ms
get tp. blocked users:	2ms
others:	11ms

total:	134ms