منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[Acces2003] المساعدة في كود لحذف البيانات من الاستعلام - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : [Acces2003] المساعدة في كود لحذف البيانات من الاستعلام (/showthread.php?tid=17025)



المساعدة في كود لحذف البيانات من الاستعلام - محمد خلف زكي - 28-08-16

لدي استعلام من جدولين جدول موظفين وجدول رواتب وقمت بوضعه في الدتا جريد فيو وهو يعمل بكفاءة في الإضافة  

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


RE: المساعدة في كود لحذف البيانات من الاستعلام - أبو عمر - 28-08-16

تفضل المثال بعد التعديل
و وفقك الله


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

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 



RE: المساعدة في كود لحذف البيانات من الاستعلام - محمد خلف زكي - 28-08-16

(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 

جزيت خيرا ً ، ألف ألف ألف شكر ولكن الحذف يكون عشوائي وأحيانا ًُ يحذف حقلين معا ُ