title image


Smiley Re: Crystal Reports in VB einfügen
Hi,hast du dir schon das Beispielprogramm mal angeguckt? Viel kann das zwar nicht - aber so als Einstieg ist es nicht schlechtIch hab das Beispielprogramm für meine Zwecke abgewandelt:(in strReportName steht der Dateiname des Reports)Das Programm gibt die Abfrage in eine .txt Datei im Temp-verzeichnis aus.Option ExplicitPrivate m_strFilename As StringPrivate m_strReportPathPrivate m_crwApplication As CRPEAuto.ApplicationPrivate CrystalReport1 As CRPEAuto.ReportPrivate m_crwReport As CRPEAuto.ReportPrivate m_crwView As CRPEAuto.ViewPrivate m_crwDatabase As CRPEAuto.DatabasePrivate m_crwDatabaseTable As CRPEAuto.DatabaseTablePrivate m_crwSubReport As CRPEAuto.ReportPrivate m_crwParameter As CRPEAuto.ParameterFieldDefinitionPublic WithEvents m_crwWindow As CRPEAuto.WindowPublic Function LaunchReport() As Boolean 'Diese Funktion führt die Crystal Report-Abfrage On Error GoTo LaunchReport_Error Dim pwd As String, uid As String, dsn As String Dim crwExOptionen As CRPEAuto.ExportOptions Screen.MousePointer = vbHourglass LaunchReport = False If m_crwApplication Is Nothing Then Set m_crwApplication = _ CreateObject("Crystal.CRPE.Application") m_strReportPath = " ...." m_strFilename = m_strReportPath & strReportName & ".rpt" Screen.MousePointer = vbHourglass 'Report öffnen (aber noch nicht starten) Set m_crwReport = m_crwApplication.OpenReport(m_strFilename) Set m_crwDatabase = m_crwReport.Database 'Datenquelle, -bank, Kennung, Passwort setzen For Each m_crwDatabaseTable In m_crwDatabase.Tables m_crwDatabaseTable.SetLogOnInfo "ODBC-Datenquelle", "Datenbankname", "Kennung", "Passwort" Next Debug.Print "Verbindung zur Datenbank aufgebaut" Screen.MousePointer = vbNormal 'Optionen einstellen - anschließend Export durchführen Set crwExOptionen = m_crwReport.ExportOptions crwExOptionen.DestinationType = 1 'DiskFile crwExOptionen.DiskFileName = "c:\temp\" & strReportName & ".txt" crwExOptionen.FormatType = 6 'Tab separeted Text File 'Parameter übergeben (falls vorhanden) For Each m_crwParameter In m_crwReport.ParameterFields m_crwParameter.SetCurrentValue "....", 12 Next m_crwReport.ProgressDialogEnabled = False 'Exportieren Debug.Print "Exportiere Crystal Report Daten ....." m_crwReport.Export FalseLaunchReport_Exit: Screen.MousePointer = vbNormal Set m_crwReport = Nothing Set crwExOptionen = Nothing Set m_crwApplication = Nothing Exit Functionend Function

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: