沒有出現CrystalReportViewer時,須安裝CRforVS_13_0.
新增1個數據集,新增1個數據表,添加二列,列名要和資料庫名一樣.
修改目標Framework
<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
運行畫面如下
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 [email protected] 举报，一经查实，本站将立刻删除。