تقييم الموضوع :
  • 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] اريد كود للبرنامج التالي بطريقة general procedures a_abdullah 2 57 05-12-16, 02:18 PM
آخر رد: a_abdullah
  اريد post لي جهاز ubnt .... خبراء sharo.azad 1 61 05-11-16, 06:58 PM
آخر رد: sharo.azad
  [VB.NET] اريد إضافة صورة للموظف في جدول أخر بنفس قاعدة البيانات أبووسم 8 275 05-11-16, 12:00 PM
آخر رد: Adrees
  اريد مساعدة في التعامل مع هذا الموقع بالفيجوال بيسك soper 2 86 03-11-16, 07:08 PM
آخر رد: soper
  اريد اجعل برنامجي يقبل اي نت فيرم ورك thevirus 2 114 31-10-16, 09:24 AM
آخر رد: thevirus
Photo [VB.NET] سؤالى عن انواع البيانات اريد اعرف نوع روابط الانترنت elhon.tec 4 104 27-10-16, 11:38 AM
آخر رد: ممدوح
  اريد كود غلق الفورم الحالى وفتح فورم اخر ali.alfoly 7 2,506 22-10-16, 09:53 AM
آخر رد: abbas alshuily
Sad [سؤال] اريد صنع صفحة تسجيل دخول الي برنامج عن طريق داتابيس online sql sharo.azad 3 98 21-10-16, 04:07 AM
آخر رد: أبو عمر
  [كود] اريد كود استخراج سورس موقع تحويل تلقائي sharo.azad 0 71 08-10-16, 03:10 PM
آخر رد: sharo.azad
  [سؤال] اريد كود حفظ listbox.item sharo.azad 1 84 07-10-16, 07:56 PM
آخر رد: silverlight

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


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