Inaccurate Data Problem?

[blakemckenna]

I am having a problem with my Crystal Report...but I'm not sure if it's my VB6 program or the CR. I have written code in VB to access my Crystal Report, however, whenever I run the program to access the report....the data is invalid. I know this because I check the Access Database to see what SHOULD be on the report. Should I be refreshing the report data everytime BEFORE I run the report and if so, how do I do this?

I have attached my VB code.

Thanks,

Blake

Private Sub Form_Load()
    Dim oApp        As CRAXDRT.Application
    Dim oReport     As CRAXDRT.Report
    Dim oRs         As ADODB.Recordset
    Dim oConn       As New ADODB.Connection
    Dim sSQL        As String
    Dim dbPath      As String
    
    On Error GoTo ErrProc
    
    Load frmMessage
    DoEvents
    DoEvents
    DoEvents
    
    Me.Width = MDIMain.ScaleWidth
    Me.Height = MDIMain.ScaleHeight
    Me.Left = 0
    Me.Top = 0
    
    CR1.Height = Me.ScaleHeight - 400
    CR1.Width = Me.ScaleWidth - 300
    
    dbPath = App.Path & "\JIC.mdb"
    
    oConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbPath & ";User Id=admin;Password=;"
    oConn.Open
    
    Select Case report_type
        Case "1"    'Master Item Listing Report
            sSQL = "SELECT * FROM tblItemMaster"
            Set oRs = New ADODB.Recordset
            Set oRs = oConn.Execute(sSQL)
            Set oApp = New CRAXDRT.Application
            Set oReport = oApp.OpenReport(App.Path & "\Reports\ItemListing.rpt", 1)
            oReport.Database.SetDataSource oRs, 3, 1
            CR1.ReportSource = oReport
            CR1.ViewReport
        Case "2"    'Item Reorder Status Report
            sSQL = "SELECT * FROM tblItemMaster"
            Set oRs = New ADODB.Recordset
            Set oRs = oConn.Execute(sSQL)
            Set oApp = New CRAXDRT.Application
            Set oReport = oApp.OpenReport(App.Path & "\Reports\ItemReorderStatus.rpt", 1)
            oReport.Database.SetDataSource oRs, 3, 1
            CR1.ReportSource = oReport
            CR1.ViewReport
        Case "3"    'Item Inventory Report
            sSQL = "SELECT * FROM tblItemMaster"
            Set oRs = New ADODB.Recordset
            Set oRs = oConn.Execute(sSQL)
            Set oApp = New CRAXDRT.Application
            Set oReport = oApp.OpenReport(App.Path & "\Reports\ItemInventory.rpt", 1)
            oReport.Database.SetDataSource oRs, 3, 1
            CR1.ReportSource = oReport
            CR1.ViewReport
        Case "4"    'Item Inventory Alert Report
            sSQL = "SELECT * FROM tblInventoryRpt"
            Set oRs = New ADODB.Recordset
            Set oRs = oConn.Execute(sSQL)
            Set oApp = New CRAXDRT.Application
            Set oReport = oApp.OpenReport(App.Path & "\Reports\ItemInventoryAlert.rpt", 1)
            oReport.Database.SetDataSource oRs, 3, 1
            CR1.ReportSource = oReport
            CR1.ViewReport
            
            'Delete all records from the tblInventoryRpt table once report has printed
            tblInventoryRpt.Index = "PrimaryKey"
            tblInventoryRpt.Seek ">", ""
            
            If tblInventoryRpt.NoMatch Then
            Else
                Do Until tblInventoryRpt.EOF
                    tblInventoryRpt.Delete
                    tblInventoryRpt.MoveNext
                Loop
            End If
        Case "5"    'Customer Listing Report
            sSQL = "SELECT * FROM tblClients"
            Set oRs = New ADODB.Recordset
            Set oRs = oConn.Execute(sSQL)
            Set oApp = New CRAXDRT.Application
            Set oReport = oApp.OpenReport(App.Path & "\Reports\CustomerListing.rpt", 1)
            oReport.Database.SetDataSource oRs, 3, 1
            CR1.ReportSource = oReport
            CR1.ViewReport
        Case "6"    'Vendor Listing Report
            sSQL = "SELECT * FROM tblVendor"
            Set oRs = New ADODB.Recordset
            Set oRs = oConn.Execute(sSQL)
            Set oApp = New CRAXDRT.Application
            Set oReport = oApp.OpenReport(App.Path & "\Reports\VendorListing.rpt", 1)
            oReport.Database.SetDataSource oRs, 3, 1
            CR1.ReportSource = oReport
            CR1.ViewReport
    End Select
    
    Unload frmMessage
    
    Exit Sub
    
ErrProc:
    Select Case Err
        Case 384
            Resume Next
        Case Else
            MsgBox Err & ": " & Error
    End Select
End Sub

[pnish]

One possibility is that Save Data with Report is selected. Open your report in Crystal, click on the File menu and make sure this isn't checked.