بخصوص كود المسح أو الحذف
كل ما تحتاج اليه هو
اسفل هذا السطر
كود :
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
اذا قمت بالاطلاع على كود التعديل
ستلاحظ ان كود التعديل هو نفسه كود الاضافة
بس مع اختلاف كود تنفيذ الاضافة و التعديل بقاعدة البيانات
اتمنى ان لا يكون فى اخطاء بكتابة الاكواد
جرب وابلغنى بما تم
لانى قمت بكتابة الاكواد يدوياً بدون اختبار
تحياتى لك
وتمنياتى لك التوفيق