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