Private Sub frm_Mitglieder_Load(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles MyBase.Load
 
        str_tmp1 = Command()
 
        If str_tmp1 = "" Then   'Abfrage ob ein Report übergeben wird, sonst 
        ' Programmende
            str_Msg = "Es konnte kein Report geöffnet werden." & vbCr & "Der" & _
              "Übgergabeparameter ist nicht vorhanden." & vbCr & "Das Programm" & _
              "wird wieder beendet."
            MsgBox(str_Msg, vbExclamation Or vbOKOnly, "Programm-Fehler")
            End
        End If
 
        'If str_tmp1.StartsWith("/Report") Then
        'str_tmp1 = str_tmp1.Remove(0, 8) '"/Report=" wird entfernt 
        'str_tmp2 = Split(str_tmp1, " ")
        'str_Report = str_tmp2(0)
        'Else
        'str_Msg = "Es konnte kein Report geöffnet werden." & vbCr & "Der" & _
          "Übgergabeparameter beginnt nicht mit ""/Report=""." & vbCr & "Das" & _
          "Programm wird wieder beendet."
        'MsgBox(str_Msg, vbExclamation Or vbOKOnly, "Programm-Fehler")
        'Me.Close()
        'End If
 
        'jedes Argument einzeln Abrufen
        For Each Argument As String In My.Application.CommandLineArgs
 
            'Argument abfragen
 
            If Argument.StartsWith("/Report") Then
                Argument = Argument.Remove(0, 8) '"/Report=" wird entfernt 
                str_Report = Argument
            Else
                str_Msg = "Es konnte kein Report geöffnet werden." & vbCr & _
                  "Der Übgergabeparameter beginnt nicht mit ""/Report=""." & _
                  vbCr & "Das Programm wird wieder beendet."
                MsgBox(str_Msg, vbExclamation Or vbOKOnly, "Programm-Fehler")
                End
            End If
 
        Next
 
        'Report = Clipboard.GetText  'Reportnamen wird aus dem Zwischenspeicher _
          in die Variable Report geladen
        Me.Text = str_Report
 
        If IO.File.Exists(My.Application.Info.DirectoryPath & "\DB.dbc") Then
 
            Dim sr1 As New IO.StreamReader(My.Application.Info.DirectoryPath & _
              "\DB.dbc")
 
            str_Server = sr1.ReadLine()
            str_Database = sr1.ReadLine()
            str_User = sr1.ReadLine()
            str_Password = sr1.ReadLine()
 
            'Datei schliessen
            sr1.Close()
        Else
            Dim Msg As String
            Msg = "Die Konfigurations-Datei DB.dbc ist nicht vorhanden!"
            MsgBox(Msg, vbExclamation Or vbOKOnly, "Fehler")
        End If
 
        Dim rp As New ReportDocument()
        rp.Load(Application.StartupPath & "\" & Me.Text)
        CrystalReportViewer1.ReportSource = rp
 
        Dim logonInfo As New TableLogOnInfo()
 
        For Each table As Table In rp.Database.Tables
            logonInfo = table.LogOnInfo
 
            logonInfo.ConnectionInfo.ServerName = str_Server
            logonInfo.ConnectionInfo.DatabaseName = str_Database
            logonInfo.ConnectionInfo.UserID = str_User
            logonInfo.ConnectionInfo.Password = str_Password
 
            table.ApplyLogOnInfo(logonInfo)
 
        Next
 
 
        rp.ExportToDisk( _
          CrystalDecisions.Shared.ExportFormatType.PortableDocFormat, _
          "TestExport.pdf")
        'CrystalReportViewer1.ReportSource = rp
 
    End Sub

Gruss
VIVAX

}
}
}

1:0 für Visual Basic.NET