vb.net 水晶報表CrystalReport 動態設定資料庫來源

概述  沒有出現CrystalReportViewer時,須安裝CRforVS_13_0. 新增1個數據集,新增1個數據表,添加二列,列名要和資料庫名一樣. 修改目標Framework 修改app.config, <startup >改成<startup useLegacyV2RuntimeActivationPolicy ="true">  CrystalReport1.rpt增加數據庫專家 在表單

 

沒有出現CrystalReportVIEwer時,須安裝CRforVS_13_0.

新增1個數據集,新增1個數據表,添加二列,列名要和資料庫名一樣.

修改目標Framework

修改app.config,

<startup >改成<startup useLegacyV2RuntimeActivationPolicy ="true">

 CrystalReport1.rpt增加數據庫專家

在表單上放入一個CrystalReportVIEwer1和一個按鈕

程式如下:

 

imports CrystalDecisions.windows.Forms
imports CrystalDecisions.CrystalReports.Engine
imports CrystalDecisions.Shared
imports System.Data.sqlClIEnt ‘ADO連線

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles button1.Click
Dim cn As New sqlConnection("Password=密碼;Persist Security Info=True;User ID=帳號;Initial Catalog=資料庫;Data Source=連線位置")
Dim cmd As New sqlCommand("SELECT BADGENUMBER,name FROM USERINFO",cn)‘sql語言
Dim da As New sqlDataAdapter
Dim ds As New DataSet

da.SelectCommand = cmd
da.Fill(ds,"Datatable1")‘新增的數據集DataSet1.xsd,的數據表Datatable1

Dim doc As New Reportdocument
doc.Load("C:\VB\CrystalReport1.rpt")‘CrystalReport1.rpt所在位置不能是中文
doc.SetDataSource(ds)
CrystalReportVIEwer1.ReportSource = doc
End Sub
End Class

 

 運行畫面如下

总结

以上是内存溢出为你收集整理的vb.net 水晶報表CrystalReport 動態設定資料庫來源全部内容，希望文章能够帮你解决vb.net 水晶報表CrystalReport 動態設定資料庫來源所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。