tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]　 [ワード検索]　 [Home]

タイトル ： ビューアがうまく表示できない
投稿日： 2005/06/13(Mon) 07:24
投稿者： kara
[OSのVer]：WindowsXP　SP2　　　　[VBのVer]：VB.NET2003
　おはようございます
お世話になっておりますkaraです。

VB6.0からVB.NETに変換をして
色々機能を追加をしたいと考えいやっています。
任意にデータベースを選択し、任意でデータを取り出し
印刷をしたい。
ところが、初期の段階でつまずいています。

    Friend WithEvents CrystalReportViewer1 As
CrystalDecisions.Windows.Forms.CrystalReportViewer
    Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As
System.EventArgs) Handles Command1.Click
        Dim mfm As Object
        On Error Resume Next
        Dim mfn As String
        Dim strSQL As String

        Dim section As _
                CrystalDecisions.CrystalReports.Engine.Section
        Dim textObject As _
                CrystalDecisions.CrystalReports.Engine.TextObject
        Dim fieldFormat As _
                CrystalDecisions.CrystalReports.Engine.FieldFormat
        Dim report As New _
                       CrystalDecisions.CrystalReports.Engine.ReportDocument
        
        cn = CreateObject("ADODB.Connection")
        
        cn.Open("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Sourc
e=c:\db1.mdb")
        
        
        strSQL = "SELECT テーブル1.住所, テーブル1.名前, テーブル1.役職 From テ
ー
ブル1 WHERE テーブル1.住所='東京'"
        
        rs = cn.Execute(strSQL)
        
        CrystalReportViewer1.ReportSource = rs

        Dim form1 As New Form1
        form1.Show()
    
End Sub

crystalreportビユーアを使用しているのですが
データが表示されません。
なにが間違っているのか分かりません
ご指示ください。
よろしくお願いいたします。



　
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

古いスレッドにレスはつけられません。