Error 430 when set ADODB.Command.Activeconnection (VB6 W2000Pro )
I'm very apreciate some help about this problem.
I have problem when I want to set the ActiveConnection property on ADODB.Command object in "Visual Basic 6 SP5" running on Windows 2000 Profesional.
In my project->references I have set "Microsoft Activex Data Objects 2.5" and "Microsoft Activex Data Objects 2.5 for Recordsets"
The code run in a Class Module's Sub:
Dim cnnOra as New ADODB.Connection
Dim cmdOra As New ADODB.Command
Dim oraPrm1 As New ADODB.Parameter
Dim oraPrm2 As New ADODB.Parameter
Dim oraRS As New ADODB.Recordset
cnnOra.Provider="OraOLEDB.Oracle.1"
cnnOra.ConnectionString="PLSQLRSet=1; Data Source=DB8i; User ID=Scott; Password=Tiger; FetchSize=200"
cnnOra.CursorLocation = adUseClient
cnnOra.Open
Set cmdOra.ActiveConnection = cnnOra 'HERE TRIGER THE ERROR
Set oraPrm1 = cmdOra.CreateParameter("oraPrm1", adBSTR, adParamInput, , Key)
cmdOra.Parameters.Append oraPrm1
Set oraPrm2 = cmdOra.CreateParameter("oraPrm2", adSmallInt, adParamOutput)
cmdOra.Parameters.Append oraPrm2
cmdOra.CommandText = "{CALL PCK_ORADIC.GET_TABLE_STRUCTURE(?,?)}"
Set oraRS = cmdOra.Execute
ERROR--> "Run time error '430': Class does not support Automation or does not support expected interface"
Thank's