تقييم الموضوع :
  • 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 كتب : هذا الكلام امس

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

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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد تعديل ع المشروع فقط + تحميل المشروع بالكامل e-coder 4 115 17-10-17, 12:09 AM
آخر رد: e-coder
  [VB.NET] اريد تعديل ع هذا الكود الرجاء مساعدتـي e-coder 0 37 13-10-17, 06:39 PM
آخر رد: e-coder
  [سؤال] اريد طريقة لمنع تكرار عناصر listbox riad21 4 386 13-10-17, 10:03 AM
آخر رد: مصطفي الشكلي
  [VB.NET] اريد التعديل علي المديول التالي محمد اسماعيل 2 65 08-10-17, 07:37 PM
آخر رد: محمد اسماعيل
  [VB.NET] اريد كود للكشف عن تغير عنوان الشبكة e-coder 0 35 23-09-17, 03:21 AM
آخر رد: e-coder
  اريد كود لتحقق ان كان الفورم مفتوح ام لا The Light Fire 2 99 11-09-17, 06:57 PM
آخر رد: The Light Fire
  اريد طريقة دمج صورة مع صورة وحفظها كصورة واحدة soper 1 101 27-08-17, 12:01 PM
آخر رد: khodor1985
  [VB.NET] اريد رابط مباشر لبرنامج السيكول سيرفر 2010 امل عوض 1 97 25-08-17, 12:01 PM
آخر رد: سعود الشامان
  ارجو المساعدة من اهل الخبرة اريد كود لعمل فورم نقل او تحويل الاصناف من مخزن الى مخزن احمد الامين 8 289 24-08-17, 06:23 AM
آخر رد: احمد الامين
  اريد طريقة الاتصال المباشر بقاعدة بيانات اكسس abudawoodd 1 330 22-08-17, 02:03 PM
آخر رد: نبيل كونكت

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


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