Обновление БД через инет!!!

@sPan4eZ · Регистрация: 16.09.2009

Студворк — интернет-сервис помощи студентам

Народ как сделать обновление файла Access через интернет более раней версии или ранее даты обновления ??

Народ как с помощью idFTP метода get скачать с фтп файл в нужную директорию?

Срочно помогите пожалуйста!!!

@sPan4eZ · 17.09.2009, 22:17 **[ТС]**

Теперь ошибка

File not exists

@GAV_13 · 17.09.2009, 22:19

а он на фтп есть в этой папке? о_О

@Lord_Voodoo · 17.09.2009, 22:26

не надо писать перед файлом адреса. если папку не укажешь, он в корневом катологе искать станет, тем более ты апишник и данные аутентификации указываешь

@sPan4eZ · 17.09.2009, 22:34 **[ТС]**

Сообщение от GAV_13

а он на фтп есть в этой папке? о_О

Он в корневой папке

@GAV_13 · 17.09.2009, 22:35

Тогда:

Сообщение от VoodooMan

не надо писать перед файлом адреса. если папку не укажешь, он в корневом катологе искать станет, тем более ты апишник и данные аутентификации указываешь

@Lord_Voodoo · 17.09.2009, 22:35

а если так?

Delphi
1
 idftp1.Get('СоставКлана.mdb', 'D:\1\СоставКлана.mdb', True);

@sPan4eZ · 17.09.2009, 22:36 **[ТС]**

Сообщение от VoodooMan

а если так?

Delphi
1
 idftp1.Get('СоставКлана.mdb', 'D:\1\СоставКлана.mdb', True);

Ты мозг закачался

Спасибо люди

Теперь другой вопрос как сделать так чтобы постоянно он скидывал файл к exeшнику программы в туже папку)))

@Lord_Voodoo · 17.09.2009, 22:40

я это делаю при запуске программы. тобишь в событии OnCreate

@sPan4eZ · 17.09.2009, 22:46 **[ТС]**

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
begin
  ADOConnection1.Connected:=false;
  idFTP1.Host := '10.0.0.106';
  idFTP1.Username := 'root';
  idFTP1.Password := '12345';
  idFtp1.Connect(True);
  idftp1.Get('СоставКлана.mdb', 'C:\bdclan\СоставКлана.mdb', True);
  idFTP1.Disconnect();
  ADOConnection1.Connected:=True;
  ADOQuery1.Active:=True;
  ADOQuery2.Active:=True;
  ADOQuery3.Active:=True;
  ADOQuery4.Active:=True;
end;

Вот следущая трабла я не могу залить его в корневую папку так как он открыт и за нет программой

Хоть и отключаю ADOConnection без разници(((

@GAV_13 · 17.09.2009, 22:52

Открытие соединения с базой производится процедурой ADOConnection1.Open, закрытие - ADOConnection1.Close.

А разве не так?

@sPan4eZ · 17.09.2009, 22:54 **[ТС]**

И это пробовал

@Lord_Voodoo · 17.09.2009, 22:57

sPan4eZ, ведь задача тривиальна... тебе надо до установки соединения скачать обновление, а потом уже с ним делай, все что хочешь

@GAV_13 · 17.09.2009, 22:59

Может она еще чем-то открыта?

Добавлено через 1 минуту
Кстати, не проще ли сделать при загрузке проги форму автоматического обновления, которая потом грохается, и передает управление главной?

@sPan4eZ · 17.09.2009, 23:02 **[ТС]**

Сообщение от GAV_13

Может она еще чем-то открыта?

Нет Файл access я не открываю просто

Сообщение от VoodooMan

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

Ты мне сейчас подал идею код вставить в кнопку пуск самым первым)))

Добавлено через 1 минуту
Да все теперь нормально)))

@GAV_13 · 17.09.2009, 23:05

Сообщение от sPan4eZ

Ты мне сейчас подал идею код вставить в кнопку пуск самым первым)))

Сообщение от VoodooMan

я это делаю при запуске программы. тобишь в событии OnCreate

Уже говорилось) Или ты в конструкторе формы соединение с базой настраиваешь? Тогда обновление - в конструктор, сааамыми первыми строчками. И не выставляй всякие там "автоконнекты", и True в свойствах активности ADO компонентов на этапе конструирования. лучше в коде открывать соединение с базой, ИМХО

@sPan4eZ · 17.09.2009, 23:11 **[ТС]**

Теперь осталось сделать чтобы БД обновлялась в корень программы!!!

@GAV_13 · 17.09.2009, 23:15

Delphi
1
idftp1.Get('СоставКлана.mdb', 'C:\bdclan\СоставКлана.mdb', True);

меняешь на

Delphi
1
idftp1.Get('СоставКлана.mdb', Path_To_MyProgram+'СоставКлана.mdb', True);

как найти путь к программе Path_To_MyProgram - тривиальнейшая задача)

@sPan4eZ · 17.09.2009, 23:23 **[ТС]**

[Error] Unit1.pas(109): Undeclared identifier: 'PathToMyProgram'

Вот что написали мне )))

@GAV_13 · 17.09.2009, 23:26

он действительно Undeclared. Его надо объявить, и присвоить ему путь к проге.

Delphi
1
PathToMyProgram:=ExtractFilePath(paramstr(0));

@Lord_Voodoo · 17.09.2009, 23:31

ExtractFilePath(Application.ExeName)

GAV_13, вот видишь - не такая уж и тривиальная она выходит)))

Новые блоги и статьи Все статьи Все блоги /
20. Мат мед. Абсентеизм как отдельный тип простоя anaschu 29.05.2026 Апдейт модели: исправленные баги, абсентеизм и новые механизмы Продолжаю развивать ранее описанную модель рабочего коллектива на AnyLogic. За последние несколько дней был проведён серьёзный. . .	19. здоровье, усталость и психотип работника влияют на производительность предприятия, и наоборот, производительность на здоровье, усталось и психотип anaschu 28.05.2026 Дискретно-событийная модель рабочего коллектива на AnyLogic: здоровье, выгорание, психотипы и микростимуляция Привет, коллеги. Хочу поделиться итогами нескольких недель работы над симуляционной. . .	"Прокси" для последовательного порта Eddy_Em 28.05.2026 Эту штуку написал я достаточно давно. Но сейчас вот понадобилось настроить датчик грозы, но при этом не отключать его от "метеодемона". Соответственно, надо запустить этот "прокси": метеодемон будет. . .	Рефакторинг программы уравнивания. Massaraksh7 26.05.2026 Пример по предыдущей записи в блоге. Но, надо заметить, что, во-первых, там оптимизация не только математики, но и работы с базой данных, и с графами, а во-вторых, это ещё не всё.
Использование TThread в Lazarus для математических вычислений. Massaraksh7 25.05.2026 Производя рефакторинг своих программ на предмет ускорения их работы, обратил внимание на такой аспект, как сокращение времени матвычислений. Дело в том, что приходится работать с большими матрицами. . .	Модель здравосохранения 18. Чем здоровее работник, тем быстрее выгорает anaschu 24.05.2026 Имитационная модель корпоративного здравоохранения: что показывает математика Сегодня в модели рабочего коллектива на AnyLogic появились три новые механики — выгорание через накопленную усталость,. . .	Модель здравосохранения 17. Планы на выгорание anaschu 23.05.2026 Вот конкретная схема реализации: В классе Работник добавить: накопленнаяУсталость — растёт каждый час работы, снижается в перерывы и болезни коэффициентПрезентеизма — снижает продуктивность. . .	Изменение цветов в палитре gif файла aka фавикона russiannick 23.05.2026 Изменение цветов в палитре gif файла, юзаемого как фавиконка в составе html-файла, помещенная в base64, средствами нативного Java Script, навеянное сном в майский день. Для работы необходим браузер,. . .

@sPan4eZ 0 / 0 / 0 Регистрация: 16.09.2009 Сообщений: 62

	Обновление БД через инет!!! 17.09.2009, 16:19. Показов 5868. Ответов 59 Метки нет (Все метки) Народ как сделать обновление файла Access через интернет более раней версии или ранее даты обновления ?? Народ как с помощью idFTP метода get скачать с фтп файл в нужную директорию? Срочно помогите пожалуйста!!! 0

@GAV_13 81 / 81 / 6 Регистрация: 14.09.2009 Сообщений: 252
	17.09.2009, 22:19
	а он на фтп есть в этой папке? о_О 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	17.09.2009, 22:26
	не надо писать перед файлом адреса. если папку не укажешь, он в корневом катологе искать станет, тем более ты апишник и данные аутентификации указываешь 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	17.09.2009, 22:40
	я это делаю при запуске программы. тобишь в событии OnCreate 0

@sPan4eZ 0 / 0 / 0 Регистрация: 16.09.2009 Сообщений: 62
	17.09.2009, 22:54 [ТС]
	И это пробовал 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	17.09.2009, 22:57
	sPan4eZ, ведь задача тривиальна... тебе надо до установки соединения скачать обновление, а потом уже с ним делай, все что хочешь 0

@GAV_13 81 / 81 / 6 Регистрация: 14.09.2009 Сообщений: 252
	17.09.2009, 22:59
	Может она еще чем-то открыта? Добавлено через 1 минуту Кстати, не проще ли сделать при загрузке проги форму автоматического обновления, которая потом грохается, и передает управление главной? 0

@sPan4eZ 0 / 0 / 0 Регистрация: 16.09.2009 Сообщений: 62
	17.09.2009, 23:11 [ТС]
	Теперь осталось сделать чтобы БД обновлялась в корень программы!!! 0

@sPan4eZ 0 / 0 / 0 Регистрация: 16.09.2009 Сообщений: 62
	17.09.2009, 23:23 [ТС]
	[Error] Unit1.pas(109): Undeclared identifier: 'PathToMyProgram' Вот что написали мне ))) 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	17.09.2009, 23:31
	ExtractFilePath(Application.ExeName) GAV_13, вот видишь - не такая уж и тривиальная она выходит))) 0