Com+ returns variant array, but
Here is the code:
Set oABTInteractions = CreateObject("ABTBusinessServ.clsbsInteraction",
vbNullString & Me.List2.Text) '****** If List2.Text is empty uses local
.dll
Me.List1.AddItem "Object created " & Text1.Text
On Error GoTo errClose
Dim vData As Variant
vData = oABTInteractions.Get_Interaction_Combo_Data(vbNullString &
Text1.Text, vbNullString & Text2.Text, vbNullString & Text3.Text) '*****
ERRORS HERE IF USING LOCAL .dll. WILL NOT ERROR IF VB IDE IS RUNNING THE
.dll PROJECT THOUGH. WORKS IF SERVER WITH COM+ SPECIFIED (ie.
CreateObject("ABTBusinessServ.clsbsInteraction", "myserver_com_001")
Me.List1.Clear
x = oABTInteractions.SQLServerName '******* No problems here with the
Property Get procedure.
Me.List1.AddItem CStr(x)
If IsArray(vData) Then
For i = 0 To UBound(vData, 2)
Me.List1.AddItem CStr(vData(0, i) & " - " & vData(1, i) & " - "
& CStr(vData(2, i)))
Next i
End If
Exit Sub
errClose:
MsgBox Err.Number & " - " & Err.Description
Resume Next
Quote:
> if I use that code on the exact same .dll locally, vData=obj.method1, I
get
> error
> "91-Object variable or With block variable not set"
> Against, the Set obj=CreateObject("Project1.Class1) ...works
> x=obj.property...works
> vData=obj.Method1 where Method1=rs.GetRows...works if COM+, but not if
.dll
> is local. Property Get statements work local.
> Any ideas??
