تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ماهو هذا الخطأ : 'Invalid attempt to call NextResult when reader is closed.'
#1
السلام عليكم ورحمة الله وبركاته

مانوع هذا الخطأ طلع لي فجأة واتعبني
وهل يوجد فهرس او برنامج يوضح معاني اخطأ الفيجول
جزاكم الله خيرا

كما في الصورة

الرد }}
تم الشكر بواسطة:
#2
بخصوص كود الاستعلام
اجعل الجزء الاخير منه بهذا الشكل
كود :
Like '" & TJBeaNumf.txt & "'", conne)

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}
تم الشكر بواسطة: Done
#3
حياك الله اخي
الحقل رقم وليس نص
فليس هو الحل 
وايضا جربت ولا فائدة
الرد }}
تم الشكر بواسطة:
#4
اخواني الكرام معامل Like و = لا دخل لهما بخطا غلق الـ Reader
حسب الصورة ان الريدر مغلق ويجب فتحه.
لكني لم افهم سبب ظهور الرسالة
=====* التوقيع *======
=================
الرد }}
تم الشكر بواسطة: elgokr , Done
#5
انا عملت جدولين وعملت بينهما علاقة
ثم قمت بالغاءها
الجدول الرئيسي تمام
المشكلة حصلت في الجدول ذو المفتاح الثانوي

هل هذا قد يكون سبب المشكلة
الرد }}
تم الشكر بواسطة:
#6
ضع الكود كامل
الرد }}
تم الشكر بواسطة:
#7
إقتباس :ضع الكود كامل
كود :
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
       'On Error Resume Next
       DataAdapter2 = New OleDbDataAdapter("Select * From JBea2 Where JBeaNumf like " & TJBeaNumF.Text & "", conne)
       DataSet2.Clear()
       DataAdapter2.Fill(DataSet2, "JBea2")
       DataGridView1.DataSource = DataSet2
       DataGridView1.DataMember = "JBea2"
       DataGridView1.Refresh()
       DataGridView1.RefreshEdit()
       DG1()

       ' On Error Resume Next
       TJBeaNumS.DataBindings.Add("Text", DataSet2, "JBea2.JBeaNumS")
       TJBeaNameS.DataBindings.Add("Text", DataSet2, "JBea2.JBeaNameS")
       TJBeaAdd.DataBindings.Add("Text", DataSet2, "JBea2.JBeaAdd")
       CJBeaWhda.DataBindings.Add("Text", DataSet2, "JBea2.JBeaWhda")
       TJBeaSar.DataBindings.Add("Text", DataSet2, "JBea2.JBeaSar")
       TJBeaEjmaly.DataBindings.Add("Text", DataSet2, "JBea2.JBeaEjmaly")
       TextBox2.DataBindings.Add("Text", DataSet2, "JBea2.JBeanumf")
          On Error Resume Next'


        DataAdapter1 = New OleDbDataAdapter("Select * From JBea Where JBeaNumf like " & TJBeaNumF.Text & "", conne)
        DataSet1.Clear()
        DataAdapter1.Fill(DataSet1, "jbea")
        TJBeaNumF.DataBindings.Add("Text", DataSet1, "JBea.JBeanumf")
        CJBeaNameAmeel.DataBindings.Add("Text", DataSet1, "JBea.JBeaNameAmeel")
        DJBeaDate.DataBindings.Add("Text", DataSet1, "JBea.JBeaDate")
        CJBeaDfa.DataBindings.Add("Text", DataSet1, "JBea.JBeaDfa")
        TJBeaNote.DataBindings.Add("Text", DataSet1, "JBea.JBeaNote")
        TJBeaEjmalyF.DataBindings.Add("Text", DataSet1, "JBea.JBeaEjmalyf")
       adds()
   End Sub
هذا حدث التحديث


كود :
Private Sub DG1()
       DataGridView1.Columns(0).HeaderText = " بارا كود"
       DataGridView1.Columns(1).HeaderText = "أسم الصنف"
       DataGridView1.Columns(2).HeaderText = "الكمية"
       DataGridView1.Columns(3).HeaderText = " الوحدة"
       DataGridView1.Columns(4).HeaderText = "السعر "
       DataGridView1.Columns(5).HeaderText = " الاجمالي"

       '-------
       '==========
       DataGridView1.Columns(6).Visible = False
       '-----
       DataGridView1.Columns(0).Width = 100
       DataGridView1.Columns(1).Width = 250
       DataGridView1.Columns(2).Width = 100
       DataGridView1.Columns(3).Width = 100
       DataGridView1.Columns(4).Width = 100
       DataGridView1.Columns(5).Width = 100


       '''''========
       '      تلوين الداتا جريد
       DataGridView1.ColumnHeadersDefaultCellStyle.Alignment =
           DataGridViewContentAlignment.MiddleCenter
       DataGridView1.MultiSelect = False
       With Me.DataGridView1
           .RowsDefaultCellStyle.BackColor = Color.Bisque
           .AlternatingRowsDefaultCellStyle.BackColor = Color.Beige
       End With
   End Sub

  Private Sub adds()
        Dim cmd2 As New OleDbCommand
        cmd2.CommandType = CommandType.Text
        cmd2.Connection = conne
        cmd2.CommandText = " select count (jbeanumf) from [JBea] "
        ' cmd2.CommandText = "select count(jbeanumf) from [JBea]   " ' كود إيجاد عدد السجلات
        conne.Open()
        Dim a As Integer = cmd2.ExecuteScalar
        conne.Close()
        TextBox1.Text = a
    End Sub
هذا الحدث dg1 الذي يتم استدعائه  والحدث adds

مع العلم ان هذا الكود موضوع في حديث تحميل الفورم
ويشتغل تماما ويظهر المواد ن القاعدة
وعند استعماله مرة اخرى بزر امر لاغراض اخرى تظهر المشكلة
الرد }}
تم الشكر بواسطة:
#8
كلما حاولت اضع لك رد
ياتى فى بالى العديد من الاسئلة حول الكود وما تستخدمه

فبدلاً من وضع لك حلول تخمين يفضل ارفاق السورس الخاص بالمشورع
حتى يتم روية الواقع وتوضيح لك ما يجب عليك استخدامه من اكواد

لان ابسط كريقة لحل مشكلة التى لديك
هو استخدام DataTable  بدلاً من DataSet

على العموم انا منتظر منك ردك مرفق به السورس
حتى اضح الحل الانسب لما هو لديك
بعد قراءة الفورم كاملاً

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}
تم الشكر بواسطة:
#9
(21-07-18, 06:56 PM)elgokr كتب :
كلما حاولت اضع لك رد
ياتى فى بالى العديد من الاسئلة حول الكود وما تستخدمه

فبدلاً من وضع لك حلول تخمين يفضل ارفاق السورس الخاص بالمشورع
حتى يتم روية الواقع وتوضيح لك ما يجب عليك استخدامه من اكواد

لان ابسط كريقة لحل مشكلة التى لديك
هو استخدام DataTable  بدلاً من DataSet

على العموم انا منتظر منك ردك مرفق به السورس
حتى اضح الحل الانسب لما هو لديك
بعد قراءة الفورم كاملاً

تحياتى لك
وتمنياتى لك التوفيق
 هذا هو الفورم كاملا الذي فيه الخطأ
والعجيب اني استعمل هذا الكود في الاستعلام في النماذج الاخرى ويعمل
الا هنا هل لانني استعمل جدولين في نفس الفورم 
جزاك الله خيرا اخي\

في المرفقات


الملفات المرفقة
.zip   alfaiz.zip (الحجم : 327.35 ك ب / التحميلات : 6)
الرد }}
تم الشكر بواسطة:
#10
إلى  الان لم اجد حلا لهذه المشكلة
الرد }}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  combact and repaire closed database makky 11 2,494 22-06-19, 05:30 PM
آخر رد: elgokr
  sql connection was unhandled by user code عجزت عن حل هذا الخطأ vb.netly 3 1,336 06-03-19, 04:37 PM
آخر رد: محمد كريّم
Question [نقاش] ماهو الفرق بين  sql server 2008 r2 و sql الموجودة في الفيجوال استديو 2010 Amrjamil 0 2,286 21-09-17, 06:20 PM
آخر رد: Amrjamil
  [كود] المساعدة في معرفة اين الخطأ في كود الاضافة لصورة موظف وادي العوضي 2 1,409 11-07-17, 05:56 PM
آخر رد: وادي العوضي
  [سؤال] ما هو الخطأ فى هذا الكود احمد عبد الحكيم 1 1,511 07-07-17, 01:12 AM
آخر رد: silverlight
  [سؤال] ماهو الـ collation المناسب لـ sql server 2008 r2 سعود 9 6,596 14-03-14, 07:30 AM
آخر رد: سعود
  [سؤال] ما الخطأ فى كود الحفظ ... رجاء الدخول مصطفى_ظيمة 6 3,252 08-11-13, 08:01 PM
آخر رد: ahmed saba
  ممكن تعرفون لي الخطأ في الكود ده المبرمج البسيط 22 6,705 19-08-13, 10:14 PM
آخر رد: المبرمج البسيط
  أين الخطأ في طريقة عرض الصورة من قاعدة البيانات sql ؟ أم عبد العزيز 19 5,599 26-04-13, 12:03 PM
آخر رد: أم عبد العزيز

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


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