Hi,
I have automate my cube generation process into a VB application.
My problem is that I have to set my application to wait until all other instance of Transformer to be finished.
I do the following :
****
On Error Resume Next
'Detect running application
Do
Set objImrApp = GetObject _
(, "CognosTransformer.Application.Cer1")
If Err.Number <> 0 Then TrsfrmrNotRunningInd = True
Err.Clear
Loop While TrsfrmrNotRunningInd = False
On Error GoTo ErrLink
'Generate Cube
Set objTransApp = CreateObject _
"CognosTransformer.Application.Cer1")
Set objModel = objTransApp.OpenModel(strMDLPathName)
With objModel
.CreateMDCFiles
.Update
.Close
End With
Set objModel = Nothing
Set objTransApp = Nothing
****
Once executed, the GetObject doen't trap my running Transformer application.
Any clue ?
Regards,
Stéphane Lambert, Analyst/Programmer - BI Specialist
Info Quest (IQ), Data Warehouse System
McKesson Canada Corporation
EMail: stephane.lambert@mckesson.ca
I have automate my cube generation process into a VB application.
My problem is that I have to set my application to wait until all other instance of Transformer to be finished.
I do the following :
****
On Error Resume Next
'Detect running application
Do
Set objImrApp = GetObject _
(, "CognosTransformer.Application.Cer1")
If Err.Number <> 0 Then TrsfrmrNotRunningInd = True
Err.Clear
Loop While TrsfrmrNotRunningInd = False
On Error GoTo ErrLink
'Generate Cube
Set objTransApp = CreateObject _
"CognosTransformer.Application.Cer1")
Set objModel = objTransApp.OpenModel(strMDLPathName)
With objModel
.CreateMDCFiles
.Update
.Close
End With
Set objModel = Nothing
Set objTransApp = Nothing
****
Once executed, the GetObject doen't trap my running Transformer application.
Any clue ?
Regards,
Stéphane Lambert, Analyst/Programmer - BI Specialist
Info Quest (IQ), Data Warehouse System
McKesson Canada Corporation
EMail: stephane.lambert@mckesson.ca