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?
VB Code:
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




Reply With Quote