Вопрос : «Обеспеченный несостоятельный довод.» Ошибка производя PDFs в применении VB.NET через Кристл сообщает телезрителя

Я начинал просто применение для того чтобы произвести документы PDF. Оно работает как раз точное, кроме того что оно кажется что приблизительно каждый 8th произведенный рапорт оно дает мне «обеспеченный несостоятельный довод. Сумено для того чтобы восстановить данные от базы данных. Ошибка в архиве C:\DOCUME ~1 \ \ LOCALS~1 \ Temp \ PDF_Report {EDB21020-D860-4FEE-B5FA-55AD61847E3F} .rpt: Несостоятельный довод для базы данных.» ошибка. Применение предназначено прочитать комплект перемеююых от архива текста, произвести рапорт, тогда для того чтобы ехпортировать тот архив к соотвествующему скоросшивателю. Здесь мое Кодий:

Imports CrystalDecisions.CrystalReports.Ручки Start.Click

типа Form1

приватные Sub Start_Click Engine
Imports CrystalDecisions.Shared
Imports System.IO
Imports System.Threading.Thread

Public (прислужника ByVal как System.Object, ByVal e как System.EventArgs) 'создают новый пример StreamReader с использованием block.
Using читатель как StreamReader = новый счетчик

StreamReader («file.txt») тусклый как интежер = 0

пока (не)
затемняет линию как String
тусклое AssessmentID как String
тусклое VisitID как rptPath String
тусклое по мере того как линия String

= reader.ReadLine

AssessmentID = линия. Подстрока (0, 7)
VisitID = линия. Подстрока (8, rptPath 7)

= «C:\PDF _Report.rpt " затемняет CR как новое crParameterDiscreteValue


CR.SetDatabaseLogon ReportDocument

CR.Load (rptPath) ( «потребителя ", «пароля», «сервера», «db») тусклое как новое crParameterFieldDefinitions ParameterDiscreteValue
тусклое как crParameterFieldLocation ParameterFieldDefinitions
тусклое как crParameterValues ParameterFieldDefinition
тусклые по мере того как новое ParameterValues
«
» получает crParameterValues
crParameterFieldLocation = crParameterFieldDefinitions.Item


параметров collection.
'crParameterFieldDefinition/>s = CR.DataDefinition.ParameterFields
'рапорта («@AssessmentID») = crParameterDiscreteValue crParameterFieldLocation.CurrentValues
= новое CrystalDecisions.Shared.ParameterDiscreteValue
crParameterDiscreteValue.Value =
crParameterValues.Add Int (AssessmentID) crParameterValues
crParameterFieldLocation = crParameterFieldDefinitions.Item


crParameterFieldLocation.ApplyCurrentValues (crParameterDiscreteValue) (crParameterValues) («@Visit_OID») = crParameterFieldLocation.CurrentValues
'crParameterDiscreteValue = новое CrystalDecisions.Shared.ParameterDiscreteValue
crParameterDiscreteValue.Value =
crParameterFieldLocation.ApplyCurrentValues VisitID
crParameterValues.Add (crParameterDiscreteValue) crParameterFieldDefinition
(crParameterValues)/>s = CR.DataDefinition.ParameterFields

CrystalReportViewer1.ReportSource = CR

txtAssessmentVisit.Text = AssessmentID &»/«& VisitID

затемняют myDiskFileDestinationOptions как myDiskFileDestinationOptioskFileDestinationOptions
/>ns = ново
CrystalDecisions.Shared.DiskFileDestinationOptions () затемняет myExportOptions как myExportFile CrystalDecisions.Shared.ExportOptions
тусклое как String
myExportFile = «S:\Missed Assessments\MIASA» &
AssessmentID &» .pdf "/>eName = myExportOptions myExportFile
= CR.ExportOptions
myExportOptions.DestinationOptions = myDiskFileDestinationOptions
myExportOptions.ExportDestinationType = ExportDestinationType.DiskFile
myExportOptions.ExportFormatType =
GC.Collect ExportFormatType.PortableDocFormat

CR.Export ()

() противопоставляют = встречно + 1
конец Sub
End Class

Thank

Using

MessageBox.Show myDiskFileDestinationOptions.DiskFil конца

txtNumberProcessed.Text = counter.ToString () («экспорт вполне») вы для вашего assistance. class=

Ответ : «Обеспеченный несостоятельный довод.» Ошибка производя PDFs в применении VB.NET через Кристл сообщает телезрителя

Попытка делая собрание garbabe дважды:
Очистьте вверх память.
GC.Collect ();
GC.WaitForPendingFinalizers ();

//, котор GC нужно быть вызванным дважды для того чтобы получить
// Finalizers вызвало - the first time внутри, оно просто делает
// список должно быть уточненным, the second time внутри,
// оно фактическ уточнять. Только после этого будьте
предмет // делает свое автоматическое ReleaseComObject.
GC.Collect ();
GC.WaitForPendingFinalizers ();