ReSQL.ru
     
powered by simpleCommunicator - 2.0.56     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Помогите пожалуста соединить базы в одну
12 сообщений из 12, страница 1 из 1
Помогите пожалуста соединить базы в одну
    #35570915
neohunter
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
neohunter
Гость
Здраствуйте уважаемые ГУРУ, у меня имеется 9 баз (d1.dbf, d2.dbf d3.dbf, d4.dbf, d5.dbf, d6.dbf, d7.dbf, d8.dbf, d9.dbf (пенсионые)) и foxpro 2.6. Нужно эти все базы совместить в одну "d0.dbf", я примерно видел как это делать, есть файлик (list.png) там код написан в котой вписивались названия баз, вот они этот файлик запускали через "DО..." и он формирует базу... Помогите мне сделать такой же файлик list.png c кодом
...
Рейтинг: 0 / 0
01.10.2008, 22:50
| Ответить | Цитировать | Написать  
Помогите пожалуста соединить базы в одну
    #35570916
neohunter
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
neohunter
Гость
P.S. Базы все одинаковие только с разных организаций...
...
Рейтинг: 0 / 0
01.10.2008, 22:51
| Ответить | Цитировать | Написать  
Помогите пожалуста соединить базы в одну
    #35570962
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
* LIST.PRG
* Соединяем таблицы DB1.DBF-DB9.DBF в одну DB0.DBF
* Структура всех таблиц одинакова
* Исходные таблицы лежат здесь же, результат получаем здесь же
set talk off
set safety off
set deleted on

copy file db1 to db0
use db0
for i= 2  to  9 
  append from ('db'+ltrim(str(i)))
endfor
use

quit
...
Рейтинг: 0 / 0
01.10.2008, 23:31
| Ответить | Цитировать | Написать  
Помогите пожалуста соединить базы в одну
    #35573539
neohunter
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
neohunter
Гость
Я скопировал то что Вы написали в блокнот и сохранил в list.png, выполнил командой Do... и оно мне выдало вот такое... что я сделал не так?
...
Рейтинг: 0 / 0
02.10.2008, 22:18
| Ответить | Цитировать | Написать  
Помогите пожалуста соединить базы в одну
    #35573596
SvIva
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SvIva
Участник
Ваши файлы DB1,...,DB9 должны лежать (находится) в той директории, откуда запускаете прогу
В вашем случае - это директория "I:\1DF_GO~1. Скопируйте туда ваши файлы .DBF и снова запустите программу.
...
Рейтинг: 0 / 0
02.10.2008, 23:39
| Ответить | Цитировать | Написать  
Помогите пожалуста соединить базы в одну
    #35573741
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
Вообще-то, исходники Фокса обычно имеют расширение PRG, но это не особо принципиально...

Имя каталога нельзя покороче создать (типа I:\1DF_0\) ? - это же FoxPro for DOS, там формат имени был 8.3
...
Рейтинг: 0 / 0
03.10.2008, 06:23
| Ответить | Цитировать | Написать  
Помогите пожалуста соединить базы в одну
    #35573743
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
И да, конечно, немного соврал (просто хотел использовать use..copy to), надо так:
Код: plaintext
COPY FILE DB1.DBF TO DB0.DBF
...
Рейтинг: 0 / 0
03.10.2008, 06:25
| Ответить | Цитировать | Написать  
Помогите пожалуста соединить базы в одну
    #35574542
neohunter
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
neohunter
Гость
Я сохранил в каталоге с базами list.prg с этим кодом(немного пришлось переделать так как мои базы називаются d1, d2..., я писал немного на С и примерно знаю про это, интересно, а там где копируется Д1 в Д0... разви там не нада для начала типа create d0?) запускаю через Фох и програму закрывает... это quit закрывает? Нечего не создаётся и не склеивается...
_______________________________________

set talk off
set safety off
set deleted on

copy file d1.dbf to d0.dbf
use d0
for i=2 to 9
append from ('d'+ltrim(str(i)))
endfor
use

quit
_______________________________________
...
Рейтинг: 0 / 0
03.10.2008, 12:43
| Ответить | Цитировать | Написать  
Помогите пожалуста соединить базы в одну
    #35575419
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
Ладно, уговорили...
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
set talk off
set safety off
set deleted on

if !file('d1.dbf')
  wait window 'Source database is not found in current directory!'
  quit
endif
use d1
copy to d0
use d0
append from d2
append from d3
append from d4
append from d5
append from d6
append from d7
append from d8
append from d9
wait window 'Database D0 was created succesfully!'
quit
Если и ЭТО не отработает...
...
Рейтинг: 0 / 0
03.10.2008, 16:30
| Ответить | Цитировать | Написать  
Помогите пожалуста соединить базы в одну
    #35575721
neohunter
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
neohunter
Гость
Огромное сисадминское спасибо, это помогло и всё получилось, я примерно такого вида код и видел...
...
Рейтинг: 0 / 0
03.10.2008, 18:57
| Ответить | Цитировать | Написать  
Помогите пожалуста соединить базы в одну
    #35575824
neohunter
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
neohunter
Гость
А интересно, если
вирезать use d1
copy to d0
и написать так
use d1
copy to d0
use d1
append from d2
append from d3
append from d4
append from d5
append from d6
append from d7
append from d8
append from d9
wait window 'Database D0 was created succesfully!'
quit
тиоретически должно всё сложиться с добавлением в таблицу Д1?
...
Рейтинг: 0 / 0
03.10.2008, 20:19
| Ответить | Цитировать | Написать  
Помогите пожалуста соединить базы в одну
    #35575954
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
Да, причем не теоретически. Только в d1 останутся удаленные записи...
...
Рейтинг: 0 / 0
03.10.2008, 22:33
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Помогите пожалуста соединить базы в одну
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&msg=35573741&tid=1587218]:
 0ms
get settings:
 8ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 39ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 56ms
get tp. blocked users:
 2ms
others: 14ms
total:  152ms
созд. / загр.: 152ms
x
x
Закрыть


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