منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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


 

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

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

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

كيف يعني طريق check?
تحد يد السجلات عن طريق أداة 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

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

---

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

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