تقييم الموضوع :
  • 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

تحياتي

شكرا جدا اخي العزيز
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] عايز دورة انشاء برنامج مثل الهين والامبراطورية من فضلكم omarzerrouki 4 920 03-12-18, 06:27 AM
آخر رد: mhs
  [سؤال] عايز كود للبحث اسامه الهرماوي 1 54 28-11-18, 09:35 PM
آخر رد: حريف برمجة
  [VB.NET] عمل رساله تاكيد للحذف رومنس الشوق 3 1,075 24-07-18, 05:05 PM
آخر رد: 304
  عايز كود يقفل الهارد ديسك برقم سري ... التفاصيل في الداخل ... أرجوا الأهتمام Theknight082460@gmail.com 1 186 13-06-18, 06:59 PM
آخر رد: elgokr
  [سؤال] عايز اعرف ايه السبب وايه الحل؟ RaiseEvent الماجيك مسعد 6 315 11-05-18, 09:16 PM
آخر رد: الماجيك مسعد
  بدل ما اقوله اقرء الي في السطر كذا ... عايز اقوله إذا وجدت هذا السطر في اي مكان افعل DanyGhost2010 1 204 27-12-17, 11:05 PM
آخر رد: طالب برمجة
  عايز اعمل حاجة تخليني اعرف كام جهاز مشغل البرنامج ومواصفات الاجهزة ووالوصول لقاعدة ال hoshosgost@yahoo.com 2 332 28-09-17, 11:41 PM
آخر رد: مصمم الدوادمي
  [VB.NET] عايز كود يحول الجيجا الى البايت MOSTAFA.KAMEL 6 498 12-06-17, 01:36 AM
آخر رد: MOSTAFA.KAMEL
  [VB.NET] عايز اعرف ازاى اعمل برنامج بقاعدة بيانات xaml MOSTAFA.KAMEL 3 496 13-05-17, 11:01 PM
آخر رد: العواد الصغير
  [VB.NET] عايز اشغل الكود ده على ال #c MOSTAFA.KAMEL 10 885 02-05-17, 01:27 AM
آخر رد: MOSTAFA.KAMEL

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


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