DataAdapter + Crystal Report + MS SQL

 

   需要建立 係 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