Переменные пути для БД

Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
Ответить
Geydar
Посетитель
Сообщения: 32
Зарегистрирован: 15 Март 2006, 19:47
Откуда: Москва

Переменные пути для БД

Сообщение Geydar »

Здравствуйте. Подскажите, пожалуйста,
как в Clarion for DOS подсунуть файлу перемененный путь перед его открытием?
Денис
Бывалый
Сообщения: 70
Зарегистрирован: 07 Июль 2005, 5:39
Откуда: Хабаровск
Контактная информация:

Сообщение Денис »

Я начал работать с кларионом с версии 5.5, как было раньше незнаю, но думаю подойдет.

В словаре путь в таблице указываешь как: !VarForTablePath, VarForTablePath - твоя переменная. В проге, перед открытием таблицы присваиваешь VarForTablePath нужное значение.
lsgsoftware
Ветеран
Сообщения: 311
Зарегистрирован: 08 Июль 2005, 22:04

Сообщение lsgsoftware »

Какой версии кларион.Если 2.10 , то там словаря нет, но ходил раньше по рукам некий метод F_name.
Malex
Посетитель
Сообщения: 26
Зарегистрирован: 16 Март 2006, 14:59
Откуда: Крым

Как прописать путь файлу

Сообщение Malex »

Описываешь файл, с обязательным параметром [/i][/i]Name(F_Name)

KT FILE,PRE(KT),CREATE,RECLAIM,Name(F_Name)

где F_Name - переменная

F_Name String(100)

Code
F_Name= путь к файлу

Open(KT) !Собственно открывается этот файл

Я для открытия использую отдельную процедуру. Как пример:
MEMBER('BOOK')
Open_kp PROCEDURE !THIS PROCEDURE IS NOT DEFINED

CODE !
Close(kt)
y"='MB'&mem:god&'\M'&Clip(Mem:mes)
MakeDir(y")
F_Name='mb'&mem:god&'\M'&Clip(mem:mes)&'\K'& clip(mem:scet)
OPEN(kt) !OPEN THE FILE
IF ERROR() !OPEN RETURNED AN ERROR
CASE ERRORCODE() ! CHECK FOR SPECIFIC ERROR
OF 46 ! KEYS NEED TO BE REQUILT
BUILD(kt) ! CALL THE BUILD PROCEDURE
OF 2 !IF NOT FOUND,
CREATE(kt) ! CREATE
ELSE ! ANY OTHER ERROR
LOOP;STOP('kt: ' & ERROR()). ! STOP EXECUTION
. .
Close(kt)
RETURN !RETURN TO CALLER
Ответить