Pergunta : “Argumento inválido fornecido.” O erro ao gerar PDFs na aplicação de VB.NET através do cristal relata o visor

Eu desenvolvi uma aplicação simples para gerar originais do pdf. Trabalha apenas fino, a não ser que pareça que aproximadamente cada 8o relatório gerado ele me dá “um argumento inválido fornecido. Não recuperam dados da base de dados. Erro na lima C:\DOCUME ~1 \ \ LOCALS~1 \ Temp \ PDF_Report {EDB21020-D860-4FEE-B5FA-55AD61847E3F} .rpt: Argumento inválido para a base de dados.” erro. A aplicação é pretendida ler um jogo das variáveis de uma lima de texto, para gerar o relatório, a seguir para exportar essa lima para o dobrador apropriado. Está aqui meu código:

Imports CrystalDecisions.CrystalReports.Os punhos secundários confidenciais Start.Click

da classe Form1

Start_Click de Engine
Imports CrystalDecisions.Shared
Imports System.IO
Imports System.Threading.Thread

Public (remetente de ByVal como System.Object, ByVal e como System.EventArgs) 'criam o exemplo novo de StreamReader com a utilização de block.
Using o leitor como StreamReader = contador não ofuscante novo do

de StreamReader (“file.txt”) como o inteiro = o 0

quando (não) o
escurecer a linha como String
AssessmentID não ofuscante como String
VisitID não ofuscante como o rptPath não ofuscante de String
como linha de String

= reader.ReadLine

AssessmentID = linha.
VisitID = linha do Substring (0, 7). Substring(8, 7) o rptPath do

= de “C:\PDF _Report.rpt " escurece o CR como o crParameterDiscreteValue não ofuscante novo do

do
CR.SetDatabaseLogon de ReportDocument

CR.Load (rptPath) ( do “usuário ", “senha”, “usuário”, “DB”) como o crParameterFieldDefinitions de ParameterDiscreteValue
como o crParameterFieldLocation não ofuscante de ParameterFieldDefinitions
como crParameterValues não ofuscantes de ParameterFieldDefinition
enquanto ParameterValues
o “
” começ os crParameterValues do
do crParameterFieldLocation = do crParameterFieldDefinitions.Item

do
dos parâmetros collection.
'crParameterFieldDefinition/>s = CR.DataDefinition.ParameterFields
'do relatório (“@AssessmentID”) = o crParameterDiscreteValue de crParameterFieldLocation.CurrentValues
= novo CrystalDecisions.Shared.ParameterDiscreteValue
crParameterDiscreteValue.Value = de
crParameterValues.Add do Int (AssessmentID) crParameterValues do
do crParameterFieldLocation = do crParameterFieldDefinitions.Item do

do
crParameterFieldLocation.ApplyCurrentValues (crParameterDiscreteValue) (crParameterValues) (“@Visit_OID”) = crParameterFieldLocation.CurrentValues
'crParameterDiscreteValue = CrystalDecisions.Shared.ParameterDiscreteValue
crParameterDiscreteValue.Value = de
crParameterFieldLocation.ApplyCurrentValues de VisitID
crParameterValues.Add (crParameterDiscreteValue) crParameterFieldDefinition
(crParameterValues)/>s = CR.DataDefinition.ParameterFields

CrystalReportViewer1.ReportSource = CR

txtAssessmentVisit.Text = AssessmentID &”/“& VisitID

escurecem o myDiskFileDestinationOptions como CrystalDecisions.Shared.DiskFileDestinationOptions
                o myDiskFileDestinationOptions = o
de CrystalDecisions.Shared.DiskFileDestinationOptions () escurece myExportOptions como myExportFile não ofuscante de CrystalDecisions.Shared.ExportOptions
como String
myExportFile = “S:\Missed Assessments\MIASA” & do
de AssessmentID & de” .pdf "/>eName = os myExportOptions do myExportFile
= CR.ExportOptions
myExportOptions.DestinationOptions = myDiskFileDestinationOptions
myExportOptions.ExportDestinationType = ExportDestinationType.DiskFile
myExportOptions.ExportFormatType = de
GC.Collect de ExportFormatType.PortableDocFormat

CR.Export () o

() opor = contrário + 1
extremidade Sub
End Class

Thank do

de Using

MessageBox.Show myDiskFileDestinationOptions.DiskFil do fim do

de txtNumberProcessed.Text = de counter.ToString () (“exportação completa”) você para seu assistance. class= do

Resposta : “Argumento inválido fornecido.” O erro ao gerar PDFs na aplicação de VB.NET através do cristal relata o visor

Tentativa que faz a coleção do garbabe duas vezes:
Limpar a memória.
GC.Collect ();
GC.WaitForPendingFinalizers ();

// que O GC precisa de ser chamado duas vezes a fim começ
// Finalizers chamou - a primeira vez dentro, faz simplesmente
// uma lista do que deve ser finalizada, a segunda vez dentro,
// ele realmente a finalizacão. Somente então
o objeto de // faz seu ReleaseComObject automático.
GC.Collect ();
GC.WaitForPendingFinalizers ();