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 ความคิดเห็น:
แสดงความคิดเห็น