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

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


الملفات المرفقة
.rar   WindowsApplication9.rar (الحجم : 429.99 ك ب / التحميلات : 36)
الرد }}}}
تم الشكر بواسطة:
#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 ك ب / التحميلات : 27)
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Heart
الرد }}}}
تم الشكر بواسطة: 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 

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مسار قاعدة البيانات اكسس Mostafa Yousry 6 1,596 24-09-17, 08:23 PM
آخر رد: alsouf
  [سؤال] مشكلة الاختلاف بين ترتيب الصفوف في قاعدة البيانات والداتا جريد فيو waelalmsry75 2 134 18-08-17, 05:40 PM
آخر رد: waelalmsry75
  هل يمكن حفظ البيانات من dataGridView مباشرة؟ abozeyd 3 181 15-08-17, 02:11 PM
آخر رد: abozeyd
  [سؤال] المساعدة - بجملة استعلام بين عدة جداول safalo 3 129 14-08-17, 02:06 AM
آخر رد: safalo
  كيف أجعل اسم الجدول في نص الاستعلام متعيرا؟ abozeyd 4 153 11-08-17, 06:46 AM
آخر رد: أبو نوره
  طلب كود رسالة تبين أن هذه البيانات موجودة من قبل ولا يسمح بتكررها waelalmsry75 2 168 19-07-17, 03:24 PM
آخر رد: waelalmsry75
  [كود] المساعدة في وضع صورة لكل موظف وادي العوضي 0 106 15-07-17, 11:59 AM
آخر رد: وادي العوضي
  [كود] المساعدة في كود بحث برقم التسلسل اذا كان الرقم غير موجود داخل قاعدة بيانات تخرج رسالة وادي العوضي 3 181 14-07-17, 09:43 AM
آخر رد: وادي العوضي
Rainbow [VB.NET] كيف يمكنني الإتصال بملف قاعدة البيانات نوع Paradox sniperjawadino 2 167 12-07-17, 01:20 PM
آخر رد: sniperjawadino
  [كود] المساعدة في معرفة اين الخطأ في كود الاضافة لصورة موظف وادي العوضي 2 124 11-07-17, 05:56 PM
آخر رد: وادي العوضي

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


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