VB 6.0 - Visual Basic 6.0 with Cystal Report 9.0

Hello, I am using Vb 6.0 and Crystal reports 9.0. I have registed successfully crystl32.ocx. but i got error number 20728 with "F", when i run the following codings.

 

    With CrystalReport1
        .ReportFileName = App.Path & "\EmpDetails.rpt"
        .Connect = App.Path & "\EmpData.mdb"
        .DiscardSavedData = True
        .RetrieveDataFiles
        .ReportSource = 0
       .Action = 1
    End With

 

Please reply me anyone. urgent . thanks

where the query u have wriiten to get the  report.

If optDOB.Value = True Then
        If txtFromDate.Text <> "" And txtToDate.Text <> "" Then
            strQryString = "{DatabaseProject.EmployeeDOB} >= #" & Format(txtFromDate.Text, "mm/dd/yyyy") & "# And {DatabaseProject.EmployeeDOB} <= #" & Format(txtToDate.Text, "mm/dd/yyyy") & "#"
        End If
     With CrystalReport1
        .ReportFileName = App.Path & "\EmpDetails.rpt"
        .Connect = App.Path & "\EmpData.mdb"
        .DiscardSavedData = True
        .RetrieveDataFiles
        .ReportSource = 0
        .SQLQuery = "Select * from DataBaseProject order by EmployeeName"
        .ReportTitle = "Employee Details Report"
        .Destination = crptToWindow
        .PrintFileType = crptCrystal
        .WindowState = crptMaximized
        .WindowMaxButton = False
        .WindowMinButton = False
        .SelectionFormula = strQryString
        .Action = 1
    End With
  End If

  If optDOB.Value = True Then
        If txtFromDate.Text <> "" And txtToDate.Text <> "" Then
            strQryString = "{DatabaseProject.EmployeeDOB} >= #" & Format(txtFromDate.Text, "mm/dd/yyyy") & "# And {DatabaseProject.EmployeeDOB} <= #" & Format(txtToDate.Text, "mm/dd/yyyy") & "#"
        End If
     With CrystalReport1
        .ReportFileName = App.Path & "\EmpDetails.rpt"
        .Connect = App.Path & "\EmpData.mdb"
        .DiscardSavedData = True
        .RetrieveDataFiles
        .ReportSource = 0
        .SQLQuery = "Select * from DataBaseProject order by EmployeeName"
        .ReportTitle = "Employee Details Report"
        .Destination = crptToWindow
        .PrintFileType = crptCrystal
        .WindowState = crptMaximized
        .WindowMaxButton = False
        .WindowMinButton = False
        .SelectionFormula = strQryString
        .Action = 1
    End With
  End If

. but i got error no. 20728 "F". i am using vb 6.0 and crystal 9.0. and i have registered successfully crystl32.ocx with all dependencies.

any answer would be appriciated.

  If optDOB.Value = True Then
        If txtFromDate.Text <> "" And txtToDate.Text <> "" Then
            strQryString = "{DatabaseProject.EmployeeDOB} >= #" & Format(txtFromDate.Text, "mm/dd/yyyy") & "# And {DatabaseProject.EmployeeDOB} <= #" & Format(txtToDate.Text, "mm/dd/yyyy") & "#"
        End If
     With CrystalReport1
        .ReportFileName = App.Path & "\EmpDetails.rpt"
        .Connect = App.Path & "\EmpData.mdb"
        .DiscardSavedData = True
        .RetrieveDataFiles
        .ReportSource = 0
        .SQLQuery = "Select * from DataBaseProject order by EmployeeName"
        .ReportTitle = "Employee Details Report"
        .Destination = crptToWindow
        .PrintFileType = crptCrystal
        .WindowState = crptMaximized
        .WindowMaxButton = False
        .WindowMinButton = False
        .SelectionFormula = strQryString
        .Action = 1
    End With
  End If

i am using vb 6.0 and crystal reports 9.0. and i have successfully registered crystal32.cx with all dependencies. but i got error no. 20728 "F"

You can use the mergw modules with CR10
http://support.businessobjects.com/library/kbase/articles/c2014817.asp

This may also help
http://support.businessobjects.com/communityCS/TechnicalPapers/rdc10_deployment.pdf.asp

hi
you got "http://visualbasic.ittoolbox.com/groups/technical-functional/vb-crystalreports-l/calling-crystal-reports-from-visual-basic-60-application-1742326#: 20728" With a Single letter "F"?. Its because of lower version of file crystl32.ocx and crpe32.dll.

Thanks you very much Adarsh Parmar, but what is newer version? i searched on the net, but i could not find newer version. can you able send the link.

Thanks

Thank you very much for helped me. i recoverred my error from http://www.xtremevbtalk.com/showthread.php?t=147299. Thanks a lot.