FoxClub Forums > Архив конференции по VFP до 2005 года

:: Архив конференции по VFP до 2005 года

• Войти

Проверка существования.
rusl Автор Сообщений: 200 Откуда: СПб Дата регистрации: 01.02.2005	rusl 19.03.05 20:05:07 Подскажите пожалуйста, как должен выглядеть код создания таблицы, если перед ее созданием сначала хочу проверить, а не существует ли она уже и если существует использовать ту что есть. IF FILE (NormalTab.DBF) IF USED(NormalTab) SELECT NormalTab ELSE USE NormalTab IN 0 ENDIF ELSE CREATE TABLE NormalTab (WORD C(50), NormalForm C(50)) INDEX ON Word TAG cWord SET ORDER TO tag cWord ENDIF А то на этот код Фокс ругается и говорит, что не нашел алиас таблицы Отредактировано (19.03.05 23:06) ------------------

rusl
Автор

Сообщений: 200
Откуда: СПб
Дата регистрации: 01.02.2005

rusl

19.03.05 20:05:07

Подскажите пожалуйста, как должен выглядеть код создания таблицы, если перед ее созданием сначала хочу проверить, а не существует ли она уже и если существует использовать ту что есть.


     IF FILE (NormalTab.DBF)
          IF USED(NormalTab)
              SELECT NormalTab
          ELSE
              USE NormalTab IN 0
          ENDIF
     ELSE
      CREATE TABLE NormalTab (WORD C(50),  NormalForm C(50))
      INDEX ON Word TAG cWord
      SET ORDER TO tag cWord
    ENDIF

А то на этот код Фокс ругается и говорит, что не нашел алиас таблицы

Отредактировано (19.03.05 23:06)

------------------

Re: Проверка существования.
Rustam Сообщений: 235 Откуда: Иркутск Дата регистрации: 14.10.2000	Rustam 20.03.05 09:59:31 Примерно так IF FILE ("NormalTab.DBF") IF USED("NormalTab") SELECT NormalTab ELSE USE NormalTab IN 0 again ENDIF ELSE CREATE TABLE NormalTab (WORD C(50), NormalForm C(50)) INDEX ON Word TAG cWord SET ORDER TO tag cWord ENDIF

Re: Проверка существования.

Rustam

Сообщений: 235
Откуда: Иркутск
Дата регистрации: 14.10.2000

Rustam

20.03.05 09:59:31

Примерно так


     IF FILE ("NormalTab.DBF")  
            IF USED("NormalTab")  
                SELECT NormalTab  
            ELSE  
                USE NormalTab IN 0  again
            ENDIF  
       ELSE  
            CREATE TABLE NormalTab (WORD C(50),  NormalForm C(50))  
            INDEX ON Word TAG cWord  
            SET ORDER TO tag cWord  
      ENDIF

Re: Проверка существования.
rusl Автор Сообщений: 200 Откуда: СПб Дата регистрации: 01.02.2005	rusl 20.03.05 10:34:44 Спасибо Rustam. Краню http://india.ru/boards/sml/revenant.gif

:: Список Форумов•Список тем•Поиск•Войти

Извините, но у вас нет прав для того, чтобы оставлять сообщения в этом форуме.

On-line: 16 (Гостей: 16)