Visual Basic

Dim location As String = Configuration.ConfigurationSettings.AppSettings("location")                
Dim reader1 As New System.IO.StreamReader(location)                
Dim base64 As String                
Dim BinRead As New BinaryReader(reader1.BaseStream)                
Dim file1 As New FileInfo(location)                
base64 = Convert.ToBase64String(BinRead.ReadBytes(CType(file1.Length, Integer)))                
Dim param As New Microsoft.Reporting.WinForms.ReportParameter("Image", base64, False)                
Dim al As New List(Of Microsoft.Reporting.WinForms.ReportParameter)                
al.Add(param)                ReportViewer1.LocalReport.EnableExternalImages = True                ReportViewer1.LocalReport.SetParameters(al)                ReportViewer1.RefreshReport()
.
.
.

<br />
   Public Sub sub_ApplyInfo1(ByRef _oRpt As CrystalDecisions.CrystalReports.Engine.ReportDocument, _<br />
                   ByVal _dbName As String, _<br />
                   ByVal _serverName As String, _<br />
                   ByVal _userID As String, _<br />
                   ByVal _passWord As String, Optional ByVal _IntegratedSecurity As Boolean = False)<br />
<br />
<br />
        Dim oCRDb As CrystalDecisions.CrystalReports.Engine.Database = _oRpt.Database<br />
        Dim oCRTables As CrystalDecisions.CrystalReports.Engine.Tables = oCRDb.Tables<br />
<br />
        Dim oCRTableLogonInfo As CrystalDecisions.Shared.TableLogOnInfo<br />
        Dim oCRConnectionInfo As CrystalDecisions.Shared.ConnectionInfo = New CrystalDecisions.Shared.ConnectionInfo<br />
<br />
<br />
        oCRConnectionInfo.IntegratedSecurity = _IntegratedSecurity<br />
        oCRConnectionInfo.Type = ConnectionInfoType.CRQE<br />
        oCRConnectionInfo.ServerName = _serverName<br />
<br />
        If _dbName <> "" Then<br />
            oCRConnectionInfo.DatabaseName = _dbName<br />
        End If<br />
        If _userID <> "" Then<br />
            oCRConnectionInfo.UserID = _userID<br />
        End If<br />
        If _passWord <> "" Then<br />
            oCRConnectionInfo.Password = _passWord<br />
        End If<br />
<br />
        For Each oCRTable As CrystalDecisions.CrystalReports.Engine.Table In oCRTables<br />
            oCRTableLogonInfo = oCRTable.LogOnInfo<br />
            oCRTableLogonInfo.ConnectionInfo = oCRConnectionInfo<br />
            oCRTable.ApplyLogOnInfo(oCRTableLogonInfo)<br />
            'Dim lcLocation As String = oCRConnectionInfo.DatabaseName & ".dbo." & oCRTable.Location<br />
        Next<br />
<br />
        'Dim cry_logOnInfo As New CrystalDecisions.Shared.TableLogOnInfo<br />
        ''Me.sub_ApplyInfo(oRpt, "FIN", "MYPC\SQLEXPRESS", "", "", True)<br />
<br />
        'cry_logOnInfo.ConnectionInfo.ServerName = "MYPC\SQLEXPRESS"<br />
        'cry_logOnInfo.ConnectionInfo.DatabaseName = "FIN"<br />
        'cry_logOnInfo.ConnectionInfo.UserID = ""<br />
        'cry_logOnInfo.ConnectionInfo.Password = ""<br />
        'cry_logOnInfo.ConnectionInfo.IntegratedSecurity = True<br />
<br />
        'Dim oTable As CrystalDecisions.CrystalReports.Engine.Table<br />
        'For Each oTable In _oRpt.Database.Tables<br />
        '    oTable.ApplyLogOnInfo(cry_logOnInfo)<br />
        'Next<br />
    End Sub<br />
<br />