需要建立 係 Project 既 Object |
建立 Crystal Report 文件 叫 "CrystalReport1.rpt" 建立 DataSet 叫 "DataSet1.xsd" 係 DataSet1 上 建立 DataTable 係 DataTable 上 建立 Column 叫 "Staff_Name" 係 DataTable 上 建立 Column 叫 "Staff_ID" (個Column 名係 Related 去D Code 既) 係 "CrystalReport1.rpt" 上 連接 Data Source 為 "DataSet1.xsd" 係 "CrystalReport1.rpt" 建立 Layout |
vb 文件上既 Source Code |
Private Sub DataAdapter_CrystalReport() Dim connectionString1 As String = "Data Source=.\SqlExpress; Initial Catalog=Admin; Integrated Security=SSPI" Dim con1 As SqlConnection = New SqlConnection(connectionString1) con1.Open() Dim SqlString1 As String = "SELECT Staff_Name, Staff_Login As Staff_ID FROM Staff" Dim Adapter As New SqlDataAdapter Adapter.SelectCommand = New SqlCommand(SqlString1.ToString(), con1) Dim ds As New DataSet1 Adapter.Fill(ds) Dim objRpt As New CrystalReport1 objRpt.SetDataSource(ds.Tables(1)) CrystalReportViewer1.ReportSource = objRpt CrystalReportViewer1.Refresh() End Sub |