[Solved]Error429:ActiveX component can't create object when try to use ADODB.Stream

[solar115]

Solution:
Check for MDAC installation. In my case, computer that got the problem have no MDAC install yet. My Application work fine after MDAC installation.


I got some error as "429 : ActiveX component can't create object." when I try to use ADODB.Stream in form of myStream.Type = adTypeBinary. (Please see on VBCode that show below).

I have test my application on many computer but only one computer that use Windows98SE got this error.

What is a problem? and What should I do for solve this problem?

Private Sub cmdView_Click()
On Error GoTo Resume_Error
Dim myStream As New ADODB.Stream
Dim cn As New ADODB.Connection
Dim rs1 As New ADODB.Recordset
Dim s As String
    cn.Open modMain.ConnectionString
    s = "SELECT RFile, RName FROM Registers WHERE RefNo = '" & ReferenceNumber & "'"
    rs1.CursorLocation = adUseClient
    rs1.Open s, cn, adOpenDynamic, adLockOptimistic
    If rs1!RName <> "" Then
        myStream.Type = adTypeBinary    '<< Error message when it try to do this line.
    End If
    rs1.Close
    Exit Sub
Resume_Error:
    MsgBox Err.Number & " : " & Err.Description, vbCritical, "Resume Error"
End Sub

[dee-u]

Try this...

Private Sub cmdView_Click()
    On Error GoTo Resume_Error
    Dim myStream    As ADODB.Stream
    Dim cn          As ADODB.Connection
    Dim rs1         As ADODB.Recordset
    
    Set myStream = New ADODB.Stream
    Set cn = New ADODB.Connection
    Set rs1 = New ADODB.Recordset
    
    Dim s As String
        cn.Open modMain.ConnectionString
        s = "SELECT RFile, RName FROM Registers WHERE RefNo = '" & ReferenceNumber & "'"
        rs1.CursorLocation = adUseClient
        rs1.Open s, cn, adOpenDynamic, adLockOptimistic
        If rs1!RName <> "" Then
            myStream.Type = adTypeBinary    '<< Error message when it try to do this line.
        End If
        rs1.Close
        Exit Sub
Resume_Error:
        MsgBox Err.Number & " : " & Err.Description, vbCritical, "Resume Error"
End Sub

[solar115]

dee-u,

I try as your suggestion and I waiting for some reply from other site that got this problem.

[dee-u]

dee-u,

I try as your suggestion and I waiting for some reply from other site that got this problem.

What other site? I thought it was your problem.

[solar115]

dee-u,
Yes,It my problem.
But I cannot test my app on many platform with only on my own computer. So that why I sent it to other site for test.

[solar115]

Solution:
Check for MDAC installation. In my case, computer that got the problem have no MDAC install yet. My Application work fine after MDAC installation.