การส่งพารามิเตอร์ไป Cystal Report (Set and Send Parameter Cystal Report)

1. ทำการเพิ่มพารามิเตอร์ใน Cystal Report 

เพิ่มพารามิเตอร์ใน Cystal Report

2. ใส่ชื่อพารามิเตอร์

3. เมื่อเพิ่มเสร็จจะได้ค่าตามรู

4. ใส่ Code ตามด้านล่างเพื่อออกรายงาน

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)
        cryreport.SetParameterValue("pstr1", "DataTest1")
        cryreport.SetParameterValue("pstr2", "DataTest2")
        CrystalReportViewer1.ReportSource = cryreport
    End Sub

End Class