Dataset2 has two datatables - tbl_stud and tbl_course
Dim DataSet2 As DataSet
connection_open()
strSQL = "SELECT * FROM tbl_stud"
daT1 = New OleDbDataAdapter(strSQL, con)
DataSet2 = New DataSet
daT1.Fill(DataSet2, "tbl_stud")
strSQL = "SELECT * FROM tbl_course"
daT2 = New OleDbDataAdapter(strSQL, con)
daT2.Fill(DataSet2, "tbl_course")
Dim rpt As New CrystalReport1
rpt.SetDataSource(DataSet2)
Form5.CrystalReportViewer1.ReportSource = rpt
connection_close()
No comments:
Post a Comment