ReSQL.ru
     
powered by simpleCommunicator - 2.0.36     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / BACKUP и прогрессбар
11 сообщений из 11, страница 1 из 1
BACKUP и прогрессбар
    #39717939
AndrF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndrF
Участник
Давно уже делал - сейчас приходится вспоминать.

Есть ADODB.Connection к базе MS SQL. Через Execute выполняется длительная операция бэкапа/восстановления. Нужно отрисовывать прогрессбар. Понятно что это делается через асинхронные операции, но ведь нужно еще получить процент выполнения...

Но может кто может поделиться готовым примерчиком, чтобы не рыться в слепую?
...
Рейтинг: 0 / 0
16.10.2018, 09:43
| Ответить | Цитировать | Написать  
BACKUP и прогрессбар
    #39717942
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
AndrFоперация бэкапа/восстановленияШтатная? или собственный алгоритм?
...
Рейтинг: 0 / 0
16.10.2018, 09:56
| Ответить | Цитировать | Написать  
BACKUP и прогрессбар
    #39717948
AndrF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndrF
Участник
Shocker.ProAndrFоперация бэкапа/восстановленияШтатная? или собственный алгоритм?

Типа:

Код: vbnet
1.
2.
        cn.Execute "BACKUP DATABASE [edu_usedo] TO  DISK = N'L:\Backup\test.bak'" & vbCrLf _
            & "WITH COPY_ONLY, NOFORMAT, INIT, NAME = N'Test-Full Database Backup', SKIP, NOREWIND, NOUNLOAD, STATS = 5", , adAsyncExecute
...
Рейтинг: 0 / 0
16.10.2018, 10:10
| Ответить | Цитировать | Написать  
BACKUP и прогрессбар
    #39717966
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Студия как-то получает этот прогресс, значит возможно.
Можно для начала посмотреть обмен между студией и сервером с помощью профайлера.
А вообще, КМК, вопрос больше для раздела MSSQL
...
Рейтинг: 0 / 0
16.10.2018, 10:33
| Ответить | Цитировать | Написать  
BACKUP и прогрессбар
    #39717972
AndrF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndrF
Участник
Shocker.ProСтудия как-то получает этот прогресс, значит возможно.
Можно для начала посмотреть обмен между студией и сервером с помощью профайлера.
А вообще, КМК, вопрос больше для раздела MSSQL

Да фиг там ответят. Мне ведь надо как получить эти проценты в VB6, а не как выполнить бэкап в MS SQL...
...
Рейтинг: 0 / 0
16.10.2018, 10:44
| Ответить | Цитировать | Написать  
BACKUP и прогрессбар
    #39717976
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Скажем так, проценты надо получить в ADO, что такое ADO - там знают

Вот, к примеру, поиск выдал первую же ссылку там http://www.sql.ru/forum/1177868/sql2008r2-kak-otsledit-progress-bekapa
...
Рейтинг: 0 / 0
16.10.2018, 10:50
| Ответить | Цитировать | Написать  
BACKUP и прогрессбар
    #39718165
Roman Mejtes
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Roman Mejtes
Участник
есть 1 способ, довольно простой :)
раз в секунду добавляем к прогресс бару 10% от процента незавершенного процента и прибавляем к проценту выполнения. Когда он будет подходить к 100% будет всё медленнее и медленнее, а потом в конце бац и делаем 100% :D готово
...
Рейтинг: 0 / 0
16.10.2018, 14:15
| Ответить | Цитировать | Написать  
BACKUP и прогрессбар
    #39718192
ATM-TURBO 2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ATM-TURBO 2
Гость
А если так?
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
Dim WithEvents cRS As ADODB.Recordset
....
Set cRS = cCn.Execute("<SQL>", , adAsyncFetch)
....
Private Sub cRS_FetchProgress(ByVal Progress As Long, ByVal MaxProgress As Long, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
' // Вызывается периодически
End Sub
...
Рейтинг: 0 / 0
16.10.2018, 14:40
| Ответить | Цитировать | Написать  
BACKUP и прогрессбар
    #39718193
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Roman Mejtesесть 1 способ, довольно простой :)
раз в секунду добавляем к прогресс бару 10% от процента незавершенного процента и прибавляем к проценту выполнения. Когда он будет подходить к 100% будет всё медленнее и медленнее, а потом в конце бац и делаем 100% :D готовоНенавижу!!!!!! А-а-а-а!!!!
...
Рейтинг: 0 / 0
16.10.2018, 14:41
| Ответить | Цитировать | Написать  
BACKUP и прогрессбар
    #39718194
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
ATM-TURBO 2А если так?
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
Dim WithEvents cRS As ADODB.Recordset
....
Set cRS = cCn.Execute("<SQL>", , adAsyncFetch)
....
Private Sub cRS_FetchProgress(ByVal Progress As Long, ByVal MaxProgress As Long, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
' // Вызывается периодически
End Sub

Это если своя процедура, которая может выдавать прогресс. А тут одна единственная команда выполняется в пакете
...
Рейтинг: 0 / 0
16.10.2018, 14:43
| Ответить | Цитировать | Написать  
BACKUP и прогрессбар
    #39718282
AndrF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndrF
Участник
Shocker.ProСкажем так, проценты надо получить в ADO, что такое ADO - там знают

Вот, к примеру, поиск выдал первую же ссылку там http://www.sql.ru/forum/1177868/sql2008r2-kak-otsledit-progress-bekapa

Ну, в принципе, по ссылке есть за что зацепиться. Попробовал... Чуть доработать и будет работать нормально.

Хотя, помниться, давным-давно я в ADODB как-то перехватывал то что в SSMS выводится в Messages. Но как - забыл напрочь.
...
Рейтинг: 0 / 0
16.10.2018, 16:48
| Ответить | Цитировать | Написать  
11 сообщений из 11, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / BACKUP и прогрессбар
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=39717942&tid=2154990]:
 0ms
get settings:
 11ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 36ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 49ms
get tp. blocked users:
 1ms
others: 17ms
total:  150ms
созд. / загр.: 150ms
x
x
Закрыть


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