Crystal Report เชื่อมต่อกับ MySQL มันขึ้น Popup ให้ใส่ password

     Dim dsEx As New DataSet1()
            If dsEx.DataTableOrder.Rows.Count > 0 Then
                dsEx.DataTableOrder.Rows.Clear()
            End If

            For i As Integer = 0 To DataGridView1.Rows.Count - 1
                Dim dr As DataGridViewRow = Nothing
                dr = DataGridView1.Rows(i)
                dsEx.DataTableOrder.Rows.Add(dr.Cells(0).Value, dr.Cells(1).Value, dr.Cells(2).Value, dr.Cells(3).Value, dr.Cells(4).Value, dr.Cells(5).Value, dr.Cells(6).Value)
            Next
            'DataGridViewRow dr = default(DataGridViewRow);
            'dsEx.DataTable1.Rows.Add("1","2","3","4");

            Dim crv As New CrystalReportOrder()
            crv.SetDataSource(dsEx)
            'crv.SetParameterValue("date", String.Format("{0:d MMMM yyyy}", DateTime.Now));

            Dim frm As New FormReport()
            frm.CrystalReportViewer1.ReportSource = crv
            frm.ShowDialog()

  'เป็นการส่งค่าแค่ Column เดียวผมเอาไว้ใช้ในกรณีที่ ผมต้องการประยุกต์ เช่น ทำบัตรสมาชิก เป็นต้น
  'DataGridViewRow dr = default(DataGridViewRow);
   'dsEx.DataTable1.Rows.Add("1","2","3","4");

  'เป็นการส่งค่า Parameter สังเกตว่า ใน หน้า Design CrytalReport จะมีให้ใส่ Parameter เราสามารถเขียน Code เพื่อส่ง Parameter ไปได้
   'crv.SetParameterValue("date", String.Format("{0:d MMMM yyyy}", DateTime.Now));

Private strSheetNo As String = String.Empty
Private rpt As ReportDocument

Protected Sub Page_Load(sender As Object, e As EventArgs)
	rpt = New ReportDocument()
	rpt.Load(Server.MapPath("../report/myReport.rpt"))
	Dim crtableLogoninfo As New TableLogOnInfo()
	Dim crConnectionInfo As New ConnectionInfo()
	Dim CrTables As Tables

	Dim db = UtilityClass.GetDatabaseConnection()
	crConnectionInfo.ServerName = "localhost"
	crConnectionInfo.DatabaseName = "mydatabase"
	crConnectionInfo.UserID = "sa"
	crConnectionInfo.Password = ""
	CrTables = rpt.Database.Tables

	For Each CrTable As CrystalDecisions.CrystalReports.Engine.Table In CrTables
		crtableLogoninfo = CrTable.LogOnInfo
		crtableLogoninfo.ConnectionInfo = crConnectionInfo
		CrTable.ApplyLogOnInfo(crtableLogoninfo)
	Next
	rpt.RecordSelectionFormula = "{tbReport.CusNo} in  [" + strCustomerNo + "] "
	Me.rptCrystal.ReportSource = rpt
End Sub

Protected Overrides Sub OnUnload(e As EventArgs)
	MyBase.OnUnload(e)

	Try
		If rpt IsNot Nothing Then
			rpt.Close()
			rpt.Dispose()
			GC.Collect()

		End If
	Catch ex As Exception
		MessageLogClass.WriteLog(ex)
	End Try
End Sub

Protected Sub rptCrystal_Unload(sender As Object, e As EventArgs)
	Try
		If rpt IsNot Nothing Then
			rpt.Close()
			rpt.Dispose()
			GC.Collect()

		End If
	Catch ex As Exception
		MessageLogClass.WriteLog(ex)
	End Try
End Sub