تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] عايز كو للحذف
#1
Rainbow 
السلام عليك ممكن
كود للحذف من الاكسس
 الذي يدعي ان لغته هي افضل لغة برمجة، فاعلم انه مستخدم وليس مبرمج.
الرد
تم الشكر بواسطة:
#2
السّلام عليكم و رحمة الله و بركاته
توجد العديد من الطرق و هذه إحداها أخي الكريم ..
كود :
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Using Commandcheck As New OleDbCommand("SELECT MAX(ID) FROM FONCTIONNAIRE", Con)
           If Con.State = ConnectionState.Closed Then Con.Open()
           If Commandcheck.ExecuteScalar Is DBNull.Value Then
               MsgBox("قاعدة البيانات فارغة .. لا توجد بيانات لتنفيذ الأمر ")
               Con.Close()
               Exit Sub
           End If
       End Using
       If MsgBox("  هل أنت متأكّد من أنك تريد حذف بيانات هذا الموظّف :  " & TxtEmpName.Text & " ؟ ", MsgBoxStyle.YesNo + MsgBoxStyle.Critical, "تحذير") = MsgBoxResult.No Then
           Exit Sub
       ElseIf TextBox1.Text = "" Then
           MsgBox("الرجاء كتابة الرقم التسلسلي", MsgBoxStyle.MsgBoxRtlReading, "تنبيه")
       Else
           Using Command As New OleDbCommand("DELETE FROM FONCTIONNAIRE WHERE ID = @ID", Con)
               Command.Parameters.Add("@ID", OleDbType.Numeric).Value = TextBox1.Text
               If Con.State = ConnectionState.Closed Then Con.Open()
               If Command.ExecuteNonQuery() = 1 Then
                   MsgBox("تمت عملية الحذف بنجاح", MsgBoxStyle.MsgBoxRtlReading, "تنفيذ اجراء الحذف")
             Else
                   MsgBox("لم تتم عملية الحذف بنجاح", MsgBoxStyle.MsgBoxRtlReading, "تنفيذ اجراء الحذف")
                   Call SetState("View")
               End If
               Con.Close()
           End Using
       End If
   End Sub

تحياتي
الرد
#3
(25-11-18, 08:27 PM)عبد العزيز البسكري كتب :
السّلام عليكم و رحمة الله و بركاته
توجد العديد من الطرق و هذه إحداها أخي الكريم ..
كود :
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Using Commandcheck As New OleDbCommand("SELECT MAX(ID) FROM FONCTIONNAIRE", Con)
           If Con.State = ConnectionState.Closed Then Con.Open()
           If Commandcheck.ExecuteScalar Is DBNull.Value Then
               MsgBox("قاعدة البيانات فارغة .. لا توجد بيانات لتنفيذ الأمر ")
               Con.Close()
               Exit Sub
           End If
       End Using
       If MsgBox("  هل أنت متأكّد من أنك تريد حذف بيانات هذا الموظّف :  " & TxtEmpName.Text & " ؟ ", MsgBoxStyle.YesNo + MsgBoxStyle.Critical, "تحذير") = MsgBoxResult.No Then
           Exit Sub
       ElseIf TextBox1.Text = "" Then
           MsgBox("الرجاء كتابة الرقم التسلسلي", MsgBoxStyle.MsgBoxRtlReading, "تنبيه")
       Else
           Using Command As New OleDbCommand("DELETE FROM FONCTIONNAIRE WHERE ID = @ID", Con)
               Command.Parameters.Add("@ID", OleDbType.Numeric).Value = TextBox1.Text
               If Con.State = ConnectionState.Closed Then Con.Open()
               If Command.ExecuteNonQuery() = 1 Then
                   MsgBox("تمت عملية الحذف بنجاح", MsgBoxStyle.MsgBoxRtlReading, "تنفيذ اجراء الحذف")
             Else
                   MsgBox("لم تتم عملية الحذف بنجاح", MsgBoxStyle.MsgBoxRtlReading, "تنفيذ اجراء الحذف")
                   Call SetState("View")
               End If
               Con.Close()
           End Using
       End If
   End Sub

تحياتي

شكرا جدا اخي العزيز
 الذي يدعي ان لغته هي افضل لغة برمجة، فاعلم انه مستخدم وليس مبرمج.
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Brick [VB.NET] عايز طريقة اضافه رقم لحقل معين لمجموعة بيانات x4ahmad 2 380 23-05-20, 01:09 AM
آخر رد: x4ahmad
  عايز اعرف السطر اللي بيحصل عنده المشكله في الكود makky 0 217 10-05-20, 08:43 PM
آخر رد: makky
  [سؤال] عايز اجلب قاعدة بيانات سيكوال واعرضها في text عاصم النجار 1 351 05-05-20, 02:11 AM
آخر رد: ابو ليلى
  [سؤال] عايز كود اقدر احدد منه مسارالمشروع في textbox عاصم النجار 1 291 04-05-20, 09:06 AM
آخر رد: عبدالله الدوسري
  [سؤال] عايز اعمل مرفق وعرضه في داتا جريد فيو عاصم النجار 0 218 02-05-20, 10:58 AM
آخر رد: عاصم النجار
Wink [سؤال] عايز كود اضافة داخل الداتا جريد فيو عاصم النجار 12 1,260 27-04-20, 05:46 PM
آخر رد: Codack
  [سؤال] عايز اعمل LOop على ListBox عاصم النجار 9 724 05-04-20, 08:36 PM
آخر رد: aljzazy
  انا عايز افهم شئ بسيط اليوم السابع 8 767 09-11-19, 03:11 PM
آخر رد: اليوم السابع
  [VB.NET] عمل عد تنازلى لانترفال تايمر يعنى مثلا عندى تيمر 1 الانترفال بتاعه مثلا 20 ثانية عايز الماجيك مسعد 11 2,797 14-10-19, 11:43 PM
آخر رد: elgokr
  عايز اعمل ProgressBar فى وضع مسج بوكس بالتزامن مع شئ على زهران 7 933 08-09-19, 08:41 PM
آخر رد: سعود

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم