ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Пауза между Shell и DoCmd
13 сообщений из 13, страница 1 из 1
Пауза между Shell и DoCmd
    #36075052
--==Purpleman==--
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
--==Purpleman==--
Гость
Господа! Будте добры подскажите пожайлусто,

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

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

Заранее спасибо!
...
Рейтинг: 0 / 0
06.07.2009, 13:30
| Ответить | Цитировать | Написать  
Пауза между Shell и DoCmd
    #36075133
..............................
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
..............................
Гость
...а чем занимается Ваш 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
| Ответить | Цитировать | Написать  
Пауза между Shell и DoCmd
    #36075134
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
http://sql.ru/forum/actualthread.aspx?tid=583502
...
Рейтинг: 0 / 0
06.07.2009, 13:48
| Ответить | Цитировать | Написать  
Пауза между Shell и DoCmd
    #36075164
--==Purpleman==--
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
--==Purpleman==--
Гость
..............................,

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

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

значит Wscript.Shell - вполне подойдет
...
Рейтинг: 0 / 0
06.07.2009, 14:08
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
Пауза между Shell и DoCmd
    #40010888
Adilby
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Adilby
Гость
Код: 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, 14:04
| Ответить | Цитировать | Написать  
Пауза между Shell и DoCmd
    #40010912
Leonid Kudryavtsev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Leonid Kudryavtsev
Участник
пробелы в пути в имени файла/программы ?
...
Рейтинг: 0 / 0
22.10.2020, 15:00
| Ответить | Цитировать | Написать  
Пауза между Shell и DoCmd
    #40011062
Adilby
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Adilby
Гость
Leonid Kudryavtsev,

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


*Все равно НЕ работает.
...
Рейтинг: 0 / 0
25.10.2020, 13:21
| Ответить | Цитировать | Написать  
Пауза между Shell и DoCmd
    #40011824
Кривцов Анатолий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кривцов Анатолий
Гость
Adilbystr = shProg & " " & Chr(34) & shFile & Chr(34) & " -o " & Chr(34) & shFold & Chr(34) & " " & "*.*" Покажите, как выглядит содержимое str.
Выделенное красным в реальности стрелка?
...
Рейтинг: 0 / 0
26.10.2020, 11:57
| Ответить | Цитировать | Написать  
Пауза между Shell и DoCmd
    #40011861
Adilby
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Adilby
Гость
Кривцов Анатолий
Покажите, как выглядит содержимое 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:39
| Ответить | Цитировать | Написать  
Пауза между Shell и DoCmd
    #40011863
Adilby
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Adilby
Гость
Кривцов Анатолий
Выделенное красным в реальности стрелка?
Нет, это тире и маленькая латинская буква o
...
Рейтинг: 0 / 0
26.10.2020, 13:40
| Ответить | Цитировать | Написать  
13 сообщений из 13, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Пауза между Shell и DoCmd
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=36075052&tid=1609888]:
 0ms
get settings:
 8ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 30ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 52ms
get tp. blocked users:
 1ms
others: 273ms
total:  399ms
созд. / загр.: 399ms
x
x
Закрыть


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