تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
حذف السجلات دفعة واحدة بعد تحديدها
#1
الســــــ عليكم ــــــــــــلام

أريد التعديل على كود حذف سجل واحد من جدول DataGrid


 
إقتباس :On Error Resume Next
   X = MsgBox ("هل تريد حذف الطالب", vbOKCancel, "حذف") 'لتأكيد عملية الحذف
   If X = vbOK Then                                     'اذا اختار على ok
   Adodc1.Recordset.Delete                              'يامر الريكورد ست بحذف السجل
   End If

بحيث يتم حذف جميع السجلات دفعة واحدة من جدول  DataGrid عن طريق Check
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
الرد }}}}
تم الشكر بواسطة:
#2
كيف يعني طريق check?
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Heart
الرد }}}}
تم الشكر بواسطة: Ahmed_Mansoor
#3
كيف يعني طريق check?
تحد يد السجلات عن طريق أداة CheckBox
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
الرد }}}}
تم الشكر بواسطة:
#4
انتظر الجواب؟
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
الرد }}}}
تم الشكر بواسطة:
#5
ممكن ترفع مثال صغير لو سمحت؟
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Heart
الرد }}}}
تم الشكر بواسطة: Ahmed_Mansoor
#6
هذا هو مثال صغير لطلب كود حذف جميع السجلات من الجدول بعد تحديدها بأأداة CheckBox


الملفات المرفقة
.zip   data.zip (الحجم : 837.24 ك ب / التحميلات : 110)
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
الرد }}}}
تم الشكر بواسطة:
#7
السلام عليكم
كما تعلم DataGid لا تدعم خاصية Checked ولا selectedRow حتى
لذا اما مشوار طويل والبحث عن دوال واكود تخولك من عمل ذلك
او استبدالها ب ListView
امهلني افرغ من عملي واعمل لك المثال على اللست فيو ستجد انها افضل من الداتا جريد بمراحل
وان كنت مصمم على الداتا جريد فلم اجد لها حل الا ان تمر عليها سجل تلو الاخر
فعل خاصية allowdelete
وتسطيع الحذف بالكي بورد عادي
تختار السجل واضغط del
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Heart
الرد }}}}
تم الشكر بواسطة:
#8
(03-10-15, 05:00 AM)sami2015 كتب : Private Sub Form_Load()
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\" & "data.mdb;" & "Jet OLEDB:database Password=1968;"
db.CursorLocation = adUseClient
Adodc1.ConnectionString = db.ConnectionString
End Sub


Private Sub Command6_Click()
If DataGrid1.SelBookmarks.Count = 0 Then Exit Sub

ReDim arr1(DataGrid1.SelBookmarks.Count - 1)
For i = 0 To DataGrid1.SelBookmarks.Count - 1
arr1(i) = DataGrid1.SelBookmarks(i) - 1
Next i

ReDim arr2(DataGrid1.SelBookmarks.Count - 1) As String
For i = 0 To UBound(arr2)
DataGrid1.Row = arr1(i)
arr2(i) = "[no]=" & DataGrid1.Columns(0).Value
Next i

db.Execute ("DELETE FROM [Tabel1] WHERE " & Join(arr2, " OR "))

Rs.Open "SELECT * FROM [Tabel1]", db
Set DataGrid1.DataSource = Rs
Set Adodc1.Recordset = Rs
End Sub

المثال مرفق عدله وارفع له للرجل من ثاني
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Heart
الرد }}}}
تم الشكر بواسطة:
#9



تمكين العضو من حذف مشاركته امر مقرف
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Heart
الرد }}}}
تم الشكر بواسطة: Ahmed_Mansoor , awidan76 , sami2015 , sami2015
#10
جزاك الله خير اخي ابو عمر انت عملت اللي عليك لاتحزن ربي يحفظك
اعز الناس واعز معلمين :
1)  Ahmed_Mansoor
2) sniper.ps
3) myalsailamy
4) ahmedabdelaliem
5) sendbad100
 الله يحفظهم 
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  دمج صفحتان فى ورقة واحدة في الأكتف ريبورت khezzani 1 78 10-08-17, 07:21 AM
آخر رد: Ahmed_Mansoor
  [vb6.0] ممكن شرح طريقة ربط مشروع بقاعدة بيانات واحدة بجدولين فيصل علي 2 137 01-07-17, 03:31 PM
آخر رد: فيصل علي
  هل من الممكن تعديل بيانات عدد من السجلات في الجدول دفعة واحدة كنونو 7 413 21-06-17, 02:51 PM
آخر رد: awidan76
  [vb6.0] ممكن شرح طريقة ربط في قاعدة بيانات واحدة بجدولين MSHFlexGrid2+MSHFlexGrid1 عبدالقادرعواد 3 233 11-04-17, 06:08 PM
آخر رد: sendbad100
  [سؤال] قاعدة البيانات ترفض حفظ السجلات الكبيرة يوجد مثال ياسر عبد الكريم 7 372 15-03-17, 02:38 PM
آخر رد: sendbad100
  عدد السجلات خطأ لماذا؟ عبدالله الصافي 5 362 06-01-17, 01:29 AM
آخر رد: عبدالله الصافي
  لو سمحتم انا محتاج كود حذف السجلات المتكرره رجل الكهرباء 1 266 25-12-16, 12:45 PM
آخر رد: عبدالله الصافي
  عدد السجلات التي ظهرت في الداتا ريبورت mohfar 1 345 25-03-16, 03:28 AM
آخر رد: Ahmed_Mansoor
  كود لتشغيل نسخة واحدة عيسى ابو ارميس 1 284 09-03-16, 01:10 AM
آخر رد: Ahmed_Mansoor
  [vb6.0] كود لحساب عدد السجلات hadeel 4 889 12-12-15, 03:53 PM
آخر رد: awidan76

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


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