[VB6] Passare una query a Crystal Report

[basy82]

Ho installato crystal report 8.5 e lo sto utilizzando per la prima volta..(qundi ho bisogno di buoni consigli x iniziare )

Da visual basic utilizzo questo codice per richiamare il file '.rpt'

CrystalReport1.ReportFileName = App.Path & "\Report\fattura.rpt"
CrystalReport1.RetrieveDataFiles
CrystalReport1.PrintReport

LA mia domanda è:
Come faccio(se è possibile farlo) a passare una query di selezione a crystal report.. da vb?

Praticamente devo stampare una fattura..ma devo pescare dall'archivio..solo quella che visualizzo a video..

Avevo pensato di appoggiarmi ad una seconda tabella che scrivo al momento in cui l'utente clicca su 'Stampa'.. Ma se c'è un modo più veloce...è meglio...

[sosan1]

in VB crei un oggetto di tipo report

Dim report As New ReportDocument

e poi imposti RecordSelectionFormula che rappresenta proprio l'sql da passare

ad esempio
report.RecordSelectionFormula = "{TABANAGRAFICA.REGIONE} = '" & miaregione & "'"

[basy82]

Sigh nn mi riesce niente...
Partiamo per gradi...Sono rimasta ferma alla partenza..

Perchè se il report è vuoto..e lo richiamo da vb..lo visualizzo, ma appena inserisco un campo da crystal report...non funziona più?

Praticamente appare il report e riscompare..in un secondo..

Non capisco...

[sosan1]

allora...
1) il report si basa su dati letti da un db? allora il report deve avere una connessione al db selezioni la connessione e le tabelle che ti occorrono

2) da vb devi invece creare un oggetto che rappresenta il tuo report
come ti ho spiegato su e poi devi settare le credenziali e passarle al tuo report

esempio
Dim credenziali As New TableLogOnInfo
Dim report As New ReportDocument



Dim connessione As String = Application("Connessione")

credenziali.ConnectionInfo.UserID = miauserid credenziali.ConnectionInfo.Password = miapassword credenziali.ConnectionInfo.ServerName = mioDataSource

CrystalStatistiche.LogOnInfo.Add(credenziali)

poi le passi al report

For intTablesCount As Integer = 0 To report.Database.Tables().Count() - 1

report.Database.Tables(intTablesCount).ApplyLogOnI nfo(credenziali)
For intSubReportCount As Integer = 0 To report.Subreports().Count() - 1

For tabella As Integer = 0 To report.Subreports.Item(intSubReportCount).Database ().Tables.Count - 1 report.Subreports().Item(intSubReportCount).Databa se().Tables(tabella).ApplyLogOnInfo(credenziali)

Next

Next intSubReportCount

Next intTablesCount

[basy82]

Ti ringrazio x la disponibilità..e la pazienza.. ma ancora nn ho avuto il tempo di lavorarci su..

Cmq GRazieeeee !!!!

[tony83]

Originariamente inviato da sosan1
allora...
1) il report si basa su dati letti da un db? allora il report deve avere una connessione al db selezioni la connessione e le tabelle che ti occorrono

2) da vb devi invece creare un oggetto che rappresenta il tuo report
come ti ho spiegato su e poi devi settare le credenziali e passarle al tuo report

esempio
Dim credenziali As New TableLogOnInfo
Dim report As New ReportDocument



Dim connessione As String = Application("Connessione")

credenziali.ConnectionInfo.UserID = miauserid credenziali.ConnectionInfo.Password = miapassword credenziali.ConnectionInfo.ServerName = mioDataSource

CrystalStatistiche.LogOnInfo.Add(credenziali)

poi le passi al report

For intTablesCount As Integer = 0 To report.Database.Tables().Count() - 1

report.Database.Tables(intTablesCount).ApplyLogOnI nfo(credenziali)
For intSubReportCount As Integer = 0 To report.Subreports().Count() - 1

For tabella As Integer = 0 To report.Subreports.Item(intSubReportCount).Database ().Tables.Count - 1 report.Subreports().Item(intSubReportCount).Databa se().Tables(tabella).ApplyLogOnInfo(credenziali)

Next

Next intSubReportCount

Next intTablesCount

io ho fatto cosi:

        'Instanziamo la classe e creiamo un nuovo oggetto
        Dim credentials = New TableLogOnInfo()

        'Completiamo le proprietà con i nostri parametri per l'accesso a SQL
        credentials.ConnectionInfo.DatabaseName = ConfigurationSettings.AppSettings("database")
        '(credentials.TableName = "Q_REPORT")

        'Aggiungiamo le credenziali al Report Viewer
        'cry_agenda.LogOnInfo.Add(credentials)

        'Indichiamo al Report Viewer di caricare il Report creato (Report.rpt)
        Dim appPath = Path.GetDirectoryName(Environment.CurrentDirectory) & "\"
        cry_agenda.ReportSource = appPath & "cry_agenda.rpt"
        cry_agenda.Refresh()

e mi restituisce:

Eccezione non gestita di tipo "System.OutOfMemoryException" in system.windows.forms.dll

Informazioni aggiuntive: Errore durante la creazione dell'handle della finestra.

mi potete aiutare?

[alka]

Originariamente inviato da tony83
io ho fatto cosi [...]

Si parla di VB6 in questa discussione. :rollo: