[elgokr]

بخصوص كود المسح أو الحذف

كل ما تحتاج اليه هو

اسفل هذا السطر

كود :

MsgBox("DELETE SUCCES", MsgBoxStyle.MsgBoxRtlReading, "DELETE")

قم بوضع هذا السطر اذا كان اسفل الرسالة او اعلى الرسالة

كود :

Label9.Text = Nothing

بخصوص كود التعديل 

الامور معقدة شوية لانك ستعمل على تعديل على عمود Publication 

والذى يحتوى على 7 مدخلات بنائاً على TextBox السبعة الموجود بالفورم

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

بحيث كل ما يتم عملية الاضافة يتم الترقيم من 1 : 7

وبكده عند اتمام التعديل هيكون الامور مبسطة

لاتمام ذلك قم بفتح قاعدة البيانات الاكسس وقم بالتالى

انشاء عمود باسم Number واجعل نوع العمود Number

من ثم تعال على زر الاضافة واجعله الكود التالى

كود :

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim arr As String() = {TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, TextBox5.Text, TextBox6.Text, TextBox7.Text}
       Try
           Dim sqsq As String = "INSERT INTO MOUVEMENT (Publication, Number) Values (@Text, @Num);"
           Dim command As New OleDbCommand(sqsq, con)
           command.Parameters.Add("@Text", OleDbType.VarChar)
           command.Parameters.Add("@Num", OleDbType.VarChar)
           con.Open()
           Dim ii As Integer = 0
           For Each s As String In arr
               ii += 1
               command.Parameters("@Text").Value = s
               command.Parameters("@Num").Value = ii
               command.ExecuteNonQuery()
           Next
           con.Close()
           MsgBox("SAVE SUCCES", MsgBoxStyle.MsgBoxRtlReading, "SAVE")
       Catch ex As Exception
           MsgBox(ex.Message)
           MsgBox("SAVE ERROR", MsgBoxStyle.MsgBoxRtlReading, "ERROR")
       Finally
           con.Close()
       End Try
   End Sub

بخصوص كود المسح / الحذف

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

ولتاكيد شكل الكود

كود :

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       Try
           Dim com As OleDbCommand
           con.Open()
           com = New OleDbCommand("DELETE * FROM MOUVEMENT", con)
           com.ExecuteNonQuery()
           con.Close()
           MsgBox("DELETE SUCCES", MsgBoxStyle.MsgBoxRtlReading, "DELETE")
           Label9.Text = Nothing
       Finally
       End Try
   End Sub

بخصوص كود التعديل هيكون بالشكل التالى

كود :

   Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
       Dim arr As String() = {TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, TextBox5.Text, TextBox6.Text, TextBox7.Text}
       Try
           Dim sqsq As String = "Update MOUVEMENT SET Publication = @Text WHERE Number = @Num;"
           Dim command As New OleDbCommand(sqsq, con)
           command.Parameters.Add("@Text", OleDbType.VarChar)
           command.Parameters.Add("@Num", OleDbType.VarChar)
           con.Open()
           Dim ii As Integer = 0
           For Each s As String In arr
               ii += 1
               command.Parameters("@Text").Value = s
               command.Parameters("@Num").Value = ii
               command.ExecuteNonQuery()
           Next
           con.Close()
           MsgBox("SAVE SUCCES", MsgBoxStyle.MsgBoxRtlReading, "SAVE")
       Catch ex As Exception
           MsgBox(ex.Message)
           MsgBox("SAVE ERROR", MsgBoxStyle.MsgBoxRtlReading, "ERROR")
       Finally
           con.Close()
       End Try
   End Sub

اذا قمت بالاطلاع على كود التعديل

ستلاحظ ان كود التعديل هو نفسه كود الاضافة

بس مع اختلاف كود تنفيذ الاضافة و التعديل بقاعدة البيانات

اتمنى ان لا يكون فى اخطاء بكتابة الاكواد

جرب وابلغنى بما تم

لانى قمت بكتابة الاكواد يدوياً بدون اختبار

تحياتى لك

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