Зависание программы после вызова хранимой процедуры на сервере

@Ejinator · Регистрация: 27.07.2015

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

Добрый день!
Столкнулся с проблемой следующего характера:
Вызываю хранимую процедуру на SQL сервере. Всё хорошо - работает. Но, в момент её вызова основная форма программы зависает. Т.е. пишет не отвечает, нет возможности её перемещать. Поэтому если пользователь будет её использовать, то может подумать что все зависло и закрыть её. Чтобы это не произошло решил сделать ProgressBar работающий по таймеру.

Visual Basic

Private Sub Timer1_Timer()
If ProgressBar1.Value < ProgressBar1.Max Then
ProgressBar1.Value = ProgressBar1.Value + 1
DoEvents
Else
ProgressBar1.Value = 0
DoEvents
End If
End Sub

Запускаю таймер по клику на Command. Все крутится до момента вызова хранимой процедуры. Код ниже

Visual Basic

Private Sub Command1_Click()
Timer1.Enabled = True
Dim rs As ADODB.Recordset
Dim cmd As ADODB.Command
Set cmd = New ADODB.Command
cmd.CommandTimeout = 20000000
cmd.ActiveConnection = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Server=Сервер;Database=MyBase;Trusted_Connection=Yes"
 cmd.CommandType = adCmdStoredProc
cmd.CommandText = "Хранимка"
 
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.CursorType = adOpenStatic
rs.LockType = adLockReadOnly
rs.Open cmd
Timer1.Enabled = False
End Sub

Про DoEvents я почитал и как понял, он больше подходит для циклов. Как мне поступить и сделать так, чтобы ProgressBar бегал, пока хранимка делается (минуты 2)? Заранее благодарю

@Ejinator · 26.05.2016, 14:44 **[ТС]**

Решил сделать потоками. Поток на ProgressBar работает, как надо.

Visual Basic

Private ThreadControl1 As clsThreading
Private ThreadControl2 As clsThreading
Private Sub Command1_Click()
Dim mThreadPriority As ThreadPriority
Dim mEnabled As Boolean
 Set ThreadControl1 = New clsThreading
' Set ThreadControl2 = New clsThreading
    ex = 1
    mThreadPriority = tpNormal
    mEnabled = True
   'Поток 1
    ThreadControl1.CreateNewThread AddressOf Forma2, mThreadPriority, mEnabled
   'Поток 2
    ThreadControl1.CreateNewThread AddressOf Forma1, mThreadPriority, mEnabled
end sub

в отдельном модуле функция

Visual Basic

Public Function Forma2()
Form1.ProgressBar1.Visible = True
 
Do
        If Form1.ProgressBar1.Value >= Form1.ProgressBar1.Max Then
        Form1.ProgressBar1.Value = 0
        Else
        Form1.ProgressBar1.Value = Form1.ProgressBar1.Value + 1
        End If
Loop
Form1.ProgressBar1.Visible = False
End Function

Вторым потоком хочу запустить выполнение хранимой процедуры. Так же создаю для нее поток. Но выпадает ошибка
Automation error CoInitialize has not be called на строчку

Visual Basic

1	Set cmd = New ADODB.Command

Visual Basic

Public Function Forma1()
Dim rs As ADODB.Recordset
Dim cmd As ADODB.Command
Set cmd = New ADODB.Command
cmd.CommandTimeout = 20000000
cmd.ActiveConnection = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Server=Сервер;Database=MyBase;Trusted_Connection=Yes"
 cmd.CommandType = adCmdStoredProc
cmd.CommandText = "Хранимка"
 
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.CursorType = adOpenStatic
rs.LockType = adLockReadOnly
rs.Open cmd
end Function

просто в форме и без потоков код работает нормально.
Помогите пожалуйста разобраться!

@Catstail · 26.05.2016, 14:56

Вам бы лучше обратиться в раздел по SQL-серверу

@Ejinator · 27.05.2016, 11:53 **[ТС]**

Проект создаю в Microsoft Visual Basic 6.0, сюда и решил написать..

Добавлено через 20 часов 22 минуты
Проблему с ошибкой решил добавлением библиотек

Visual Basic

1 2	Public Declare Function CoInitialize Lib "ole32" (pvReserved As Any) As Long Public Declare Function CoUninitialize Lib "ole32" () As Long

И вызовом функций внутри потока, который вызывает хранимую процедуру на сервере.

Visual Basic

1
2
3

CoInitialize ByVal 0&
....
CoUninitialize

Хранимка выполняется - все хорошо.

@Catstail Модератор 36610 / 20336 / 4223 Регистрация: 12.02.2012 Сообщений: 33,660 Записей в блоге: 13
	26.05.2016, 14:56	3
	Вам бы лучше обратиться в раздел по SQL-серверу 0

	27.05.2016, 11:53

Зависание программы после вызова хранимой процедуры на сервере

Решение