Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / FoxPro, Visual FoxPro Новый топик    Ответить
 Проблемы в VFP 6.0  [new]
Radistka
Member

Откуда:
Сообщений: 4
На данный текст программы VPF 8.0 не ругаецца, всё проходит нормально. А если ее загрузить в шестой версии орёт на ошибку синтаксиса. Что сделать, что работало в шестом? (на данный момент возмущаеца на 6-7 строки)
LOCAL nCount
SELECT R
GO TOP IN R
COUNT TO nCount FOR .T.
IF (nCount>=5)
INSERT INTO R1(A1, A2, A3, A4) select c. A1, c. A2, c. A3, c. A4 FROM R c
INSERT INTO R2(A5, A6, A7, A8) select c. A5, c. A6, c. A7, c. A8 FROM R c
thisform.grid3.Refresh
thisform.grid4.Refresh
SELECT R
IF !EMPTY("R")
DELETE ALL IN R
thisform.grid1.Refresh
endif
ELSE
INSERT INTO R (A1, A2, A3, A4, A5, A6, A7, A8) VALUES ("!!!", "!!!", "!!!", "!!!", "!!!", "!!!", "!!!", "!!!")
ENDIF
3 окт 05, 22:14    [1934279]     Ответить | Цитировать Сообщить модератору
 Re: Проблемы в VFP 6.0  [new]
Urri
Member

Откуда: Москва
Сообщений: 2693
INSERT ... select ...
в 6-й версии такого, кажется, не было?
4 окт 05, 00:19    [1934390]     Ответить | Цитировать Сообщить модератору
 Re: Проблемы в VFP 6.0  [new]
Radistka
Member

Откуда:
Сообщений: 4
Ну а если я напишу вот так:
INSERT INTO R1(A1, A2, A3, A4) values (R.A1, R.A2, R.A3, R.A4)
INSERT INTO R2(A5, A6, A7, A8) values (R.A5, R.A6, R.A7, R.A8)

То вообще ничего не вставляет
4 окт 05, 00:28    [1934394]     Ответить | Цитировать Сообщить модератору
 Re: Проблемы в VFP 6.0  [new]
Igor Korolyov
Member

Откуда: Гомель, Беларусь
Сообщений: 2512

Hi Radistka!

Ничего не сделать. Такой синтаксис INSERT в 6-ке не поддерживается. В
принципе групповую вставку (в 6-ке) можно сделать через APPEND FROM.

Posted via ActualForum NNTP Server 1.3

4 окт 05, 01:45    [1934426]     Ответить | Цитировать Сообщить модератору
 Re: Проблемы в VFP 6.0  [new]
Radistka
Member

Откуда:
Сообщений: 4
Попробовала аппендом, пишет ошибку таблица R is read only, как ее сделать is not read only???
LOCAL nCount
SELECT R
GO TOP IN R
COUNT TO nCount FOR .T.
IF (nCount>=2)
sELECT R1
APPEND FROM C:\1\Data\r.dbf
select R2
append from C:\1\Data\r.dbf
thisform.grid3.Refresh
thisform.grid4.Refresh
SELECT R
IF !EMPTY("R")
DELETE ALL IN R
thisform.grid1.Refresh
endif
ELSE
INSERT INTO R (A1, A2, A3, A4, A5, A6, A7, A8) VALUES ("!!!", "!!!", "!!!", "!!!", "!!!", "!!!", "!!!", "!!!")
ENDIF
4 окт 05, 02:27    [1934439]     Ответить | Цитировать Сообщить модератору
 Re: Проблемы в VFP 6.0  [new]
ВладимирМ
Member

Откуда: г. Москва
Сообщений: 7864
При попытке изменить данные в рабочих таблицах появляется сообщение "Cursor is read-only"

Используй такой синтаксис, чтобы не зависеть от физического расположения таблицы

select R1
APPEND FROM (DBF("R"))
select R2
APPEND FROM (DBF("R"))
4 окт 05, 13:04    [1935752]     Ответить | Цитировать Сообщить модератору
Все форумы / FoxPro, Visual FoxPro Ответить