[alfaiz678]

السلام عليكم ورحمة الله وبركاته

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

كما في الصورة

[elgokr]

بخصوص كود الاستعلام

اجعل الجزء الاخير منه بهذا الشكل

كود :

Like '" & TJBeaNumf.txt & "'", conne)

تحياتى لك

وتمنياتى لك التوفيق

[alfaiz678]

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

[سعود]

اخواني الكرام معامل Like و = لا دخل لهما بخطا غلق الـ Reader
حسب الصورة ان الريدر مغلق ويجب فتحه.
لكني لم افهم سبب ظهور الرسالة

[alfaiz678]

انا عملت جدولين وعملت بينهما علاقة
ثم قمت بالغاءها
الجدول الرئيسي تمام
المشكلة حصلت في الجدول ذو المفتاح الثانوي

هل هذا قد يكون سبب المشكلة

[Done]

ضع الكود كامل

[alfaiz678]

إقتباس :ضع الكود كامل

كود :

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

---

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

[elgokr]

كلما حاولت اضع لك رد

ياتى فى بالى العديد من الاسئلة حول الكود وما تستخدمه

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

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

لان ابسط كريقة لحل مشكلة التى لديك

هو استخدام DataTable  بدلاً من DataSet

على العموم انا منتظر منك ردك مرفق به السورس

حتى اضح الحل الانسب لما هو لديك

بعد قراءة الفورم كاملاً

تحياتى لك

وتمنياتى لك التوفيق

[alfaiz678]

(21-07-18, 06:56 PM)elgokr كتب :

كلما حاولت اضع لك رد

ياتى فى بالى العديد من الاسئلة حول الكود وما تستخدمه

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

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

لان ابسط كريقة لحل مشكلة التى لديك

هو استخدام DataTable  بدلاً من DataSet

على العموم انا منتظر منك ردك مرفق به السورس

حتى اضح الحل الانسب لما هو لديك

بعد قراءة الفورم كاملاً

تحياتى لك

وتمنياتى لك التوفيق

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

في المرفقات

[alfaiz678]

إلى  الان لم اجد حلا لهذه المشكلة