تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اريد حلا ارجوكم وبسرعة
#1
Star 
"""  Invalid attempt to call Read when reader is closed   "".المشكله هي 
                Dim s As String = " Select *  from SOlaf_Qared_1  where Account_No = '" & Me.Account_No_Txt.Text
                If oledbcon.State = ConnectionState.Open Then oledbcon.Close()
                oledbcon.Open()
                Dim cmd As New SqlCommand(s, oledbcon)
                Dim rdr As SqlDataReader = cmd.ExecuteReader
                While rdr.Read
                    If Not IsDBNull(rdr("DATE_DAY")) Then Me.Date_Day_DB.Text = rdr("DATE_DAY")
                    If Not IsDBNull(rdr("MANTAKA_NO")) Then cnn1 = rdr("MANTAKA_NO")
                    'If Not IsDBNull(rdr("MANTAKA_Name")) Then Me.Mantaka_Name_Cb.Text = rdr("MANTAKA_Name")
                    If Not IsDBNull(rdr("BRANCH_NO")) Then cnn2 = rdr("BRANCH_NO")
                    'If Not IsDBNull(rdr("BRANCH_Name")) Then Me.Branch_Name_Cb.Text = rdr("BRANCH_Name")
                    If Not IsDBNull(rdr("MADEEN_NAME")) Then Me.Madeen_Name_Txt.Text = rdr("MADEEN_NAME")
                    If Not IsDBNull(rdr("ID_NO")) Then Me.Id_No_Txt.Text = rdr("ID_NO")
                    If Not IsDBNull(rdr("MADEEN_ADDRE")) Then Me.MADEEN_ADDRE_Txt.Text = rdr("MADEEN_ADDRE")
                    If Not IsDBNull(rdr("TASHEL_VAL")) Then Me.Tashel_Val_Mxt.Text = rdr("TASHEL_VAL")
                    If Not IsDBNull(rdr("GRANT_DATE")) Then Me.Grant_date_db.Text = rdr("GRANT_DATE")
                    If Not IsDBNull(rdr("TERM_DATE")) Then Me.Term_date_db.Text = rdr("TERM_DATE")
                    If Not IsDBNull(rdr("DAMANAT")) Then Me.Damanat_Cb.Text = rdr("DAMANAT")
                    If Not IsDBNull(rdr("ACT_TYPE")) Then Me.Act_Case_CB.Text = rdr("ACT_TYPE")
                    If Not IsDBNull(rdr("EHALA_DATE")) Then Me.Ehala_date_db.Text = rdr("EHALA_DATE").ToString
                    If Not IsDBNull(rdr("REMARK")) Then Me.REMARK_Txt.Text = rdr("REMARK")
                    If Not IsDBNull(rdr("EHALA_RASED")) Then Me.Elhali_rased_Mxt.Text = rdr("EHALA_RASED")
                    If Not IsDBNull(rdr("HAGEZ_NO")) Then Me.HAGEZ_NO_Txt.Text = rdr("HAGEZ_NO")
                    If Not IsDBNull(rdr("ESDAR_DATE")) Then Me.ESDAR_DATE_db.Text = rdr("ESDAR_DATE")
                    If Not IsDBNull(rdr("HAGEZ_PRICE")) Then Me.HAGEZ_PRICE_mxt.Text = rdr("HAGEZ_PRICE")
                    If Not IsDBNull(rdr("EGRAT")) Then Me.EGRAT_Txt.Text = rdr("EGRAT")
                    If Not IsDBNull(rdr("MOSADAD")) Then Me.Mosadad_Mxt.Text = rdr("MOSADAD")
                    If Not IsDBNull(rdr("Ejra_Motaked")) Then Me.Ejra_Motaked_cb.Text = rdr("Ejra_Motaked")
                    If Not IsDBNull(rdr("Ejra_Motked_Date")) Then Me.Ejra_Motked_Date.Text = rdr("Ejra_Motked_Date")
                    If Not IsDBNull(rdr("Full_Value_Tas")) Then Me.Full_Value_Tas_Txt.Text = rdr("Full_Value_Tas")
                    Me.Serch_BrN_Txt.Text = cnn2
                    '************************************************************************************************
                    'If oledbcon.State = ConnectionState.Open Then oledbcon.Close()
                    'oledbcon.Open()
                    Dim s111 As String = " Select *  from MANATEK_TABLE where MANTAKA_NO = '" & cnn1 & "'  "
                    Dim cmd111 As New SqlCommand(s111, oledbcon)
                    rdr.Close()
                    Dim rdr111 As SqlDataReader = cmd111.ExecuteReader
                    Angry Angry Angry While rdr111.Read
                        If (rdr111.HasRows = True) Then
                            Me.Mantaka_Name_Cb.Text = rdr111(1)
                        End If
                    End While
الرد }}}}
تم الشكر بواسطة:
#2
الأملا rdr.Close المفروض يكون في النهاية
يعني انقله بعد End While
الرد }}}}
تم الشكر بواسطة:
#3
(17-10-16, 01:17 PM)mhmd_911 كتب : الأملا rdr.Close المفروض يكون في النهاية
يعني انقله بعد  End While

اهلا اخي جربته لكن المشكلة مستمرة
الرد }}}}
تم الشكر بواسطة:
#4
هذا الكلام امس

انا لما شفتك "اريد حلا ارجوكم وبسرعة"
قلت اخونا في حاجة مساعدة مستعجلة

رديت عليك وانتظرتك ترد بالنتيجة،

لكن للاسف تجاهلتني
الرد }}}}
تم الشكر بواسطة:
#5
(18-10-16, 11:25 AM)mhmd_911 كتب : هذا الكلام امس

انا لما شفتك "اريد حلا ارجوكم وبسرعة"
قلت اخونا في حاجة مساعدة مستعجلة

رديت عليك وانتظرتك ترد بالنتيجة،

لكن للاسف تجاهلتني

لا انا لم اتجاهل غير انشغلت بايجاد حل للمشكلة شكرا اخي
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] اريد طريقة لتشفير اكواد الفيجوال بيسك طارق سليمان 0 64 24-05-17, 05:14 PM
آخر رد: طارق سليمان
  [VB.NET] اريد حل لموضع تايمر ضمن الاكواد تالية e-coder 5 116 21-05-17, 09:38 PM
آخر رد: Amir_alzubidy
  [VB.NET] اريد وضع مؤقت بدون تايمر داخل هذا الكود + المشروع بالكامل e-coder 0 52 19-05-17, 04:09 PM
آخر رد: e-coder
  [VB.NET] اريد كود حفظ العمل على البرنامج ؟؟ عامر الجبوري 4 96 16-05-17, 12:54 PM
آخر رد: عامر الجبوري
  فضلا ، اريد كود لرومنة الأسماء العربية الى الحروف الانجليزية السكر المغرور 11 1,472 28-04-17, 04:30 PM
آخر رد: usamahub
  عندي جدولين اريد جملة sqlتقوم باظهار الاسماء الموجودة في الجدول الاول وليست موجودة في محمد محمود الغرياني 2 151 22-04-17, 02:19 AM
آخر رد: ابو ليلى
  اريد رابط تحميل فيجوال بيسك 2015 كود برمجي 3 206 19-04-17, 07:10 PM
آخر رد: كود برمجي
  ساعدوني انا ارجوكم رجاء samawi 1 61 16-04-17, 06:07 PM
آخر رد: samawi
  عندما يكون listbox فارغ اريد ان يكون لونه احمر مثلا الـ ـجارح 7 153 15-04-17, 09:23 PM
آخر رد: Amir_alzubidy
  اريد هذا الكود من فضلكم fouadhdfouad 8 189 12-04-17, 12:14 AM
آخر رد: abdualla

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم