Run-time error '-2147221504 (80040000)

16 Nov 2007 11:59 AM

Claudia Fong

I tried to run a vb application in debug mode and i got this Run-time
error '-2147221504 (80040000)

it seems that has to do with a multilanguage dll file that needs to be
register which I did, but it still didn't fix the error.

the line that gives me the error is the one below:

ResLoader.ResourceFile = App.Path & "\Report.res"

Does someone know to resolve this?

Cheers!

Claudi

*** Sent via Developersdex http://www.developersdex.com ***

16 Nov 2007 2:00 PM

Steve Easton

MSDN says this is the error:
-2147221504 (80040000) Invalid OLEVERB structure

If SQL related, search for this KB article: Q234736

--

Steve Easton

Show quote

"Claudia Fong" <cdolphi***@yahoo.co.uk> wrote in message news:%23ugcagEKIHA.5980@TK2MSFTNGP04.phx.gbl...
>I tried to run a vb application in debug mode and i got this Run-time
> error '-2147221504 (80040000)
>
> it seems that has to do with a multilanguage dll file that needs to be
> register which I did, but it still didn't fix the error.
>
> the line that gives me the error is the one below:
>
> ResLoader.ResourceFile = App.Path & "\Report.res"
>
> Does someone know to resolve this?
>
> Cheers!
>
> Claudi
>
> *** Sent via Developersdex http://www.developersdex.com ***

16 Nov 2007 3:20 PM

Dave O.

"Claudia Fong" <cdolphi***@yahoo.co.uk> wrote in message
news:%23ugcagEKIHA.5980@TK2MSFTNGP04.phx.gbl...
>I tried to run a vb application in debug mode and i got this Run-time
> error '-2147221504 (80040000)
>
> it seems that has to do with a multilanguage dll file that needs to be
> register which I did, but it still didn't fix the error.
>
> the line that gives me the error is the one below:
>
> ResLoader.ResourceFile = App.Path & "\Report.res"

It's probably not the problem but App.Path & "\Report.res" will fail if the
App.Path is a root directory.
You should check to see if the trailing slash is needed and then only add
one when appropriate.

As an example (for one liner lovers everywhere):
ResLoader.ResourceFile = App.Path & IIf(Right$(App.Path ,1) = "\","","\") &
"Report.res"

Regards
Dave O.