[VB6] Errore con CrystalViewer 9 - "Accesso non riuscito"

[Saraservice]

Spero veramente che qualcuno riesca ad aiutarmi.


Ho un'applicazione scritta in vb6 che deve stampare le fatture a fine mese. Questo programma ha funzionato benissimo per circa 3 anni, un paio di settimane fa ho sostituito il crystal report 7 con il 9, per una questione di aggiornamento e per la maggiori funzioni disponibili su questo pacchetto. Il problema è questo: se dico che voglio stampare tutte le fatture una dietro l'altra dopo circa una decina di documenti il programma mi restituisce un errore:

"ACCESSO NON RIUSCITO"
Dettagli: DAO Erro Code: 0xbed
Source: DAO.DbEngine
Description: Troppe attività di tipo client

Inserisco anche il codice che ho utilizzato:

  Dim APPLICATION As New CRAXDRT.APPLICATION
  Dim REPORT As CRAXDRT.REPORT
  Set REPORT = APPLICATION.OpenReport(MYREPORT) 
  ' mytreport contiene il precorso del report
  reports.CRViewer91.ReportSource = REPORT
  reports.CRViewer91.Refresh
  ' la variabile vis è true se ho impostato l'anteprima a video
  ' la variabile vis è false se deve stampare direttamente su stampante
  If vis = True Then
    reports.CRViewer91.ViewReport
    reports.Show vbModal
  End If
  If vis = False Then
    reports.CRViewer91.ViewReport
    reports.CRViewer91.PrintReport
  End If
  Set REPORT = Nothing
  Set APPLICATION = Nothing
  DoEvents
  Unload reports

[MMarzia]

ricorda di inserire il codice nell'apposito tag [*CODE] codice [*/CODE] (senza asterischi)

[Saraservice]

scusa ma che vuol dire ?

[Saraservice]

comunque ho risolto, se potesse servire ad altri riporto la soluzione:

in caso di stampa diretta non usate il viewer ma il componente crystalreport selezionando dalla casella componenti la voce crystal report control, il codice modificato è così

REPORTNAME = MYREPORT
If MYREPORT <> "" Then
x = Dir(REPORTNAME)
If x <> "" Then
Set REPORT = APPLICATION.OpenReport(MYREPORT)
reports.CRViewer91.ReportSource = REPORT
If vis = True Then
reports.CRViewer91.ViewReport
reports.Show vbModal
End If
If vis = False Then
CrystalReport2.ReportFileName = MYREPORT
CrystalReport2.PrintReport
End If
Set REPORT = Nothing
Set APPLICATION = Nothing
DoEvents
Unload reports


ciao a tutti

[MMarzia]

Originariamente inviato da Saraservice
scusa ma che vuol dire ?

come scritto nel regolamento sarebbe bene includere il codice postato nell'apposito tag, per renderlo più leggibile..

basta cliccare il bottone 'CODE' e digitarlo nell'input box oppure scrivere direttamente nel messaggio

[*CODE]

codice

[*/CODE]


togliendo gli asterischi

[Saraservice]

ok, grazie per la prossima non lo sapevo, scusa