[مصمم هاوي]

الســــــ عليكم ــــــــــــلام

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


 

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

بحيث يتم حذف جميع السجلات دفعة واحدة من جدول  DataGrid عن طريق Check

[أبو عمر]

كيف يعني طريق check?

[مصمم هاوي]

كيف يعني طريق check?
تحد يد السجلات عن طريق أداة CheckBox

[مصمم هاوي]

انتظر الجواب؟

[أبو عمر]

ممكن ترفع مثال صغير لو سمحت؟

[مصمم هاوي]

هذا هو مثال صغير لطلب كود حذف جميع السجلات من الجدول بعد تحديدها بأأداة CheckBox

[أبو عمر]

السلام عليكم
كما تعلم DataGid لا تدعم خاصية Checked ولا selectedRow حتى
لذا اما مشوار طويل والبحث عن دوال واكود تخولك من عمل ذلك
او استبدالها ب ListView
امهلني افرغ من عملي واعمل لك المثال على اللست فيو ستجد انها افضل من الداتا جريد بمراحل
وان كنت مصمم على الداتا جريد فلم اجد لها حل الا ان تمر عليها سجل تلو الاخر
فعل خاصية allowdelete
وتسطيع الحذف بالكي بورد عادي
تختار السجل واضغط del

[أبو عمر]

(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

المثال مرفق عدله وارفع له للرجل من ثاني

[أبو عمر]

---

تمكين العضو من حذف مشاركته امر مقرف

[awidan76]

جزاك الله خير اخي ابو عمر انت عملت اللي عليك لاتحزن ربي يحفظك