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

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

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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد طباعة الباركود المحدد فقط مع الكمية new_programer 5 417 09-01-24, 08:40 PM
آخر رد: new_programer
  اريد مساعدة في العملية الحسابية melad2002 3 397 29-12-23, 09:10 PM
آخر رد: melad2002
  [كود] اريد كود إرسال البيانات من الفيجوال بيسك إلىPDF issamsaidd 10 5,815 25-12-23, 06:30 PM
آخر رد: الحزين اليماني
  [VB.NET] اريد تعديل في الكود عند طباعة DGV abu_hisham7 1 420 03-12-23, 02:40 AM
آخر رد: abu_hisham7
  [سؤال] اريد تغيير اسم حقل ضمن جدول بقاعدة بيانات اكسس mh66 1 358 08-11-23, 08:16 AM
آخر رد: justforit
  كيف اجعل البرنامج في بداية الشهر ينفذ حدث معين بالاصح اريد البرنامج في تاريخ واحد من Adel27213 3 473 05-11-23, 01:45 AM
آخر رد: justforit
Star [كود] اريد تزويد 45 دقيقة على DateTimePicker1 كل ضغطة Button Ameenh 1 347 01-09-23, 07:13 AM
آخر رد: Asem2
Star [كود] اريد تزويد 45 دقيقة على DateTimePicker1 كل ضغطة Button Ameenh 0 273 01-09-23, 05:56 AM
آخر رد: Ameenh
  اريد اضافة متغيراخر داخل Listbox1 احتاج تعديل بسيط moh61 0 340 05-08-23, 02:29 PM
آخر رد: moh61
  اريد ارسال pdf عبر واتساب عن طريق ال API محتاج تعديل على الكود moh61 0 502 03-08-23, 03:41 PM
آخر رد: moh61

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


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