戻る

連結レポートの出力 - クリスタルレポート

概要

Crystal Reports コントロールとデータコントロールを連結させて、レポートを出力します。
この方法は既存のレポートファイル(*.rpt)を必要としません。

サンプル

１．フォームにクリスタルレポートコントロール(CrystalReport1)とデータコントロール(Data1)、
　　及びコマンドボタン(cmdGO)をフォームに貼り付けます。
２．CrystalReport1 の DataSource プロパティを Data1 に設定します。
 ３．以下のコードを実行します。

サンプルのダウンロード

　連結レポートの出力 - クリスタルレポート

' データコントロールとクリスタルコントロールを連結させて
' レポートを出力する

Option Explicit

Private Sub Form_Load()

    ' データベースを指定
    Data1.DatabaseName = "C:\Program Files\DevStudio\vb\biblio.mdb"
    ' レコードソースとなるクエリーを指定
    Data1.RecordSource = "SELECT PubID,Name,City " & _
                         "FROM Publishers " & _
                         "WHERE city='東京'"
    Data1.Refresh

End Sub

Private Sub cmdGO_Click()

    ' 前もってクリスタルコントロールの DataSource プロパティを
    ' Data1 に設定する必要がある
    
    'Set CrystalReport1.DataSource = Data1
    
    ' レポートの取得先にデータコントロールを指定する
    CrystalReport1.ReportSource = crptDataControl
    ' レポートのタイトル部分の文字列を指定する
    CrystalReport1.BoundReportHeading = "出版社一覧"
    
    ' レポートを出力し正常に出力できなかった場合はエラー表示する
    If CrystalReport1.PrintReport <> 0 Then
        MsgBox CrystalReport1.LastErrorString
    End If
    
End Sub


VB で データベース ホームページ

©2000 VBMANIA