+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : حذف مجموعة سجلات (/showthread.php?tid=47779)
حذف مجموعة سجلات - asdfar1977 - 07-01-24
اريد تصحيح هذا الكود حيث اننى اقوم باستدعاء بيانات من مجدول باستخدام استعلام ثم اريد حزف هذه البيانات التى تم استدعائها
واننى استخدم هذا الكود ولكنه لا يقوم بالحزف
Private Sub ButtonX2_Click(sender As Object, e As EventArgs) Handles ButtonX2.Click
Dim CON As New Class_CON
Dim DT As New DataTable
'Dim count_ As Integer = 0
'Dim rows() As DataRow
DT.Clear()
DT = CON.select_txt("SELECT dbo.Table_H_Acc.GUID, dbo.Table_D_Acc.GUID_D, dbo.Table_H_Acc.cod_cost_center_H FROM dbo.Table_D_Acc RIGHT OUTER JOIN dbo.Table_H_Acc ON dbo.Table_D_Acc.GUID_D = dbo.Table_H_Acc.GUID WHERE (dbo.Table_H_Acc.cod_cost_center_H = 70101)")
'If DT.Rows.Count > 0 Then
For i As Integer = DT.Rows.Count - 1 To 0
Dim dr As DataRow = DT.Rows(i)
If dr("cod_cost_center_H") = 70101 Then
'dr.Delete()
DT.Rows.Remove(dr)
End If
Next
DT.AcceptChanges()
'End If
End Sub
End Class
Dim CON As New Class_CON
Dim DT As New DataTable
'Dim count_ As Integer = 0
'Dim rows() As DataRow
DT.Clear()
DT = CON.select_txt("SELECT dbo.Table_H_Acc.GUID, dbo.Table_D_Acc.GUID_D, dbo.Table_H_Acc.cod_cost_center_H FROM dbo.Table_D_Acc RIGHT OUTER JOIN dbo.Table_H_Acc ON dbo.Table_D_Acc.GUID_D = dbo.Table_H_Acc.GUID WHERE (dbo.Table_H_Acc.cod_cost_center_H = 70101)")
'If DT.Rows.Count > 0 Then
For i As Integer = DT.Rows.Count - 1 To 0
Dim dr As DataRow = DT.Rows(i)
If dr("cod_cost_center_H") = 70101 Then
'dr.Delete()
DT.Rows.Remove(dr)
End If
Next
DT.AcceptChanges()
'End If
End Sub
End Class
RE: حذف مجموعة سجلات - Mujahef - 07-01-24
اللوب For لن يعمل لانك حددت يبدا من النهايه الى الصفر
جرب تعدله بحيث يبدا من الصفر الى النهايه
For i As Integer = 0 To DT.Rows.Count - 1
RE: حذف مجموعة سجلات - asdfar1977 - 08-01-24
(07-01-24, 08:48 PM)Mujahef كتب : اللوب For لن يعمل لانك حددت يبدا من النهايه الى الصفر
جرب تعدله بحيث يبدا من الصفر الى النهايه
For i As Integer = 0 To DT.Rows.Count - 1
تمام انا عدلت اللوب ومشتغلش انا عايذ اتاكد هل الكود ده مظبوط ام لا
RE: حذف مجموعة سجلات - Kamil - 08-01-24
قم بتجربة هذا الكود
PHP كود :
Private Sub ButtonX2_Click(sender As Object, e As EventArgs) Handles ButtonX2.Click
Dim CON As New Class_CON
Dim DT As New DataTable
DT.Clear()
DT = CON.select_txt("SELECT dbo.Table_H_Acc.GUID, dbo.Table_D_Acc.GUID_D, dbo.Table_H_Acc.cod_cost_center_H FROM dbo.Table_D_Acc RIGHT OUTER JOIN dbo.Table_H_Acc ON dbo.Table_D_Acc.GUID_D = dbo.Table_H_Acc.GUID WHERE (dbo.Table_H_Acc.cod_cost_center_H = 70101)")
For i As Integer = DT.Rows.Count - 1 To 0 Step -1
Dim dr As DataRow = DT.Rows(i)
If dr("cod_cost_center_H") = 70101 Then
Dim guidToDelete As String = dr("GUID").ToString()
' قم بحذف السجل من قاعدة البيانات باستخدام الـ CON
CON.execute_txt($"DELETE FROM dbo.Table_H_Acc WHERE GUID = '{guidToDelete}'")
' ثم قم بحذفه من DataTable
DT.Rows.RemoveAt(i)
End If
Next
' لا تقم بالاتصال بـ AcceptChanges() هنا، فهو غير ضروري
End Sub
RE: حذف مجموعة سجلات - asdfar1977 - 10-01-24
(08-01-24, 12:04 PM)Kamil كتب : الف شكر . كود رائع . دائما عند حسن الظن . تمت التجربه بنجاح