تقييم الموضوع :
  • 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 ك ب / التحميلات : 84)
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
الرد }}}}
تم الشكر بواسطة:
#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)   sniper.ps
2) Ahmed_Mansoor
3) myalsailamy
4) ahmedabdelaliem الله يحفظهم 
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  عدد السجلات التي ظهرت في الداتا ريبورت mohfar 1 153 25-03-16, 03:28 AM
آخر رد: Ahmed_Mansoor
  كود لتشغيل نسخة واحدة عيسى ابو ارميس 1 119 09-03-16, 01:10 AM
آخر رد: Ahmed_Mansoor
  [vb6.0] كود لحساب عدد السجلات hadeel 4 626 12-12-15, 03:53 PM
آخر رد: awidan76
  [vb6.0] هل هناك كود يحذف كل السجلات من الجدول مرة واحدة larbihamri 5 1,020 16-02-15, 04:47 PM
آخر رد: larbihamri
Shocked [كود] لم بتبقى إلاخطوة واحدة essabar 1 341 07-12-14, 05:02 PM
آخر رد: essabar
  مشكلة في ترتيب السجلات ماجد 4 565 06-07-14, 07:38 PM
آخر رد: vbnet

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


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