Ciao a tutti
Problemone con Crystal Report
Qualcuno di voi lo conosce
Sulla server al quale punto quando creo il report tutto OK
dove creo il report funziona tranquillamente
se cambio server non mi apre + il report e mi da l'errore
server has not yet been opened
Sub Visriepilogo()
On Error GoTo GestErr
Dim frmRpt As Form
Dim nomeserver As String
Dim nomedb As String
Dim userdb As String
Dim pwddb As String
Dim rsmat As ADODB.Recordset
Set rsmat = New ADODB.Recordset
'recupero i dati dalla stringa di connessione
If InStr(cn.ConnectionString, "password") > 0 Then
pwddb = Right(cn.ConnectionString, Len(cn.ConnectionString) - InStr(LCase(cn.ConnectionString), "password") - 8)
pwddb = Left(pwddb, InStr(pwddb, ";") - 1)
Else
pwddb = ""
End If
nomeserver = Right(cn.ConnectionString, Len(cn.ConnectionString) - InStr(LCase(cn.ConnectionString), "data source") - 11)
nomeserver = Left(nomeserver, InStr(nomeserver, ";") - 1)
userdb = Right(cn.ConnectionString, Len(cn.ConnectionString) - InStr(LCase(cn.ConnectionString), "user id") - 7)
userdb = Left(userdb, InStr(userdb, ";") - 1)
nomedb = Right(cn.ConnectionString, Len(cn.ConnectionString) - InStr(LCase(cn.ConnectionString), "initial catalog") - 15)
nomedb = Left(nomedb, InStr(nomedb, ";") - 1)
Set frmRpt = New frmReport
Load frmRpt
Dim crAPP As New CRAXDRT.Application
Dim Report As CRAXDRT.Report
Set Report = crAPP.OpenReport(App.Path & "\Crystal\" & "riepilogo.rpt")
AVEVO TROVATO SU INTERNET QUESTA ROBA MA NON MI FA NIENTE
crAPP.LogOnServer "p2ssql.dll", nomeserver, nomedb, userdb, pwddb
'QUESTE LE AVEVO MESSE PER DISPERAZIONE ADESSO LE HO COMMENTATE
'Report.Database.Tables(1).SetLogOnInfo nomeserver, nomedb, userdb, pwddb
'Report.Database.Tables(1).SetLogOnInfo nomeserver, nomedb, userdb, pwddb
frmRpt.Caption = "Uscita"
frmRpt.CRViewer1.Move 50, 50, Screen.Width - 200, Screen.Height - 1000
frmRpt.CRViewer1.ReportSource = Report
Report.RecordSelectionFormula = miastr
frmRpt.Refresh
'QUI MI DA L'ERRORE 'SERVER HAS NOT YET BEEN OPENED'
frmRpt.CRViewer1.ViewReport
frmRpt.Show vbModal
Set Report = Nothing
Set crAPP = Nothing
Set rsmat = Nothing
Exit Sub
GestErr:
MsgBox Err.Number & " " & Err.Description
End Sub
Grazie a tutti ciao ciao