タイトル : ビューアがうまく表示できない 投稿日 : 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ビユーアを使用しているのですが データが表示されません。 なにが間違っているのか分かりません ご指示ください。 よろしくお願いいたします。 |