ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / FoxPro 2.6 запрос в общем
25 сообщений из 34, страница 1 из 2
  1  все
FoxPro 2.6 запрос в общем
    #37068158
Chek_Fedor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Chek_Fedor
Участник
SELECT 6 && справочник "дисциплины"
USE new_disc INDEX ipred
SET ORDER TO TAG ipr_2
GO TOP

Разжуйте пожалуйста вот это...
Из всего что написано я понял только USE new_disc (т.е. открываем базу для дальнейшего использования). Что такое INDEX и т.д. как это работает при переводе на русский или Delphi, С++. Cпасибо.
...
Рейтинг: 0 / 0
20.01.2011, 05:44
| Ответить | Цитировать | Написать  
FoxPro 2.6 запрос в общем
    #37068180
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
Код: plaintext
1.
2.
3.
SELECT  6  && сделать текущей  6 -ю рабочую область
USE new_disc INDEX ipred && открыть файл new_disc.dbf в текущей рабочей области с индексным файлом ipred.cdx
SET ORDER TO TAG ipr_2 && установить порядок сортировки по тэгу ipr_2 (он в ipred.cdx)
GO TOP && перейти на первую запись (с учетом сортировки)
...
Рейтинг: 0 / 0
20.01.2011, 06:53
| Ответить | Цитировать | Написать  
FoxPro 2.6 запрос в общем
    #37068381
Chek_Fedor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Chek_Fedor
Участник
Спасибо. Точно файлы CDX есть только вот чем они открываются, если открываются и для чего они нужны. Еще один вопросик возможно стандартными SQL запросами заполнить таблицу. Сейчас происходит примерно следующие из таблицы NEW_disc читаются записи на понятном мне "языке"
Код: plaintext
1.
select * from new_disc where new_disc.ID=[значение переменной]
а мне нужно прочитать записи из одной таблицы и вставить в другую попутно заполнив столбцы значениями взятыми из переменных типа a:=StrToInt(Label.text) (только в FoxPro, а Delphi).
что то типа

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
1Таблица
a1 b1
1  а
2  b
3  c
2 Таблица
a1 b2 b1
1  10   а
2  11   b
3  12   c
реализуется
Код: plaintext
1.
select a1, b1 from [ 1  Таблица] insert into [ 2  Таблица] a1, b2, b1 Values(a1, $b, b1)
помоему так или я ошибаюсь
Пытался удалить записи из таблицы как сказано в книге по FoxPro
Код: plaintext
1.
delete from table
не получилось. Как это реализовать в Fox Pro 2.6
...
Рейтинг: 0 / 0
20.01.2011, 10:07
| Ответить | Цитировать | Написать  
FoxPro 2.6 запрос в общем
    #37068439
tanglir
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tanglir
Участник
Chek_Fedor, если так хочется именно sql-запросами, то читаем F1 -> "SELECT - SQL" -> INTO.

Находим:
1)into array - если надо до писать данные в таблицу (потом делаем insert from array).
2)into dbf|table - если надо за писать данные (таблица либо создаётся, либо перезаписывается).

А sql-ного аналога delete нету (под рукой только 2.0, не помню есть ли в 2.6, но наверное, тоже нет). Переходите в соотв. раб. область и удаляйте с помощью команды delete for <условие>. И про set deleted прочитайте.
...
Рейтинг: 0 / 0
20.01.2011, 10:28
| Ответить | Цитировать | Написать  
FoxPro 2.6 запрос в общем
    #37068444
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
Chek_FedorСпасибо. Точно файлы CDX есть только вот чем они открываются, если открываются и для чего они нужны.
Это индексы.

По поводу остального советую книжку по FoxPro 2.x поискать, там из SQL только select есть и то очень ограниченный. Остальная поддержка SQL-я потом появилось. Работа с данными идет на языке XBASE.
Писать долго, в кратце так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
* Добавление 
sele new_disc && переход в рабочую область где открыта new_disc.dbf
append blank && добавление пустой записи
repl Field with Value && запись в поле Field значение Value
* удаление
delete && удаление текущей записи
delete for <условие> && удаление записей подходящих под <условие>
...
Рейтинг: 0 / 0
20.01.2011, 10:29
| Ответить | Цитировать | Написать  
FoxPro 2.6 запрос в общем
    #37068463
проходящий.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
проходящий.
Гость
Chek_FedorСпасибо. Точно файлы CDX есть только вот чем они открываются, если открываются и для чего они нужны.Это индексы. Их открывать не нужно, они открываются автоматически при открытии соответствующей таблицы. Нужны для ускорения поисков. Еще один вопросик возможно стандартными SQL запросами заполнить таблицу. Сейчас происходит примерно следующие из таблицы NEW_disc читаются записи на понятном мне "языке"
Код: plaintext
1.
select * from new_disc where new_disc.ID=[значение переменной]
а мне нужно прочитать записи из одной таблицы и вставить в другую попутно заполнив столбцы значениями взятыми из переменных типа a:=StrToInt(Label.text) (только в FoxPro, а Delphi).
что то типа

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
1Таблица
a1 b1
1  а
2  b
3  c
2 Таблица
a1 b2 b1
1  10   а
2  11   b
3  12   c
реализуется
Код: plaintext
1.
select a1, b1 from [ 1  Таблица] insert into [ 2  Таблица] a1, b2, b1 Values(a1, $b, b1)
помоему так или я ошибаюсьОшибаетесь. Схема должна быть такая (используя Ваши шаблоны):
select [1 Таблица]
append from [2 Таблица]
replace all b2 with $b
Пытался удалить записи из таблицы как сказано в книге по FoxPro
Код: plaintext
1.
delete from table
не получилось.Так и написало - не получаюсь?
Выданная Вами команда помечает на удаление одну запись. Как это реализовать в Fox Pro 2.6Если надо удалить все записи и очистить таблицу, то ZAP. Но есть большие подозрения, что Вы изобретаете очередной велосипед с временной таблицей.
Не расскажете саму задачку? Глядишь более прямое решение найдется.
...
Рейтинг: 0 / 0
20.01.2011, 10:37
| Ответить | Цитировать | Написать  
FoxPro 2.6 запрос в общем
    #37068479
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
проходящий.Chek_FedorСпасибо. Точно файлы CDX есть только вот чем они открываются, если открываются и для чего они нужны.Это индексы. Их открывать не нужно, они открываются автоматически при открытии соответствующей таблицы
...
автоматически если имя файла CDX совпадает с именем DBF, в данном случае это не так.
Chek_FedorUSE new_disc INDEX ipred
...
Рейтинг: 0 / 0
20.01.2011, 10:42
| Ответить | Цитировать | Написать  
FoxPro 2.6 запрос в общем
    #37068484
tanglir
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tanglir
Участник
проходящий.Chek_FedorПытался удалить записи из таблицы как сказано в книге по FoxPro
Код: plaintext
delete from table
не получилось.Так и написало - не получаюсь?
Выданная Вами команда помечает на удаление одну запись.В 2.0 - Feature not available (и в хелпе нету delete-sql). В 2.6 добавили?

>Но есть большие подозрения, что Вы изобретаете очередной велосипед с временной таблицей.
Не расскажете саму задачку? Глядишь более прямое решение найдется.
+1
...
Рейтинг: 0 / 0
20.01.2011, 10:44
| Ответить | Цитировать | Написать  
FoxPro 2.6 запрос в общем
    #37068515
проходящий.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
проходящий.
Гость
tanglirпроходящий.пропущено...
Так и написало - не получаюсь?
Выданная Вами команда помечает на удаление одну запись.В 2.0 - Feature not available (и в хелпе нету delete-sql). В 2.6 добавили?Не-а, не добавили. Это я уже начал подзабывать сию версию.
...
Рейтинг: 0 / 0
20.01.2011, 10:56
| Ответить | Цитировать | Написать  
FoxPro 2.6 запрос в общем
    #37069376
Chek_Fedor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Chek_Fedor
Участник
Блин что-то я...
Вот "связка" которая почти "работает"
Код: plaintext
1.
2.
3.
4.
5.
6.
use New_Disc
select [New_Disc] 
use Disc
select [disc]
append blank [Disc]
repl Name with 'name'
только что-то всеравно не то
Мне нужно пройтсь по всей таблице New_Disc и вставить в таблицу Disc данные из New_Disc изменив попутно часть данных в столбцах
Будем пробыват через SQL запрос
Спасибо
...
Рейтинг: 0 / 0
20.01.2011, 15:19
| Ответить | Цитировать | Написать  
FoxPro 2.6 запрос в общем
    #37069438
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
Chek_FedorВот "связка" которая почти "работает"
это чушь полная:
Код: plaintext
1.
2.
3.
use New_Disc && открыть New_Disc.dbf в текущей рабочей области
select [New_Disc] && перейти в рабочую область где открыта New_Disc.dbf (она уже текущая)
use Disc && открыть Disc.dbf в текущей рабочей области (при этом New_Disc закроется автоматом)
...
тебя выше уже несколько раз спросили зачем тебе именно фокс 2.6, если что-то новое пишешь - перегони данные в какой-нибудь SQL сервер и пользуйся SQL-ем, или 9-й фокс возьми, там полноценный SQL

Если же 2.6 очень надо - ищи книжку и основы XBASE изучай, на предложение написать за тебя код с нуля тут вряд ли кто откликнется.
...
Рейтинг: 0 / 0
20.01.2011, 15:31
| Ответить | Цитировать | Написать  
FoxPro 2.6 запрос в общем
    #37069522
Chek_Fedor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Chek_Fedor
Участник
Да не нужен мне "фокс" это нужно моим работодателям была прога уже написаная нужно немного подправить как сказали быстренько разобраться и сделать, я блин FOXPRO первый раз вчера увидел... так как вставить?
...
Рейтинг: 0 / 0
20.01.2011, 15:51
| Ответить | Цитировать | Написать  
FoxPro 2.6 запрос в общем
    #37069538
проходящий.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
проходящий.
Гость
Chek_FedorБлин что-то я...
Вот "связка" которая почти "работает"
Код: plaintext
1.
2.
3.
4.
5.
6.
use New_Disc
select [New_Disc] 
use Disc
select [disc]
append blank [Disc]
repl Name with 'name'
только что-то всеравно не тоРазумеется. Откуда blank взялся? Куда делся from? Что за самодеятельность? Зачем открывать и тут же закрывать Disk? Мне нужно пройтсь по всей таблице New_Disc и вставить в таблицу Disc данные из New_Disc изменив попутно часть данных в столбцахНу так может таки приведете какую-нибудь конкретику? Что менять, где менять, как менять? Будем пробыват через SQL запросПробОвать с таким подходом и на SQL будет трудно. Ибо нет точной формулировки жедлаемого.
...
Рейтинг: 0 / 0
20.01.2011, 15:55
| Ответить | Цитировать | Написать  
FoxPro 2.6 запрос в общем
    #37069596
Chek_Fedor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Chek_Fedor
Участник
Выше было есть таблица1(поле1, поле2) берем из нее строки и вставляем в таблицу2 (поле1, поле2, поле3) где поле1 и поле2 идентичны в двух таблицах а в поле 3 пишем значение переменной.
...
Рейтинг: 0 / 0
20.01.2011, 16:09
| Ответить | Цитировать | Написать  
FoxPro 2.6 запрос в общем
    #37069624
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
Chek_FedorВыше было есть таблица1(поле1, поле2) берем из нее строки и вставляем в таблицу2 (поле1, поле2, поле3) где поле1 и поле2 идентичны в двух таблицах а в поле 3 пишем значение переменной.
"Лучше день потерять потом за час долететь", ищи книжку по FoxPro 2.x, читай про работу с данными.

в простейшем случае это так делается:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
sele  0  && переход в свободную рабочую область
use таблица2 
sele  0 
use таблица1
scan && перебор всех записей в таблица1
   переменная = ...
   sele таблица2 
   append blank
   repl поле1 with таблица1.поле1, поле2 with таблица1.поле2, поле3 with переменная
endscan
...
Рейтинг: 0 / 0
20.01.2011, 16:21
| Ответить | Цитировать | Написать  
FoxPro 2.6 запрос в общем
    #37069640
проходящий.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
проходящий.
Гость
Chek_FedorВыше было есть таблица1(поле1, поле2) берем из нее строки и вставляем в таблицу2 (поле1, поле2, поле3) где поле1 и поле2 идентичны в двух таблицах а в поле 3 пишем значение переменной.Не надо повторять одно и тоже, понятность от этого не повышается. К тому же, для этого объяснения код схема уже показана. Просто надо поменьше придумывать отсебятины.
...
Рейтинг: 0 / 0
20.01.2011, 16:27
| Ответить | Цитировать | Написать  
FoxPro 2.6 запрос в общем
    #37069805
Chek_Fedor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Chek_Fedor
Участник
Спасибо всем!!!
...
Рейтинг: 0 / 0
20.01.2011, 17:20
| Ответить | Цитировать | Написать  
FoxPro 2.6 запрос в общем
    #37071901
Chek_Fedor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Chek_Fedor
Участник
в простейшем случае это так делается:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
sele  0  && переход в свободную рабочую область
use таблица2 
sele  0 
use таблица1
scan && перебор всех записей в таблица1
   переменная = ...
   sele таблица2 
   append blank
   repl поле1 with таблица1.поле1, поле2 with таблица1.поле2, поле3 with переменная
endscan
[/quot]
Вывел данный код на отдельную кнопку соответственно приповторном нажатии прога ругается на use таблица2 они же уже открыты на команды
SET DATABASE TO [таблица2]
ругается Error in line 303: Unrecognized phrase/keyword in command.
CLOSE DATABASES
Впрос как закрыть нужную мне базу? Спасибо
...
Рейтинг: 0 / 0
21.01.2011, 16:30
| Ответить | Цитировать | Написать  
FoxPro 2.6 запрос в общем
    #37072005
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
Добавь в конец
Код: plaintext
1.
2.
3.
sele таблица2 
use 
sele таблица1
use
...
Рейтинг: 0 / 0
21.01.2011, 17:07
| Ответить | Цитировать | Написать  
FoxPro 2.6 запрос в общем
    #37072022
Chek_Fedor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Chek_Fedor
Участник
Спасибо. Добавил в начало
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
IF .NOT. USED("Disc")  
sele  0  && переход в свободную рабочую область
use Disc
endif
IF .NOT. USED("Disc1")  
sele  0  && переход в свободную рабочую область
use Disc1
endif
теперь думаю, переделывать?
...
Рейтинг: 0 / 0
21.01.2011, 17:15
| Ответить | Цитировать | Написать  
FoxPro 2.6 запрос в общем
    #37072042
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
можешь так оставить
...
Рейтинг: 0 / 0
21.01.2011, 17:24
| Ответить | Цитировать | Написать  
FoxPro 2.6 запрос в общем
    #37074373
Chek_Fedor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Chek_Fedor
Участник
Снова я, не ругайте сильно...
Пытаюсь проверить наличие совпадений в "таблица1" с "таблица2" по столбцу "name"
не подскажите как реализовать
Чушь писать не буду (как прошлый раз)
...
Рейтинг: 0 / 0
24.01.2011, 02:28
| Ответить | Цитировать | Написать  
FoxPro 2.6 запрос в общем
    #37074405
Chek_Fedor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Chek_Fedor
Участник
Вот какой то код "навоял"
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
CASE vybd1= 6    && КНОПКА1
SELECT  6 
IF .NOT. USED("Disc1")  
sele  0  && переход в свободную рабочую область
use Disc1
endif

Flag_F=.F.
GO TOP
	DO WHILE .NOT. EOF()
	IF Disc1.name='name'
	Flag_F=.T.
ENDIF
SKIP
   	ENDDO

  IF Flag_F=.T.
	  sele Disc1
	  append blank
    repl Name with 'ЕСТЬ'
else 
	  sele Disc1
	  append blank
       repl Name with 'НЕТ'
endif
	_CUROBJ= 6
В таблице Disc1 присутствует поле name c данными "name"
Только вот при первом нажатии этот код добавляет в таблицу "ЕСТЬ" т.е. реагирует правильно с последующими нажатиями пишет "НЕТ" разве GO TO не должно возвращать курсор на первую запись?
...
Рейтинг: 0 / 0
24.01.2011, 04:06
| Ответить | Цитировать | Написать  
FoxPro 2.6 запрос в общем
    #37074406
Chek_Fedor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Chek_Fedor
Участник
читать GO TOP вместо GO TO
...
Рейтинг: 0 / 0
24.01.2011, 04:08
| Ответить | Цитировать | Написать  
FoxPro 2.6 запрос в общем
    #37074436
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
Chek_Fedor разве GO TOP не должно возвращать курсор на первую запись?
Должно и возвращает, только в текущей рабочей области. SKIP и EOF() тоже выполняются в текущей рабочей области.
А перейти в нее ты забыл:
Код: plaintext
1.
2.
3.
4.
5.
IF .NOT. USED("Disc1")  
  sele  0  && переход в свободную рабочую область
  use Disc1
else
  sele Disc1
endif

И вот это:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Flag_F=.F.
GO TOP
DO WHILE .NOT. EOF()
   IF Disc1.name='name'
	Flag_F=.T.
   ENDIF
   SKIP
ENDDO

IF Flag_F=.T.
...

пишется так:
Код: plaintext
1.
2.
locate for Disc1.name='name'
if found()
...
PS Странная логика какая-то у тебя: ищем в Disc1 name='name' и если есть то еще раз добавляем запись, там случайно "append blank" не лишний?

PPS При установленной настройке среды SET EXACT OFF (оно обычно так и стоит) сравнение строк идет до окончания правой, т.е. сравнение 'nameXXX' = 'name' вернет истину.
...
Рейтинг: 0 / 0
24.01.2011, 07:37
| Ответить | Цитировать | Написать  
25 сообщений из 34, страница 1 из 2
  1  все
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / FoxPro 2.6 запрос в общем
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&msg=37074405&tid=1584608]:
 0ms
get settings:
 7ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 36ms
get topic data:
 9ms
get forum data:
 3ms
get page messages:
 43ms
get tp. blocked users:
 1ms
others: 15ms
total:  128ms
созд. / загр.: 128ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]