Re: FoxPro: как открыть свободную таблицу, после того как открыта база?
для начала у тебя есть BUG,
сначала нужно проверить если база не открыта и только после этого открывать
ее:
bIsOpenDataBase = DBUSED(basedir+'name_db.dbc')
if ! bIsOpenDataBase
OPEN DATABASE basedir+'name_db.dbc'
endif
таблица открывается:
select 0
use table1
select 1
use table2
если надо открыть одну и туже таблицу 2 раза пишется так:
select 2
use table2 again
я года 3 не писал ничего на этом языке.
Igor
e-mail: igrits***@m*****.com
-----Original MessageFrom: "Бурляев Вячеслав" [mailto:burlya***@u*****.ru]
Sent: Friday, January 30, 2004 2:03 PM
To: comp.soft.prog.prog
база?
Есть вот такой код (вопрос в теле кода):
"....
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
Получить правила : 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
открывать
Спасибо за совет. Попробую так написать.
Номер выпуска : 1651
Возраст листа : 134
Количество подписчиков : 378
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/68991
Получить правила : 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