Y大叔的筆記

1、新增一個DataSet1.xsd
設定好連線字串及Table

2、在Form1上拉進Button和CrystalReportViewer

 

3、在Button事件輸入程式碼

Imports System.Data Imports System.Data.SqlClient Imports CrystalDecisions.CrystalReports.Engine Public Class Form1 Dim oRpt As New ReportDocument Public DataoRpt As NwReport = Nothing Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click DataoRpt = New NwReport Dim dataset As Data.DataTable = New Data.DataTable Using conn As New SqlConnection(System.Configuration.ConfigurationManager.ConnectionStrings("NorthwindConnectionString").ConnectionString) conn.Open() Using command As New SqlCommand With command() .Connection = conn .CommandText = "SELECT * FROM Customers" dataset.Load(.ExecuteReader, LoadOption.OverwriteChanges) End With End Using End Using Dim logOnInfo As New CrystalDecisions.Shared.TableLogOnInfo logOnInfo.ConnectionInfo.ServerName = "XXXX" logOnInfo.ConnectionInfo.DatabaseName = "Northwind" logOnInfo.ConnectionInfo.UserID = "sa" logOnInfo.ConnectionInfo.Password = "XXXX" DataoRpt.Database.Tables.Item(0).ApplyLogOnInfo(logOnInfo) DataoRpt.SetDataSource(dataset) Me.CrystalReportViewer1.ReportSource = DataoRpt End Sub End Class

4、結果就出來嘍