оброго времени суток.
Поможите с проблемой, не знаю синтаксиса или ещё чего..
В общем нужно вытащить из БД Oracle в DBF файлик, с последующим архивированием.
Выгрузку в DBF файл победил както, а вот с последующим ахивированием спотыкаюсь.
При запуске *.ЕХЕшки выходит сообщение, что процесс не может получить доступ к файлу т.к. он занят другим процессом.
Я так понимаю, что создание файла еще не завершено, а уже есть попытка архивирования :(
Вот кусок кода

IF CREATE_FILE_RSD('SELECT * FROM fordbf_table ',lcArcIn1) THEN
ENDIF

Use
Do Add_WinRar With lcArcCmd
If File(lcArcOut)
If File(lcArcIn)
Erase (lcArcIn)
Endif
Endif

Где тут грабли?

Большую часть жизни занимался Oracle, а тут трава не расти нужен кусок софтины именно на фоксе..
,а я в нем как свинья в апельсинах понимаю :(

to puls

что тут Add_WinRar?Коды на покажи.
Да это собственно кусок работающего кода, вытащил из какой то проги.
То что этот кусок работающий убедился создав ЕХЕшку в которой только этот Add_WinRar

Ну а его код вот
***************************************************************
Procedure Add_WinRar
Parameters lcArchiverCmd
Local lnWinRARExitCode,; && Код возврата WinRAR
lcMessage && Для MessageBox()

lnWinRARExitCode = 0

Set Classlib To "process.vcx" Additive

oProcess = Createobject("API_AppRun",lcArchiverCmd,"","NOR")
oProcess.LaunchAppAndWait()

lnWinRARExitCode = oProcess.CheckProcessExitCode()

*!* Анализ кода возврата
Do Case
Case lnWinRARExitCode = 1
lcMessage = "Произошла некритическая ошибка"
Case lnWinRARExitCode = 2
lcMessage = "Произошла критическая ошибка"
Case lnWinRARExitCode = 3
lcMessage = "Во время распаковки обнаружена ошибка CRC"
Case lnWinRARExitCode = 4
lcMessage = "Попытка изменения заблокированного архива"
Case lnWinRARExitCode = 5
lcMessage = "Произошла ошибка записи на диск"
Case lnWinRARExitCode = 6
lcMessage = "Произошла ошибка открытия файла"
Case lnWinRARExitCode = 7
lcMessage = "Ошибка при указании команды/параметра в командной строке"
Case lnWinRARExitCode = 8
lcMessage = "Недостаточно памяти для выполнения операции"
Case lnWinRARExitCode = 9
lcMessage = "Ошибка при создании файла"
Case lnWinRARExitCode = 255
clcMessage = "Операция была прервана пользователем"
Otherwise
lcMessage = "Неизвестная ошибка"
Endcase
If lnWinRARExitCode >=1
=Messagebox("Внимание!" + Chr(13);
+ "Работа архиватора была завершена с ошибкой или прервана" + Chr(13);
+ 'Сообщение архиватора: "' + lcMessage + '"' + Chr(13);
+ "Рекомендуется повторно произвести действие";
,0+48,"Результат работы архиватора")
Else
=Messagebox("Работа успешно завершена" ,0+64, "Результат работы архиватора")
Endif
Set Classlib To
Return