Visualizzazione dei risultati da 1 a 8 su 8

Discussione: [VB6] e crystal Report

  1. #1
    Utente di HTML.it L'avatar di Cozza
    Registrato dal
    Jan 2001
    Messaggi
    467

    [VB6] e crystal Report

    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
    Ho mille libri sotto il letto non leggo più
    ho mille sogni in un cassetto non lo apro più
    parlo da solo e mi confondo e penso
    che in fondo sì sto bene così

  2. #2
    Utente di HTML.it L'avatar di darkblOOd
    Registrato dal
    Jul 2001
    Messaggi
    2,212
    ma lei, dopo che cambia il server... cambia anche la ConnectionString dell'oggetto Connection?

  3. #3
    Utente di HTML.it L'avatar di Cozza
    Registrato dal
    Jan 2001
    Messaggi
    467
    beh certo ,
    quella la vado a leggere in un file esterno
    che mi vado a cambiare

    altrimenti mi darebbe errore già dalla prima connessione
    e non solo quando mi apro il report
    Ho mille libri sotto il letto non leggo più
    ho mille sogni in un cassetto non lo apro più
    parlo da solo e mi confondo e penso
    che in fondo sì sto bene così

  4. #4
    Utente di HTML.it L'avatar di darkblOOd
    Registrato dal
    Jul 2001
    Messaggi
    2,212
    e nel file .rpt che hai messo? sicuro che non fa riferimento cmq al primo server?

  5. #5
    Utente di HTML.it L'avatar di Cozza
    Registrato dal
    Jan 2001
    Messaggi
    467
    Originariamente inviato da darkblOOd
    e nel file .rpt che hai messo? sicuro che non fa riferimento cmq al primo server?
    esatto e se cerco di cambiarlo direttamente dal report mi da
    errore generale e poi error detected by database DLL

    cmq se mi dici che questa è la strada giusta faccio ancora qualche prova

    grazie
    Ho mille libri sotto il letto non leggo più
    ho mille sogni in un cassetto non lo apro più
    parlo da solo e mi confondo e penso
    che in fondo sì sto bene così

  6. #6
    Utente di HTML.it L'avatar di Cozza
    Registrato dal
    Jan 2001
    Messaggi
    467
    Originariamente inviato da Cozza
    esatto e se cerco di cambiarlo direttamente dal report mi da
    errore generale e poi error detected by database DLL
    ah dimenticavo...
    poi mi butta fuori da CR con un errore catastrofico che dice che la memoria non poteva essere read
    Ho mille libri sotto il letto non leggo più
    ho mille sogni in un cassetto non lo apro più
    parlo da solo e mi confondo e penso
    che in fondo sì sto bene così

  7. #7
    Utente di HTML.it L'avatar di darkblOOd
    Registrato dal
    Jul 2001
    Messaggi
    2,212
    Originariamente inviato da Cozza
    ah dimenticavo...
    poi mi butta fuori da CR con un errore catastrofico che dice che la memoria non poteva essere read
    :quipy:

    qui purtroppo abbimo poco da farci

    cmq secondo me il file .rpt si tiene la vecchia connectionstring, infatti se imposti il server con il quale hai creato il report funziona no?

  8. #8
    Utente di HTML.it L'avatar di Cozza
    Registrato dal
    Jan 2001
    Messaggi
    467
    ok

    era giusto il codice ke ho scritto (be' cannavo a recuperare nome server e password ma corretti quelli il problema rimaneva).

    Ho semplicemente ricreato il report e adesso funzia

    si vede che si era impastato quel report per i fatti suoi per qualche motivo che non so...
    Ho mille libri sotto il letto non leggo più
    ho mille sogni in un cassetto non lo apro più
    parlo da solo e mi confondo e penso
    che in fondo sì sto bene così

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.