Отправляет email-рассылки с помощью сервиса Sendsay

Программирование. Форум !!!

FoxPro: как открыть свободную таблицу, после того как открыта база?

Есть вот такой код (вопрос в теле кода):
"....
store "" to dbpath, rabdirpath /* Создаём переменные, которые будут содержать
пути до файлов */

if(read_ini("sbsv.ini") == -1) /* C помощью функции read_ini определяем
необходимые нам пути (кому интересно код функции внизу) */
wait window ("Файл для инициализации не найден")
return
endif
set path to &dbpath

k_err=0
IF k_err = 0
cat_rab=rabdirpath

OPEN DATABASE ('sborka') SHARED /* Открываем базу данных */
SET EXCLUSIVE OFF
/* Далее последовательно открываем таблицы базы даных */
USE sb_zakaz.dbf index sb_zakaz order 1 in a SHARED

/* вырезано: 20 одинаковых строчек для всех таблиц базы данных */

use in_sv in 0 shared /* А вот этой таблицы в базе данных нет.
Она находится в каталоге, обозначенный переменной rabdirpath. Вот тут и заключается
проблема. Не хочет он её искать. КАК МНЕ ЗАСТАВИТЬ ОТКРЫТЬ ЭТУ ТАБЛИЦУ? */
select * from in_sv into array w
kol_st=_TALLY

.......

** чтение фала TEST.INI
function READ_INI
parameter IniFileName
FPTR=FOPEN(IniFileName)
if fptr==-1
return -1
endif
do while feof(fptr)==.F.
ST=upper(FGETS(FPTR))
do case
case atc("ALLPATH=",st)!=0
AllPath=upper(alltrim(substr(st,at("=",st)+1)))
case atc("DBPATH=",st)!=0
DbPath=upper(alltrim(substr(st,at("=",st)+1)))
case atc("ARCPATH=",st)!=0
ArcPath=upper(alltrim(substr(st,at("=",st)+1)))
endcase
enddo
=FCLOSE(fptr)
return 0
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru

http://subscribe.ru/ mailto:ask@subscribe.ru

Ответить   Fri, 30 Jan 2004 17:02:59 +0500 (#67145)

 

Ответы:

нет.

*/
Насколько я понимаю, полный путь к таблице rabdirpath+'\in_sv.dbf' или
что-то вроде этого. Тогда, наверное,стоит написать
store rabdirpath+'\in_sv.dbf' to cfilename
select * from &cfilename into array w /* или курсор по необходимости
пробовал подобные вещи, работало.

Всего наилучшего Андрей
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru

http://subscribe.ru/ mailto:ask@subscribe.ru

Ответить   Абрамович Андрей Fri, 30 Jan 2004 22:07:45 +0300 (#67481)

 

правильно понимаешь.

А use перед select писать необязательно? Вся проблема в том, что я не знаю
как в use прописать......
К сожалению, с Visual FoxPro знаком наскоками, а по работе иногда требуется
(где-то раз в квартал) подкорректировать код существующей программы.
Номер выпуска : 1650
Возраст листа : 134
Количество подписчиков : 378
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/68990
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru

http://subscribe.ru/ mailto:ask@subscribe.ru

Ответить   Mon, 2 Feb 2004 08:47:29 +0500 (#68990)