تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[Acces2003] المساعدة في كود لحذف البيانات من الاستعلام
#1
لدي استعلام من جدولين جدول موظفين وجدول رواتب وقمت بوضعه في الدتا جريد فيو وهو يعمل بكفاءة في الإضافة  

ولكن المشكلة لم أستطع عمل كود لحذف البيانات من الاستعلام 


الملفات المرفقة
.rar   WindowsApplication9.rar (الحجم : 429.99 ك ب / التحميلات : 47)
الرد
تم الشكر بواسطة:
#2
تفضل المثال بعد التعديل
و وفقك الله


اذا شق عليك فتح الملف
فهذا كود الحذف

PHP كود :
Sub delete_field()
        Try
            
Dim DT As New DataTable
            Dim cmd 
As New OleDbCommand
            DT
.Clear()
            
cmd = New OleDbCommand("Delete * from emp where pid=" Val(Me.Text), con)
            
con.Open()
            
cmd.ExecuteNonQuery()
            
con.Close()
            
New_Qsalary()
            
new_emp()
        Catch 
ex As Exception

        End 
Try

    
End Sub
' هذا الكود لاخذ رقم الموظف المراد حذفه
    Private Sub DataGridView1_SelectionChanged(sender As Object, e As EventArgs) Handles DataGridView1.SelectionChanged
        Me.Text = Me.DataGridView1.Rows(DataGridView1.CurrentRow.Index).Cells(0).Value
    End Sub
'
وهذا الكود في زر الحذف
       
Try

            
delete_field()
        Catch 
ex As Exception
        End 
Try 


الملفات المرفقة
.zip   WindowsApplication9.zip (الحجم : 547.75 ك ب / التحميلات : 39)
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد
تم الشكر بواسطة: khodor1985
#3
(28-08-16, 02:00 AM)أبو عمر كتب : تفضل المثال بعد التعديل
و وفقك الله


اذا شق عليك فتح الملف
فهذا كود الحذف

PHP كود :
Sub delete_field()
 
       Try
            Dim DT 
As New DataTable
            Dim cmd 
As New OleDbCommand
            DT
.Clear()
 
           cmd = New OleDbCommand("Delete * from emp where pid=" Val(Me.Text), con)
 
           con.Open()
 
           cmd.ExecuteNonQuery()
 
           con.Close()
 
           New_Qsalary()
 
           new_emp()
 
       Catch ex As Exception

        End 
Try

 
   End Sub
' هذا الكود لاخذ رقم الموظف المراد حذفه
    Private Sub DataGridView1_SelectionChanged(sender As Object, e As EventArgs) Handles DataGridView1.SelectionChanged
        Me.Text = Me.DataGridView1.Rows(DataGridView1.CurrentRow.Index).Cells(0).Value
    End Sub
'
وهذا الكود في زر الحذف
       
Try

 
           delete_field()
 
       Catch ex As Exception
        End 
Try 

جزيت خيرا ً ، ألف ألف ألف شكر

(28-08-16, 11:24 AM)محمد خلف زكي كتب :
(28-08-16, 02:00 AM)أبو عمر كتب : تفضل المثال بعد التعديل
و وفقك الله


اذا شق عليك فتح الملف
فهذا كود الحذف

PHP كود :
Sub delete_field()
 
       Try
            Dim DT 
As New DataTable
            Dim cmd 
As New OleDbCommand
            DT
.Clear()
 
           cmd = New OleDbCommand("Delete * from emp where pid=" Val(Me.Text), con)
 
           con.Open()
 
           cmd.ExecuteNonQuery()
 
           con.Close()
 
           New_Qsalary()
 
           new_emp()
 
       Catch ex As Exception

        End 
Try

 
   End Sub
' هذا الكود لاخذ رقم الموظف المراد حذفه
    Private Sub DataGridView1_SelectionChanged(sender As Object, e As EventArgs) Handles DataGridView1.SelectionChanged
        Me.Text = Me.DataGridView1.Rows(DataGridView1.CurrentRow.Index).Cells(0).Value
    End Sub
'
وهذا الكود في زر الحذف
       
Try

 
           delete_field()
 
       Catch ex As Exception
        End 
Try 

جزيت خيرا ً ، ألف ألف ألف شكر ولكن الحذف يكون عشوائي وأحيانا ًُ يحذف حقلين معا ُ
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة قاعدة البيانات لا تقبل البيانات بعد التنصيب abozeyd 8 234 10-09-18, 08:02 AM
آخر رد: elgokr
  سؤال حول عرض البيانات في الداتا جريد والاستعلام alfaiz678 12 488 25-08-18, 10:00 PM
آخر رد: elgokr
  [سؤال] حول تحديث البيانات داخل DataGridView مبرمج بلا حدود 20 3,589 14-08-18, 09:00 PM
آخر رد: elgokr
  كيفية حفظ التعديل في Data Grid View مباشرا الى قاعدة البيانات اللورد محمود 1 304 02-08-18, 07:26 PM
آخر رد: سعود
  خطأ في الإتصال بقاعدة البيانات الموجودة على هذا السيرفر (ويندوز 10) djelloul 0 186 04-05-18, 12:14 AM
آخر رد: djelloul
  لعدم وجود رد على سؤالي كتبته هنا بطريقة أوضح ,, ارجو المساعدة ahmed_elwerfalli 1 180 28-04-18, 06:09 PM
آخر رد: ahmed_elwerfalli
  بحث و اظهار سجلات من قاعدة البيانات في حال تساوت اول 4 ارقام من text بالقيمه الموجود ahmed_elwerfalli 0 227 25-04-18, 04:12 PM
آخر رد: ahmed_elwerfalli
  [كود] المساعدة في وضع صورة لكل موظف وادي العوضي 3 439 23-03-18, 06:34 PM
آخر رد: حيدر العراقي
  إضافة الصورة في قاعدة البيانات iFanfan 0 314 01-03-18, 06:02 PM
آخر رد: iFanfan
  معرفة اصدار نسخة قاعدة البيانات atefkhalf2004 8 394 27-01-18, 06:07 PM
آخر رد: أبو عمر

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


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