【VB.NET】ReportViewer グラフを表示する。

レポートにグラフを配置してSQLSereverのデータテーブルの内容を表示します。

使用例：月別の商品売上データを縦棒グラフをレポートの表の下に表示します。

１．予め月別の商品売上データを表示するレポートを作成します。
　　レポートの作成は「【VB.NET】ReportViewer　レポートを表示する②」を参照してください。

3．作成したレポートにツールボックスからグラフを配置します。
　　「グラフの種類を選択」が表示されるので表示したいグラフを選択します。

３．グラフを二回左クリックし各フィールドに表示したいアイテムをレポートデータからドロップします。（レポートデータは「ツールバー」→「表示」→「レポートデータ」で表示されます）

４．「グラフのタイトル」「軸のタイトル」をクリックして各タイトルを編集します。

５．今回は横軸に「年/月」形式で表示したいのでカテゴリーフィールドに式を設定します。
カテゴリーフィールドのアイテムを右クリックし「カテゴリーグループのプロパティ」を表示しラベルに
式を設定します。

５．実行結果

他の種類のグラフについても大体このような方法で表示できるのではないでしょうか。

【VB.NET】ReportViewer サブレポートを表示する。

ReportViewerでサブレポートを表示します。

使用例：売上データを表示するレポートに従業員データをサブレポートで表示します。

１．プロジェクトにデータセットを追加して売上データと従業員データを取得するデータアダプターを追加します。

２．従業員データを表示するレポートを作成します。

３．売上データを表示するレポートを作成します。

４．売上データレポートにサブレポートを追加します。

　　ReportNameに従業員データレポートを設定します。

５．フォームにReportViewerを配置し売上データレポートを表示します。

６．フォームにB indingSourceを追加しDataMemberに従業員データアダプターを設定します。

　　（DataMember設定後にDataAdapterが追加されます）

７．サブレポートで使用するデータソースを指定するSubReportProcessingイベントハンドラを追加します。

Imports Microsoft.Reporting.WinForms

Public Class Form1

    'サブレポートで使用するデータソースにデータを指定する。
    Public Sub SubReportProcessingEventHandler(ByVal sender As Object, ByVal e As SubreportProcessingEventArgs)
        e.DataSources.Add(New ReportDataSource("DsEmployee", Me.EmployeeBindingSource))
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: このコード行はデータを 'DataSet1.EmployeeDataTable' テーブルに読み込みます。必要に応じて移動、または削除をしてください。
        Me.EmployeeDataTableAdapter.Fill(Me.DataSet1.EmployeeDataTable)
        'TODO: このコード行はデータを 'DataSet1.SalesDataTable' テーブルに読み込みます。必要に応じて移動、または削除をしてください。
        Me.SalesDataTableAdapter.Fill(Me.DataSet1.SalesDataTable)

        'SubReportProcessingEventHandlerを追加する。
        AddHandler Me.ReportViewer1.LocalReport.SubreportProcessing, AddressOf SubReportProcessingEventHandler

        Me.ReportViewer1.RefreshReport()
    End Sub
End Class

８．実行します。

【VB.NET】ReportViewer パラメーターを渡す(VS2008)

使用例：VS2008の場合です。

１．レポートのデザイナー画面を開きツールバーの「レポート」→「レポートパラメーター」を選択します。

２．パラメーターを追加します。

３．レポートにテキストボックスを配置します。

４．テキストボックスの式に追加したパラメーターを設定します。

５．レポートにパラメーターを渡します。

Imports Microsoft.Reporting.WinForms

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: このコード行はデータを 'SAMPLE_DBDataSet.DataTable1' テーブルに読み込みます。必要に応じて移動、または削除をしてください。
        Me.DataTable1TableAdapter.Fill(Me.SAMPLE_DBDataSet.DataTable1)
        'TODO: このコード行はデータを 'SAMPLE_DBDataSet.M_ITEM' テーブルに読み込みます。必要に応じて移動、または削除をしてください。
        Me.M_ITEMTableAdapter.Fill(Me.SAMPLE_DBDataSet.M_ITEM)


        Dim Parameters As New List(Of ReportParameter)
        With Parameters
            .Add(New ReportParameter("Report_Parameter_0", "パラメーターを表示します"))
        End With

        Me.ReportViewer1.LocalReport.SetParameters(Parameters)

        Me.ReportViewer1.RefreshReport()
    End Sub
End Class

６．実行します。

【VB.NET】ReportViewer パラメーターを渡す。

ReportParameterを使ってレポートに値を渡します。

使用例：VS2010の場合です。

１．「表示」→「レポートデータ」でレポートデータを表示しパラメーターを追加します。

２．パラメーターのプロパティを設定します。

３．レポートにテキストボックスを配置します。

４．テキストボックスの式にパラメーターを設定します。

５．レポートにパラメーターを渡します。

Imports Microsoft.Reporting.WinForms
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _
        Handles MyBase.Load

        Dim shopCD1 As String = "002"
        Dim shopCD2 As String = "003"

        'TODO: このコード行はデータを 'SAMPLE_DBDataSet.DataTable1' テーブルに読み込みます。必要に応じて移動、または削除をしてください。
        Me.DataTable1TableAdapter.Fill(Me.SAMPLE_DBDataSet.DataTable1, shopCD1, shopCD2)
        
        Dim Parameters As New List(Of ReportParameter)
        With Parameters
            .Add(New ReportParameter("ReportParameter1", "パラメーターを表示します"))
        End With

        Me.ReportViewer1.LocalReport.SetParameters(Parameters)
        Me.ReportViewer1.RefreshReport()
    End Sub
End Class

６．実行します。

実行結果

【VB.NET】ReportViewer クロス集計された帳票を出力する（ＶＳ2008）

前回の記事でＶＳ2008でのクロス集計の帳票出力に触れたのでＶＳ2008の出力方法を‥

１．FormデザイナーのReportViewerコントロールのReportViewerタスクを開き「新しいレポートをデザインします」を選択しレポートウィザードを表示しデータソースを選択します。

２．レポートの種類でマトリックスを選択します。

２．フィールドの配置画面で行グループと列グループおよび詳細にフィールドを設定します。

３．スタイルを選択します。

４．完了でレポートファイルができます。

５．実行します。

実行結果

フィルム式一眼レフカメラ レンズ購入

以前に頂いたフィルム式一眼レフカメラですがレンズをようやく購入しました。
50mm短焦点レンズが標準レンズなようなのでCanonEF50mmF1.8を購入。

短焦点レンズなので自ら被写体に近づいて
撮影になります。
とりあえず初心者の私はこれで腕を上げようかなと‥








で本体に装着してみました。

おお！なかなかカッコイイではありませんか。












後は電池とフィルムを装着して撮影です。何を撮ろうか考えるだけでも結構楽しいものですね。

【VB.NET】ReportViewer クロス集計された帳票を出力する。

レポートファイル（.rdlc）に列グループを設定しクロス集計された帳票を出力します。

使用例：VS2010による使用例です。（VS2008ではレポートウィザードでマトリックスを選択すると列グループを追加することができます。）

１．FormデザイナーのReportViewerコントロールのReportViewerタスクを開き「新しいレポートをデザインします」を選択しレポートウィザードを表示しデータソースとデータセットを設定します。

２．フィールドの配置画面で行グループと列グループにフィールドを設定します。

３．レイアウトを選択します。

４．スタイルを選択します。

５．レポートウィザードを完了し実行します。

実行結果

【VB.NET】ReportViewer SQLパラメーターでデータを抽出しレポートを表示する。

DataAdapterのSQLステートメントの抽出条件にパラメーターを設定しデータを抽出してレポートを表示します。

使用例：SQLパラメーターで店舗を絞り込んでレポートを表示します。

１．【VB.NET】ReportViewer　レポートを表示する②の手順でレポートを作成します。

２．データセットのデザイナー画面を表示します。

２．TableAdapter→右クリック→構成で構成ウィザード起動しWHERE句にSHOP_CDの
　　絞り込み条件を記述します

４．フォームのLoadイベントのDataTable1TableAdapterのFillメソッドにパラメーターを
　　引き渡します。

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim shopCD As String = "002"

        'TODO: このコード行はデータを 'DataSet1.DataTable1' テーブルに読み込みます。必要に応じて移動、または削除をしてください。
        Me.DataTable1TableAdapter.Fill(Me.DataSet1.DataTable1, shopCD)

        Me.ReportViewer1.RefreshReport()
    End Sub
End Class

５．実行します。

【VB.NET】ReportViewer レポートを表示する②

ReportViewerを使ってSQLSereverのデータテーブルの内容をレポートに表示します。
大まかな手順は以下の通りになります。

1. プロジェクトにデータセットを追加しデータテーブルを用意します。
2. プロジェクトにレポートファイルを追加しレポートをデザインします。
3. フォームにReportViewerを配置します。
4. コードにデータ取得とReportrViewerの処理を記述します

ReportViewerタスクの「新しいレポートをデザインします」を使わない方法です。

使用例：「商品マスタ」「店舗マスタ」「販売テーブル」の結合データを取得しレポートに表示します。　　　　　　（VS2010による使用例です。VS2008では若干操作が異なります。）

商品マスタのテーブル定義

	インスタンス名		SQLEXPRESS	データベース名		SAMPLE_DB
	論理テーブル名		商品マスタ	物理テーブル名		M_ITEM
	列定義
	No	論理名	物理名	データ型		Nullを許容	主キー
	1	商品CD	ITEM_CD	nvarchar(4)		No	Yes
	2	商品名	ITEM_NM	nvarchar(32)		No
	3	単価	PRICE	numeric(8,0)		No

店舗マスタのテーブル定義

	インスタンス名		SQLEXPRESS	データベース名		SAMPLE_DB
	論理テーブル名		商品マスタ	物理テーブル名		M_ITEM
	列定義
	No	論理名	物理名	データ型		Nullを許容	主キー
	1	商品CD	ITEM_CD	nvarchar(4)		No	Yes
	2	商品名	ITEM_NM	nvarchar(32)		No
	3	単価	PRICE	numeric(8,0)		No

売上データのテーブル定義

	インスタンス名		SQLEXPRESS	データベース名		SAMPLE_DB
	論理テーブル名		売上データ	物理テーブル名		T_SALES
	列定義
	No	論理名	物理名	データ型		Nullを許容	主キー
	1	NO	NO	numeric(8,0)		No	Yes
	2	店舗CD	SHOP_CD	nvarchar(4)		No
	3	商品CD	ITEM_CD	nvarchar(4)		No
	4	売上数	UNIT_SALES	numeric(8,0)		No
	5	売上額	SALES_AMOUNT	numeric(8,0)		No

１．フォームにReportViewerを配置します。

２．ツールバーの「プロジェクト」→「新しい項目の追加」からデータセットを追加します。
　　続けてツールボックスからデータセットにデータアダプターを追加します。

３．TeblAdapter構成ウィザードが起動されたらでーた接続を選択します。

４．コマンドの種類を選択します。

４．SQLステートメントを入力します。

５．生成するメッソドを選択します。

６．TableAdapter構成ウィザードを完了します。

７．データセットにTableAdaperが追加されています。

８．プロジェクトにレポートファイルを追加します。
　　続けてツールボックスからレポートにテーブルを追加します。

９．データセットのプロパティが起動されるのででデータソースとデータセットを選択します。

１０．テーブルに列を追加します。

１１．列に表示するアイテムを設定します。

１２．ReportViewerタスクのレポートの選択で追加したレポートを選択します。

１３．フォームに「データセット」「データアダプター」「バインディングソース」が追加されています。

１４．フォームのLoadイベントにはデータ取得とReportViewerの処理が記述されています。

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: このコード行はデータを 'DataSet1.DataTable1' テーブルに読み込みます。必要に応じて移動、または削除をしてください。
        Me.DataTable1TableAdapter.Fill(Me.DataSet1.DataTable1)

        Me.ReportViewer1.RefreshReport()
    End Sub
End Class

</ br>１５．実行します。</ br>