tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板) [ツリー表示へ]   [Home]
一括表示(VB.NET VB2005)
タイトルビューアがうまく表示できない
記事No1821
投稿日: 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ビユーアを使用しているのですが
データが表示されません。
なにが間違っているのか分かりません
ご指示ください。
よろしくお願いいたします。



 

[ツリー表示へ]
タイトルRe: ビューアがうまく表示できない
記事No1822
投稿日: 2005/06/13(Mon) 09:18
投稿者じゃんぬねっと
参照先http://jeanne.wankuma.com/
On Error Resume... CreateObject... ADODB.Connection...

まずは、.NET Framework に特化したソースに置き換えた方が良いでしょう。

# 不具合が特定できない段階であれば、On Error Resume Next など使わないようにしましょう。

[ツリー表示へ]
タイトルRe^2: ビューアがうまく表示できない
記事No1823
投稿日: 2005/06/13(Mon) 11:58
投稿者kara
ありがとうございます
karaです。

On Error Resume Nextをはずしたところ
下記のメッセージがでました

追加情報 : オブジェクト参照がオブジェクト インスタンスに設定されていません。

どういうことか色々調べてやってみます。

[ツリー表示へ]
タイトルRe^2: ビューアがうまく表示できない
記事No1825
投稿日: 2005/06/14(Tue) 17:27
投稿者kara
お世話になっております
Karaです。

上記の質問部分につきまして色々やりましたが、うまく行かないので下記でやってみました。
FORMロードにパラメーターを追加してやってみました。

        Dim paramFields As New _
                CrystalDecisions.Shared.ParameterFields
        Dim paramField As New _
                CrystalDecisions.Shared.ParameterField
        Dim discreteVal As New _
                CrystalDecisions.Shared.ParameterDiscreteValue

        
        paramField.ParameterFieldName = "Customer"
        TextBox1.Text = InputBox("例→東京と入力")
        
        discreteVal.Value = TextBox1.Text
        paramField.CurrentValues.Add(discreteVal)
        paramFields.Add(paramField)

      
        CrystalReportViewer1.ParameterFieldInfo = paramFields

    

        CrystalReportViewer1.ReportSource = "C:\Documents and Settings\kara\デスクトップ
\VB開
発\reportsample.NET\CrystalReport1.rpt"

イメージと違いますがうまく行きました。
このようなやり方しかないのでしょうか?
ご指示ください。

[ツリー表示へ]
タイトルRe^3: ビューアがうまく表示できない
記事No1827
投稿日: 2005/06/16(Thu) 07:13
投稿者kara
おはようございます
お世話になっています
Karaです。
じゃんぬねっとさん申し訳ございません
もう一度質問の方向を基に戻し、再度確認しております。
悩み、よく確認してまた書き込みいたします。
どうかよろしくお願いいたします。

[ツリー表示へ]
タイトルRe^4: ビューアがうまく表示できない
記事No1895
投稿日: 2005/07/14(Thu) 06:48
投稿者kara
[OSのVer]:Windows    [VBのVer]:VB.NET  
おはようございます
karaです。

色々やりましたが、今ひとつ SQLが正常にはたらいて
いない。。。。。

section = report.ReportDefinition.Sections.Item("Section2")
      
        textObject = section.ReportObjects("Text1")
        textObject2 = section.ReportObjects("Text2")
      
        textObject.Text = "SELECT テーブル1.住所"
        textObject2.Text = "テーブル1.役職"
      
        CrystalReportViewer1.ReportSource = report
どうやれば、よいのでしょうか?
ご指示ください。

[ツリー表示へ]