برمجة أمر Delete

أخي الكريم،

للأسف لا يوجد على جهازي الآن الفيجوال بيسك لعمل مثال بسيط ولكنني سأشرح لك كيفية القيام بذلك.

سأفترض بأنه لديك جدول إسمه Region وقمت بإنشاءه عن طريق ال Sql server، لحذف السجل الحالي (الذي يظهر على الشاشة) إستخدم الكود التالي:

Try
           If (Me.BindingContext(DataSet11, "Region").Count > 0) Then
               Me.BindingContext(DataSet11, "Region").RemoveAt(Me.BindingContext(DataSet11, "Region").Position)
           End If
       Catch ex As Exception
           MessageBox.Show(ex.Message)
       End Try
   End Sub

ويجب أن تضمن الكود أعلاه في Messagebox، فإن قام المستخدم بالضغط على زر "موافق" تطلقه.

بالنسبة لطلبك الثاني،يوجد للفورم الحدث Closing قم بوضع شرط في ذلك الحدث فإن كانت الداتاسيت فيه تغييرات فقم بوضع Messagebox تخير المستخدم بين حفظ التغييرات من عدمه، فإن طلب المستخدم حفظ التغييرات فقم بكتابة الكود التالي:

Try
           Me.BindingContext(DataSet11, "region").EndCurrentEdit()
           Me.SqlConnection1.Open()
           Me.SqlDataAdapter1.Update(DataSet11)
           DataSet11.AcceptChanges()
       Catch ex As Exception

           MessageBox.Show(ex.Message)
       Finally
           Me.SqlConnection1.Close()
       End Try

   End Sub

أما كيف تعرف بأن الداتا فيها تغييرات فذلك سهل فهي تملك الحدث haschanges والتي تقبل نعم أو لا.

يوجد في هذا المنتدى الكثير من المواضيع عن ADO NET حاول أن تبحث عن تلك المواضيع وستجد بأن الكثير من تلك المواضيع فيها أمثلة مرفقة، حاول دراستها للمزيد حول قواعد البيانات مع الفيجوال بيسك نيت، وإن إستعصى عليك فهم نقطة ما فلا تتردد بالسؤال هنا ونحن على إستعداد بالإجابة إن استطعنا.