• 0
كفاح

مشكلة فى زر الحذف

سؤال

Private Sub BindingNavigatorDeleteItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorDeleteItem.Click
        Con.Open()
        Try
            Dim mymsg As DialogResult = MessageBox.Show("هل انت متاكد من مسح الصنف" & TextBox1.Text, "مسح", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

            If mymsg = DialogResult.Yes Then
                Dim cmddel As New OleDb.OleDbCommand
                cmddel.Connection = Con
                cmddel.CommandType = CommandType.Text
                cmddel.CommandText = "DELETE FROM Product WHERE ProdutID = '" & TextBox1.Text & "'"
                cmddel.ExecuteNonQuery()
                MessageBox.Show("تم الحذف بنجاح", "", MessageBoxButtons.OK, MessageBoxIcon.Information)DS.Clear()
                Dim Adapter As New OleDb.OleDbDataAdapter(sqlstring, Con)
                Adapter.Fill(DS, "Product")
            End If
            Con.Close()
            fillcombo()
            '    Me.BindingContext(DS, "Product").RemoveAt(Me.BindingContext(DS, "Product").Position)
            '    Me.BindingContext(DS, "Product").Position += 1
            'End If
            'Me.BindingContext(DS, "Product").EndCurrentEdit()
            'Me.Adapter.Update(DS)
            'DS.AcceptChanges()
            'Con.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

برجاء المساعدة فى هذا الكود 

لاني بأقوم بمسح بالكود عن طريق المفتاح الاساسي ونوع رقم

بيعطني رسالة خطا  no value given for one or more required parameters

 

WindowsApplication6.zip

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

0 إجابة على هذا السؤال .

لاتوجد إجابات على هذا السؤال حتى الآن .

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .