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

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

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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد تحول الكود لفيجوال 2008 abudawoodd 6 157 15-01-17, 02:11 PM
آخر رد: abudawoodd
  اريد كود غلق الفورم الحالى وفتح فورم اخر ali.alfoly 8 2,834 04-01-17, 09:18 PM
آخر رد: jojo2014
  مساعده اريد كود لحذف عدد من الصفوف من الداتا قرد فيو وكذلك تنحذف من قاعدة البيانات معتز الجازوي 2 106 25-12-16, 01:44 PM
آخر رد: thevirus
  اريد كود لفتح ملف صوتى فى اداة ويندوز ميديا بلير من ملف الريسورس المبرمج الاسطورى 5 575 23-12-16, 03:16 PM
آخر رد: silverlight
  [VB.NET] سؤالى عن new Tabpage اريد نسخ جميع المحتوى والاكواد فى تاب جديد elhon.tec 1 93 20-12-16, 09:10 AM
آخر رد: amgad525
  [VB.NET] اريد إضافة صورة للموظف في جدول أخر بنفس قاعدة البيانات أبووسم 11 565 18-12-16, 07:15 PM
آخر رد: أبووسم
  اريد كود يضغط على F1 بسرعه اقل من ثانيه mohamedabd 10 280 15-12-16, 05:53 PM
آخر رد: mohammed moh
  اريد امثلة او شرح ل AsyncVoidMethodBuilder الماجيك مسعد 2 77 15-12-16, 04:04 PM
آخر رد: الماجيك مسعد
  لديّ 2 قاعدة بيانات وريبورت 1 اريد تغيير البيانات مرة من القاعدة 1 ومرة من القاعدة 2 محمد محمود الغرياني 3 106 12-12-16, 02:04 AM
آخر رد: khodor1985
  [VB.NET] اريد كود للبرنامج التالي بطريقة general procedures a_abdullah 2 131 05-12-16, 02:18 PM
آخر رد: a_abdullah

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


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