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

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


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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] فك كلمة مرور معقدة على قاعدة البيانات اكسس ahmed saba 7 5,492 منذ 47 دقيقة مضت
آخر رد: abiza
  ظهور خطا عند سحب البيانات وعرضها في الداتا كريد باستخدم الـــ Threading HATEM KAREM 0 87 06-05-17, 04:45 PM
آخر رد: HATEM KAREM
  المساعدة في عمل استعلام قاعدة بيانات sqlserver djelloul 0 69 17-04-17, 07:13 PM
آخر رد: djelloul
  طلب المساعدة عاجلة لو سمحتم djelloul 8 204 05-04-17, 12:48 AM
آخر رد: Abu Ehab
  استفسار حول عدم تكرار البيانات المتألق9 3 152 02-04-17, 03:38 AM
آخر رد: حريف برمجة
  جلب البيانات من ملف txt djelloul 7 186 28-03-17, 03:20 PM
آخر رد: djelloul
  [سؤال] طلب صيغة عامة أو وظيفة لأضافة بيانات لقاعدة البيانات ؟ عبد الله 2 155 10-03-17, 09:36 AM
آخر رد: عبد الله
  سرعة ادخال البيانات داخل ملف اكسس atefkhalf2004 1 169 05-03-17, 04:06 AM
آخر رد: thevirus
  استعادة قاعدة البيانات من ملف النسخة الإحتياطية djelloul 2 171 28-02-17, 03:27 PM
آخر رد: djelloul
  فتح قاعدة البيانات محفوظة ب باسس ورد في جملة الاتصال ahmed_elwerfalli 2 160 13-02-17, 05:27 PM
آخر رد: ahmed_elwerfalli

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


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