Crystal Report Vb e Oracle

Luca Martini 30/03/2006 Difficoltà: Difficile

Ciao a tutti , sto creando un programmino che stampa un report fatto con CRXI e usa Oracle 9 .

Lanciando la stampa da Crystal funziona correttamente.
Lanciandola da programma ..(ho scaricato un file di esempio da internet sul sito di un lobro che abbiamo acquistato) e mi da errore ...cosa sbaglio?
Grazie per le risposte! Luca Martini

Il messaggio di errore che appare e:

Impossibile cariceare le informazioni del database
Dettagli:Impossibile caricare la DLL crdb_oracle.dll di database
Errore nel file c:\....rpt
Impossibile caricare le informazioni del database


Vi copio la parte di codice


Private Sub frmReport_Load(ByVal sender As System.Object, Byval e As System.EventArgs) Handles MyBase.Load

Dim Report As New Avenance1
'Report.RecordSelectionFormula = "{Orders.Order Date} In #" & strStartDate & "# To #" & strEndDate & "#"


''Provide database credentials via Report Object model
'Report.SetDatabaseLogon("RISOHEF", "RISOHEF", "ORACLE9IMERCURIO", "RISOHEF")



Dim Logon As New TableLogOnInfo
Dim Tbl As Table
For Each Tbl In Report.Database.Tables
Logon = Tbl.LogOnInfo
Logon.ConnectionInfo.ServerName = "ORACLE9iMERCURIO"
'Logon.ConnectionInfo.DatabaseName = "xtreme"
Logon.ConnectionInfo.UserID = "RISOHEF"
Logon.ConnectionInfo.Password = "RISOHEF"
Tbl.ApplyLogOnInfo(Logon)
Next Tbl

'Provide database credentials to subreports
Dim Subreport As ReportDocument
For Each Subreport In Report.Subreports
For Each Tbl In Subreport.Database.Tables
Logon = Tbl.LogOnInfo
Logon.ConnectionInfo.ServerName = "ORACLE9iMERCURIO"
'Logon.ConnectionInfo.DatabaseName = "xtreme"
Logon.ConnectionInfo.UserID = "RISOHEF"
Logon.ConnectionInfo.Password = "RISOHEF"
Tbl.ApplyLogOnInfo(Logon)
Next 'Tbl
Next 'Subreport


Report.RecordSelectionFormula = "{conto_econ_r.c_societa} = '" & Societa & "'"

'DESTINAZIONE DELLA STAMPA
Select Case strDestination
Case "Preview"
CrystalReportViewer1.ReportSource = Report
Case "Print"
Report.PrintToPrinter(1, False, 0, 0)
Me.Close()
Case "E-Mail"
Dim ExportOptions As New CrystalDecisions.Shared.ExportOptions
Dim EMailOptions As New CrystalDecisions.Shared.MicrosoftMailDestinationOptions
ExportOptions.ExportFormatType = ExportFormatType.PortableDocFormat
ExportOptions.ExportDestinationType = ExportDestinationType.MicrosoftMail
EMailOptions.MailToList = strEMailAddress
EMailOptions.MailSubject = "Stampa Avenance"
EMailOptions.MailMessage = "Stampa Avenance in formato PDF"
ExportOptions.ExportDestinationOptions = EMailOptions
Report.Export(ExportOptions)
Me.Close()
End Select
End Sub