Run-Time error '-2147417848 (80010108)'

[Algirdas Masiulis]

Hi all!

When I try and run any of the reports in my VB6 application In Win98 I get
an error:

CrystalReport1.action = 1

Run-Time error '-2147417848 (80010108)':
Method 'Action' of object 'CrystalCtrl' failed

In Win95 all of reports work correct.

Can someone tell me what happened and how to fix it?

Thanks in Advance

ALMA J III

[hfl...@intermedia.com]

In article <#eL#OAWO#GA....@uppssnewspub05.moswest.msn.net>,

I was getting the same error message when I wanted to use Oracle Objects 2.3
to connect to the database (through VB 5 code). We already had a login form
that connected to the same database and it worked fine. So, I copied the
form and added it to my VB project and made sure I had all the declarations
and any code I needed (from modules etc) in my current project. Here I get
that nasty error message and in my case it said: Method 'OpenDatabase' of
object '_IOraSession' failed. To get down to the basics of all this I opened
a VB project where the login worked successfully and copied the code. I
started a brand new project and pasted the code. Yippie, I got a connection.
So I went back to the 'failing' project and cut and past the code to make it
the same as the working project. Didn't work.

It got to the point where I started two sessions of VB, in project A (brand
new project, new form etc) in a form behind a command button I pasted the
working code, then behind a command button on the form in the second session
with Project B (also brand new form etc)I also pasted the same code. One
worked and one gave me that error message. How did I fix it? Sounds stupid
but I just closed the non working project, didn't save my changes, and
started a new session of VB, opened the project and ran it. You won't
believe this but it worked. Sounds like flakiness with VB's Automation. I
see people having this problem using Crystal to VB, Oracle Objects to VB,
scanners to VB. My amateur opinion: Bug or instability in VB (I use VB5 by
the way) I'm not saying that starting a new session of VB will fix it for
you but you just never know.

>
>

-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own

[Durk van Veen]

I'm not sure what is causing your particular problem, but the error code is
defined under C++ as RPC_E_DISCONNECTED, indicating that the object you're
talking to has disconnected from its clients. It could very well be a bug in
VB. Here's some code to do something useful with the error code and make it
presentable:

Const FORMAT_MESSAGE_FROM_SYSTEM = &H1000
Private Declare Function FormatMessage Lib "kernel32" Alias _
"FormatMessageA" ( ByVal dwFlags As Long, lpSource As Long, _
ByVal dwMessageId As Long, ByVal dwLanguageId As Long, _
ByVal lpBuffer As String, ByVal nSize As Long, Arguments As Any) _
As Long

Private Function MessageText(lCode As Long) As String
Dim sRtrnCode As String
Dim lRet As Long
sRtrnCode = Space$(256)
lRet = FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM, 0&, lCode, 0&, _
sRtrnCode, 256&, 0&)
If lRet > 0 Then
MessageText = Left(sRtrnCode, lRet)
Else
MessageText = "Error not found."
End If
End Function

hfl...@intermedia.com wrote in message <78oabl$vmv$1...@nnrp1.dejanews.com>...

>In article <#eL#OAWO#GA....@uppssnewspub05.moswest.msn.net>,
> "Algirdas Masiulis" <masi...@mail.iae.lt> wrote:
>> Hi all!
>>
>> When I try and run any of the reports in my VB6 application In Win98 I
get
>> an error:
>>
>> CrystalReport1.action = 1
>>
>> Run-Time error '-2147417848 (80010108)':
>> Method 'Action' of object 'CrystalCtrl' failed
>>

wn