Go Premium for a chance to win a PS4. Enter to Win

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 722
  • Last Modified:

ActiveX component can't create object

The following code cause an "ActiveX component can't create object" on the "set en=rdoenvironments(0)" line.
I am running this on a W 2000 Advanced server.

Dim Cn As New rdoConnection
    Dim En As rdoEnvironment
    Dim Qd As New rdoQuery
    Dim Rs As rdoResultset
    Dim Conn As String
    Dim tempcnt As Integer
    Dim strDate, strQd$, strQd1$
       
       Command1.Caption = "Start"
       Conn = "UID=scott;PWD=tiger;dsn=o9ia;SERVER=o9ia;"
       
       Set En = rdoEnvironments(0)
       En.CursorDriver = rdUseOdbc
       With Cn
           .Connect = Conn
           .CursorDriver = rdUseOdbc
           .EstablishConnection rdDriverNoPrompt, False
       End With

       Set Qd.ActiveConnection = Cn

       Qd.SQL = "{call gjb_testdate1(?,?)}"
       Qd(0).Direction = rdParamInput
       Qd(1).Direction = rdParamOutput
       Qd(0).Type = rdTypeDATE
       
       Qd(0) = CDate("1/1/1900")
       Qd.Execute
       strQd = Mid(Qd(1), 12)
       strQd1 = Mid(Qd(1), 1, 11)
       Debug.Print "For the date you entered: " & strQd1 & vbCrLf & strQd
       MsgBox "For the date you entered: " & strQd1 & vbCrLf & strQd

   End Sub

   
I tried register and rdo.rd.... and still get "429". The procedure is try to call an oracle procedure.
 

0
MrCrawfish
Asked:
MrCrawfish
1 Solution
 
chops123Commented:
This error is encountered when the Active-X component you have referenced is not registered on your machine.

If you are using a self made Active-X Component,you need to register the same on you PC.

Do the foll:

Click on Start-Run and type the following.

regsvr32 c:\foldername\myComponent.dll

This will register the DLL in your PC.

Rgds
KC
0
 
basha_ahmadCommented:
Mr. CrawFish...

    Check out whether rdo library has been registered on
your pc. if it is not then get it registered.

    The DLL is MSRDO20.dll which you can get without a prob.

The registration process is same as chops has said.

bye
basha
0
 
toys032498Commented:

Use Option Explicit

You have

Dim En As rdoEnvironment

Set En = rdoEnvironments(0) ' You spelled it wrong -> added a "s"
0
Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
rpaiCommented:
0
 
raja_velpuruCommented:
Are u writing VB or ASP?

If it is VB,
u have to use:

Dim en As RDO.rdoEnvironment
Set en = rdoEngine.rdoEnvironments(0)
0
 
chops123Commented:
From the code,MrCrawfish seems to be using VB.

The only issue is DLL registration.Once registered,you will be through with your program

Rgds
KC
0
 
WakieCommented:
It appears this question has been abandoned.

I will leave a recommendation in the Cleanup topic area that this question will be:

- Question PAQ'd and points to toys -

Please leave any comments here within the next seven days.

DO NOT ACCEPT THIS COMMENT AS AN ANSWER!

Wakie,
EE Cleanup Volunteer.
0

Featured Post

Concerto Cloud for Software Providers & ISVs

Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!

Learn how Concerto can help you.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now