Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Пауза между Shell и DoCmd / 13 сообщений из 13, страница 1 из 1
06.07.2009, 13:30
    #36075052
--==Purpleman==--
--==Purpleman==--
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пауза между Shell и DoCmd
Господа! Будте добры подскажите пожайлусто,

Код: plaintext
1.
Shell("MyPath")
DoCmd.TranferDatabase acImport, "", "", ""

как между shell и DoCmd паузу воткнуть ... чтоб импорт происходил после Shell а не одновременно.
Чтобы сначала Shell закончил свою работу а уже потом импорт начинался ???

Заранее спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.07.2009, 13:48
    #36075133
..............................
..............................
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пауза между Shell и DoCmd
...а чем занимается Ваш Shell?
нильзя его на Wscript.Shell заменить?
типа так
Код: plaintext
1.
2.
3.
  Set wshShell = CreateObject("Wscript.Shell")
  wshShell.Run Chr( 34 ) & WinRARexe & Chr( 34 ) & " a -ep1 -m" & CompressType & " " & Chr( 34 ) & CompressFileName & Chr( 34 ) & " " & Chr( 34 ) & FileName & Chr( 34 ), , WaitCompressComplete
  Set wshShell = Nothing
вот этот параметр - WaitCompressComplete (True/False) - обозначает надо ли дожидатся окончания выполнения метода Run
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.07.2009, 13:48
    #36075134
Владимир Саныч
Владимир СанычПривилегированный пользователь
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пауза между Shell и DoCmd
http://sql.ru/forum/actualthread.aspx?tid=583502
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.07.2009, 13:56
    #36075164
--==Purpleman==--
--==Purpleman==--
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пауза между Shell и DoCmd
..............................,

мой shell запускает BAT файл который в свою очередь делает из файла DAT файл DBF а уж потом DBF импортируется в базу ...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.07.2009, 14:08
    #36075209
............................
............................
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пауза между Shell и DoCmd
--==Purpleman==--..............................,

мой shell запускает BAT файл который в свою очередь делает из файла DAT файл DBF а уж потом DBF импортируется в базу ...

значит Wscript.Shell - вполне подойдет
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
22.10.2020, 14:04
    #40010888
Adilby
Adilby
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пауза между Shell и DoCmd
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Private Sub Кнопка7_Click()
Dim shProg As String, shFile As String, shFold As String, str As String
    'shProg = Chr(34) & "C:\Program Files\7-Zip\7z.exe" & Chr(34) & " x -aoa -r"
    shProg = "C:\Program Files\7-Zip\7z.exe x -aoa -r"
    shFile = Application.CurrentProject.Path & "\New" & Me.lbNameApp.Caption & ".7z"
    shFold = Application.CurrentProject.Path

    str = shProg & " " & Chr(34) & shFile & Chr(34) & " -o " & Chr(34) & shFold & Chr(34) & " " & "*.*"
    WshRunNormalAndWait str
'    Shell str

End Sub

Public Function WshRunNormalAndWait(FilePath As String)
Dim Wsh
    Set Wsh = CreateObject("Wscript.Shell")
    Debug.Print FilePath
    Call Wsh.Run(FilePath, 1, True)
    Set Wsh = Nothing
End Function



Что здесь не так? Не распаковывает. А Shell str беспроблем распаковывает.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.10.2020, 15:00
    #40010912
Leonid Kudryavtsev
Leonid Kudryavtsev
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пауза между Shell и DoCmd
пробелы в пути в имени файла/программы ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.10.2020, 06:34
    #40011062
Adilby
Adilby
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пауза между Shell и DoCmd
Leonid Kudryavtsev,

так там кавычки же есть. Все равно работает.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.10.2020, 14:35
    #40011225
Adilby
Adilby
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пауза между Shell и DoCmd
Кто что может подсказать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.10.2020, 13:21
    #40011670
Adilby
Adilby
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пауза между Shell и DoCmd
Adilby
Все равно работает.


*Все равно НЕ работает.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.10.2020, 11:57
    #40011824
Кривцов Анатолий
Кривцов Анатолий
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пауза между Shell и DoCmd
Adilbystr = shProg & " " & Chr(34) & shFile & Chr(34) & " -o " & Chr(34) & shFold & Chr(34) & " " & "*.*" Покажите, как выглядит содержимое str.
Выделенное красным в реальности стрелка?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.10.2020, 13:39
    #40011861
Adilby
Adilby
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пауза между Shell и DoCmd
Кривцов Анатолий
Покажите, как выглядит содержимое str.

Если
Код: vbnet
1.
shProg = "C:\Program Files\7-Zip\7z.exe x -aoa -r"


то Debug.Print str:
Код: vbnet
1.
C:\Program Files\7-Zip\7z.exe x -aoa -r "C:\Update\NewApp.7z" -o "C:\Update" *.*

при этом выскакивает ошибка: Method 'Run' of object 'IWshShell3' failed

а если
Код: vbnet
1.
shProg = Chr(34) & "C:\Program Files\7-Zip\7z.exe" & Chr(34) & " x -aoa -r"


то Debug.Print str:
Код: vbnet
1.
"C:\Program Files\7-Zip\7z.exe" x -aoa -r "C:\Update\NewApp.7z" -o "C:\Update" *.*

проходит без каких-либо ошибок, но ничего не распаковывает.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.10.2020, 13:40
    #40011863
Adilby
Adilby
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пауза между Shell и DoCmd
Кривцов Анатолий
Выделенное красным в реальности стрелка?
Нет, это тире и маленькая латинская буква o
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Пауза между Shell и DoCmd / 13 сообщений из 13, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 1338ms
Закрыть
start [/forum/moderation_log.php?user_name=%D0%93%D0%BE%D1%81%D1%82%D1%8C_777]:
 0ms
get settings:
 10ms
get forum list:
 12ms
get settings:
 8ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 60ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 45ms
get tp. blocked users:
 1ms
others: 1173ms
total:  1338ms
x
x
Закрыть


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