Use CR with MsAccess and Oracle

Campbell, Stanley (Stan); Stanley_Campbell@dscc.dla.mil
WEB: http://www.dscc.dla.mil

In This Code I have data Stored in a Access.MDB and an Oracle Database.

I put these in a Module:

Public MyDataSource As String
Public MyUserID As String
Public MyPassword As String
Public strConnectInformation As String


Getting Ready to Use the Report.

   Dim DateParam As String

    'Reset Crystal Report Selection Criteria.
   CrystalReport1.SelectionFormula = ""
   CrystalReport1.ParameterFields(0) = ""

   'Put Date in Proper Format for Crystal Reports.
   DateParam = Format(DateSelected, "yyyy,mm,dd")

   'Start Crystal Reports Code.
   Call ConnectToCR
   CrystalReport1.ParameterFields(0) = "DateToReport; DATE(" & DateParam & ") ;TRUE"
   CrystalReport1.ReportFileName = "Q:\Daily.rpt"
   CrystalReport1.Destination = 1   'Send to Printer
   CrystalReport1.WindowTitle = "Daily Report"
   CrystalReport1.Action = 1  ' Run Report

I connect to an Oracle Database.

Private Sub ConnectToCR()
   MyDataSource = "Name of Oracle Table"
   MyUserID = "USER"
   MyPassword = "ORACLE"
   'DataSetQualifier = "Name of Oracle Table" & Chr$(0)

   strConnectInformation = "DSN = " & MyDataSource & ";"
   strConnectInformation = strConnectInformation & "UID = " & MyUserID &    ";" 
   strConnectInformation = strConnectInformation & "PWD = " &    MyPassword & ";"
   strConnectInformation = strConnectInformation & "DSQ = " '& DataSetQualifier
   CrystalReport1.Connect = strConnectInformation
End Sub
Return