1. เริ่มต้นสร้างโปรเจ็ค Windows Application ขึ้นมาตามรูป
สร้างโปรเจ็ค
2. สร้าง Form เปล่ามาหนึ่ง Form เพื่อไว้ใช้ออกรายงานตามรูปและลาก Tools -->> CrystalReportViewer
ตามรูป
สร้าง Form และ CrystalReportViewer
สร้าง Dataset
สร้าง TableAdapter เพื่อเชื่อมต่อกับฐานข้อมูล
เชื่อมต่อฐานข้อมูลโดยเลือกแหล่งของฐานข้อมูลในที่นี้เชื่อมต่อกับ Microsoft SQL Server
กด Next
กด Next
เลือก Query Builder.. และเลือกข้อมูล Table หรืก View ที่เราต้องการออกรายงาน
ทำตามรูปและกด Next ไปเรื่อยจนกว่าจะ Finish
ลบ TableAdapter และทำการ Delete เพื่อไม่ให้ Dataset ของเราอ้างอิงกับฐานข้อมูลเพื่อตัวเดียวและสามารถนำไปใช้งานได้กับหลายฐานข้อมูล
สร้างรายงานเปล่ามาหนึ่งรายงานเมื่อกด Add แล้วเลือก As A Blank Report
เลือก Database Expert เพื่อเชื่อมต่อกับ Dataset ของเรา
เลือก Dataset ที่เราสร้างขึ้น
ออกแบบรายงานโดยการเลือกข้อมูลมาไว้ที่ Section3 (Detail) และใส่ข้อมูลตามความต้องการ
4. เขียน Code เพื่อออกรายงานที่ Form1 เขียนโค้ดดังต่อไปนี้
Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'Connection Database Dim DataAdapter As New SqlClient.SqlDataAdapter Dim SQLServerCommand As New SqlClient.SqlCommand Dim DS As New DataSet Dim strDataSource As String = "Data Source=(local);Initial Catalog=Database_Name;User ID=sa;PWD=password" Dim Connection As New SqlClient.SqlConnection(strDataSource) Connection.Open() With SQLServerCommand .Connection = Connection .CommandText = "SELECT * FROM Ms_Customer" End With 'เก็บข้อมูลใน Dataset DataAdapter.SelectCommand = SQLServerCommand DS = New DataSet("DataSet1") DataAdapter.Fill(DS, "ms_Customer") 'นำข้อมูลออกรายงาน Dim cryreport As New CrystalReport1 cryreport.SetDataSource(DS) CrystalReportViewer1.ReportSource = cryreport End Sub End Class
5. กด F5 และดูรายงาน
ตัวอย่างรายงาน
0 ความคิดเห็น:
แสดงความคิดเห็น