В приложении MS Excel на VBA выполняется следующий запрос. На время обращения к БД происходит подвисание приложения так, что ничего больше делать нельзя ни в Word, ни в Excel, ни в Outlook до тех пор, пока не будет завершен метод Execute. Можно ли сделать этот процесс фоновым?
Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
conn.Provider = "SQLOLEDB.1"
conn.ConnectionTimeout = SQL_ConnectionTimeout
conn.CommandTimeout = SQL_CommandTimeout
conn.ConnectionString = "Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=DB1;Data Source="Server1"
conn.Open
Set rs = conn.Execute("select * from table1" )
...
rs.close
conn.Close
Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
conn.Provider = "SQLOLEDB.1"
conn.ConnectionTimeout = SQL_ConnectionTimeout
conn.CommandTimeout = SQL_CommandTimeout
conn.ConnectionString = "Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=DB1;Data Source="Server1"
conn.Open
Set rs = conn.Execute("select * from table1" )
...
rs.close
conn.Close