السلام عليكم ورحمة الله وبركاته
اخواني الكرام لدي مشكله في قراءة السجلات من قاعدة البيانات
لدي الكود التالي
Private Sub pley_qran_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pley_qran.Click
Dim con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\qran.mdb")
Dim mycom As New OleDbCommand
con.Open()
mycom.Connection = con
mycom.CommandText = "SELECT * FROM AyatLoc WHERE SoraNo = " & sora_box.Text & " and AyaNo = " & aya_box.Text
Dim r1 As OleDbDataReader = mycom.ExecuteReader
Dim sora1 As String
Dim aya1 As String
Dim page1 As String
Do While r1.Read
sora1 = r1("SoraNo") 'رقم السوره'
aya1 = r1("AyaNo") 'رقم الاية'
page1 = r1("PageId") 'رقم الصفحة'
Loopما اريده اريد ان يقوم البرنامج بقرائة السجلات كالتالي
رقم السوره :: رقم الاية :: رقم الصفحة
1 :: 1 :: 1
1 ::: 2 :: 2
اريد كود يقوم بقراءة السجلات مثلا
في بوكس تكست
اقراء السجل االاول
ثم اقراء السجل الثاني وهكذا
