cant display some field values of database tables dynamically in report

hi , i have 3 tables : HASTA, MUAYENE, ISLEMLER and i want to show 6 field values in the report totally, 4 from HASTA 1 from MUAYENE and 1 from ISLEMLER . HASTA and MUAYENE are connected through the key HASTA_NO . ISLEMLER and MUAYENE are connected through the key ISLEM_NO . The problem is i cant display the field values in the report..i tried to do the same of an example i followed but it didnt work out. Here is the code i wrote :
Private Sub ReportLoad()

Dim dentalReport As New ReportDocument()
Dim rapor As New Rapor()

Dim CONNECTION_STRING As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=dental.mdb"
Dim myOleDbConnection As OleDbConnection = New OleDbConnection(CONNECTION_STRING)

Dim QUERY_STRING1 As String = "SELECT HASTA.AD, MUAYENE.HASTA_NO FROM HASTA INNER JOIN MUAYENE ON HASTA.HASTA_NO = MUAYENE.HASTA_NO"
Dim myDataSet1 As dentalDataSet = New dentalDataSet()
Dim myOleDbDataAdapter1 As OleDbDataAdapter = New OleDbDataAdapter(QUERY_STRING1, myOleDbConnection)
myOleDbDataAdapter1.Fill(myDataSet1)

Dim QUERY_STRING2 As String = "SELECT HASTA.SOYAD, MUAYENE.HASTA_NO FROM HASTA INNER JOIN MUAYENE ON HASTA.HASTA_NO = MUAYENE.HASTA_NO"
Dim myDataSet2 As dentalDataSet = New dentalDataSet()
Dim myOleDbDataAdapter2 As OleDbDataAdapter = New OleDbDataAdapter(QUERY_STRING2, myOleDbConnection)
myOleDbDataAdapter2.Fill(myDataSet2)

Dim QUERY_STRING3 As String = "SELECT HASTA.ADRES, MUAYENE.HASTA_NO FROM HASTA INNER JOIN MUAYENE ON HASTA.HASTA_NO = MUAYENE.HASTA_NO"
Dim myDataSet3 As dentalDataSet = New dentalDataSet()
Dim myOleDbDataAdapter3 As OleDbDataAdapter = New OleDbDataAdapter(QUERY_STRING3, myOleDbConnection)
myOleDbDataAdapter3.Fill(myDataSet3)

Dim QUERY_STRING4 As String = "SELECT HASTA.CEP_TEL, MUAYENE.HASTA_NO FROM HASTA INNER JOIN MUAYENE ON HASTA.HASTA_NO = MUAYENE.HASTA_NO"
Dim myDataSet4 As dentalDataSet = New dentalDataSet()
Dim myOleDbDataAdapter4 As OleDbDataAdapter = New OleDbDataAdapter(QUERY_STRING4, myOleDbConnection)
myOleDbDataAdapter4.Fill(myDataSet4)

Dim QUERY_STRING5 As String = "SELECT ISLEMLER.ISLEM_ADI, MUAYENE.ISLEM_NO FROM ISLEMLER INNER JOIN MUAYENE ON ISLEMLER.ISLEM_NO = MUAYENE.ISLEM_NO"
Dim myDataSet5 As dentalDataSet = New dentalDataSet()
Dim myOleDbDataAdapter5 As OleDbDataAdapter = New OleDbDataAdapter(QUERY_STRING5, myOleDbConnection)
myOleDbDataAdapter5.Fill(myDataSet5)

Dim QUERY_STRING6 As String = "SELECT MUAYENE.TARIH, ISLEMLER.ISLEM_NO FROM ISLEMLER INNER JOIN MUAYENE ON ISLEMLER.ISLEM_NO = MUAYENE.ISLEM_NO"
Dim myDataSet6 As dentalDataSet = New dentalDataSet()
Dim myOleDbDataAdapter6 As OleDbDataAdapter = New OleDbDataAdapter(QUERY_STRING6, myOleDbConnection)
myOleDbDataAdapter6.Fill(myDataSet6)

myDataSet1.Merge(myDataSet2)
myDataSet1.Merge(myDataSet3)
myDataSet1.Merge(myDataSet4)
myDataSet1.Merge(myDataSet5)
myDataSet1.Merge(myDataSet6)

Dim reportPath As String = Application.StartupPath + "\.." + "\.." + "\" + "KadirReport.rpt"
dentalReport.Load(reportPath)
dentalReport.SetDataSource(myDataSet1)
rapor.CRVKadir.ReportSource = dentalReport
rapor.ShowDialog()

End Sub

Private Sub btnKadirRaporla_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKadirRaporla.Click

ReportLoad()

End Sub

Here i m trying to call the ReportLoad( ) function with a button click...when the rapor form loads, it shows empty , it shows the labels but doesnt show the table values...i think i have correctly initialized "KadirReport.rpt" where is the problem you guess i really need help..thanks..

Answer this question

cant display some field values of database tables dynamically in report

cant display some field values of database tables dynamically in report

Answer this question