I use DSO objects in a VB.NET application. When the
application exists, I get the following message:

"The instruction at 0x734633a1 referenced memory at
0x122b017c. The memory could not be read."

Calling the method using GetType.InvokeMember instead of
creating a .net interop assembly does not change anything.

In newsgroups, I have seen other persons who experienced
the same problem as me:

http://groups.google.com/groups?hl=e...=UTF-8&oe=UTF-
8&threadm=%23jYRBRn6CHA.1612%40TK2MSFTNGP11.phx.gb l&rnum=4

http://groups.google.com/groups?hl=e...=UTF-8&oe=UTF-
8&selm=020401c30f46%24307d6f00%24a101280a%40phx.gb l&rnum=5

The code I have tried is below.
Sincerely.
Elyo Ravuna


Module Module1
Sub Main()
Dim dsoServer As dso.Server
dsoServer.Connect "localhost"
dsoServer.CloseServer
Console.WriteLine("An exception is not yet thrown")
'The exception will be thrown just now
End Sub
End Module

Module Module2
Sub Main()
Dim dsoServer As Object
dsoServer = CreateObject("dso.Server")
dsoServer.GetType.InvokeMember("Connect",
Reflection.BindingFlags.InvokeMethod, Nothing, dsoServer,
New String() {"localhost"})
dsoServer.GetType.InvokeMember("CloseServer",
Reflection.BindingFlags.InvokeMethod, Nothing, dsoServer,
Nothing)
Console.WriteLine("An exception is not yet thrown")
'The exception will be thrown just now
End Sub
End Module

Hi Elyo,

Thanks for your post. Based on my research, the two codes snips you provide
do not induce the error you mentioned on my side. I would like you to
provide more information so that I can narrow down this issue.
1. What is the version of Analysis Services (Service Pack) on your side?
Please check to see the version of the file msmdsrv.exe to verify the
version of Analysis Services.
2. I performed the following codes on my side successfully and please try
to perform them on your computer to see if the error message occurs again.

Module Module1
Sub Main()
Dim dsoServer As New DSO.Server
dsoServer.Connect "localhost"
dsoServer.CloseServer
Console.WriteLine("An exception is not yet thrown")
'The exception will be thrown just now
End Sub
End Module

Module Module2
Sub Main()
Dim dsoServer As Object
dsoServer = CreateObject("dso.Server")
dsoServer.GetType.InvokeMember("Connect",
Reflection.BindingFlags.InvokeMethod, Nothing, dsoServer,
New String() {"localhost"})
dsoServer.GetType.InvokeMember("CloseServer",
Reflection.BindingFlags.InvokeMethod, Nothing, dsoServer,
Nothing)
Console.WriteLine("An exception is not yet thrown")
'The exception will be thrown just now
End Sub
End Module

3. Does the error message occur randomly? If it is possible, can you try to
perform the following tests on your side?
a. Perform the problematic codes on another computer connecting to the
local server?
b. Perform the problematic codes on another computer connecting to the same
server as the one used in the codes which induced the error.

What is the result?

If the problem is regular and can be reproduced on the other computers,
please provide the sample code and describe the reproduce steps in detail
so that I can try to reproduce this problem on my computer.

Also, such issues tend to be complex and take up extensive research time.
I'd like to set your expectations that it may take a while for us to help
you narrow down the problem and we may eventually redirect you to PSS to
continue working with a dedicated Support Professional. If this is
critical, I'd recommend contacting PSS and opening a Support incident
troubleshoot this further. If you need any help in this regard, please let
me know.

Regards,

Michael Shao
Microsoft Online Partner Support
Get Secure! - www.microsoft.com/security
This posting is provided "as is" with no warranties and confers no rights.

Someone on another NG posted the solution:

The threading must be set to MTA, not STA, for DSO.

:-)

"Kris Rudin" <krudin (AT) nospam (DOT) com> wrote