戻る

レポートの出力 - DataReport

概要

ADO のレコードセットを DataReport のデータソースに設定して、レポートを出力します。

サンプル

１．プロジェクトに DataReport を追加します。
２．DataReport に rptTextBox を追加します。
３．rptTextBox のDataField プロパティに出力するフィールド名を指定します。
４．以下のコードを実行します。

サンプルのダウンロード

　レポートの出力 - DataReport

Option Explicit
Dim cn As Object
 Dim rs As Object
Private Sub cmdGO_Click()

    Dim strSQL As String
     
    ' データベース接続を確立する
    Set cn = CreateObject("ADODB.Connection")
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
            "Data Source=D:\Program Files\Microsoft Visual Studio\VB98\Biblio.mdb"
    
    ' ＳＱＬクエリーの設定
    strSQL = "SELECT PubID,Name,City FROM Publishers WHERE City='東京'"
    
    ' レコードセットを取得する
    Set rs = cn.Execute(strSQL)
    
    ' レポートのデータソースを指定（レコードセットから情報を取得する）
    Set rptSample.DataSource = rs
    
    ' レポートを表示（プレビュー）する
    rptSample.Show
    
End Sub


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

©2000 VBMANIA