#副標=Visual Studio 2005新功能系列(17)
#大標=使用ReportViewer快速建立報表應用程式(下)
#作者=文／沈炳宏


==========程式=========
程式1
=System.Convert.FromBase64String(
Mid(System.Convert.ToBase64String(
Fields!Photo.Value),105))
==========程式=========

==========程式=========
程式2
Public Sub loadDataSource()
        Dim cnString As String = 
"Data Source=localhost;Initial Catalog=northwind;
User Id=sa;Password=password;"
        Dim conReport As SqlConnection = 
New SqlConnection(cnString)
        Dim cmdReport As SqlCommand = 
New SqlCommand
        Dim drReport As SqlDataReader
        Dim dsReport As DataSet = New DataSet1
        dsReport.EnforceConstraints = False
        Try
            conReport.Open()
            cmdReport.CommandType = 
CommandType.Text
            cmdReport.Connection = conReport
            cmdReport.CommandText = 
"Select EmployeeID,LastName,FirstName,
Title,TitleOfCourtesy,Photo FROM Employees"
            drReport = cmdReport.ExecuteReader
            dsReport.Tables(0).Load(drReport)
            drReport.Close()
            conReport.Close()
            Me.ReportViewer1.LocalReport.
ReportEmbeddedResource = 
"ReportViewerDemo.NWEmployees.rdlc"
            Dim rds As ReportDataSource = 
New ReportDataSource
            rds.Name = "dsEmployees"
            rds.Value = dsReport.Tables(0)
            Me.ReportViewer1.LocalReport.
DataSources.Add(rds)
            Me.ReportViewer1.LocalReport.
EnableExternalImages = True
            Me.ReportViewer1.RefreshReport()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
            If conReport.State = 
ConnectionState.Open Then
                conReport.Close()
            End If
        End Try
    End Sub
==========程式=========

==========程式=========
程式3
SELECT * from CUSTOMERS
==========程式=========