Private Sub Adodc2_Error(ByVal ErrorNumber As Long, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, fCancelDisplay As Boolean)
fCancelDisplay = True
End Sub
Private Sub Command1_Click()
On Error Resume Next: Err.Clear
Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Persist Security Info=False"
Adodc2.RecordSource = "Delete From Table1"
Adodc2.Refresh
Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Persist Security Info=False"
Adodc2.RecordSource = "Delete From Table2"
Adodc2.Refresh
MsgBox "تم الحذف بنجاح", vbOKOnly + vbInformation, "تنبيه"
End Sub
Private Sub Command2_Click()
On Error Resume Next: Err.Clear
Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Persist Security Info=False"
Adodc2.RecordSource = "Update Table1 Set Name='m'"
Adodc2.Refresh
MsgBox "تم التعديل بنجاح", vbOKOnly + vbInformation, "تنبيه"
End Sub
(05-04-16, 02:14 AM)Ahmed_Mansoor كتب : [ -> ]وعليك السلام ورحمة الله وبركاته
أهلا أخي الكريم , أولاً قم بإضافة أداة Adodc جديدة وتكون خاصة لأكواد الحذف والتعديل ولتكن مثلاً بإسم Adodc2 ثم قم بإضافة الحدث Adodc2_Error التابع لها والخاص بظهور الأخطاء لكي يتم إخفاء أي رسائل خطأ تظهر , أنسخ كود الحدث وإلصقه في كود الفورم التي توجد عليه الأداة Adodc2 :
PHP كود :
Private Sub Adodc2_Error(ByVal ErrorNumber As Long, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, fCancelDisplay As Boolean)
fCancelDisplay = True
End Sub
وهذا كود حذف جميع بيانات جدول وهذا الجدول بإسم Table1 قم بتكرار كود الحذف بعدد الجداول الموجوده في قاعدة البيانات مع تغيير أسماء الجداول في الكود المكرر حيث يكون كل كود حذف خاص بجدول واحد وأيضاُ لاتنسى تغيير إسم قاعدة البيانات في كل كود حذف .
PHP كود :
Private Sub Command1_Click()
On Error Resume Next: Err.Clear
Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Persist Security Info=False"
Adodc2.RecordSource = "Delete From Table1"
Adodc2.Refresh
Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Persist Security Info=False"
Adodc2.RecordSource = "Delete From Table2"
Adodc2.Refresh
MsgBox "تم الحذف بنجاح", vbOKOnly + vbInformation, "تنبيه"
End Sub
وهذا كود بوضع قيمة نصية وهي الحرف m في جميع صفوف العمود أو الحقل Name وإذا أردت حذف جميع قيم عمود أو حقل معين قم بدل حرف الـ m إجعله فارغ بدون أي شي وسيتم مسح القيم :
PHP كود :
Private Sub Command2_Click()
On Error Resume Next: Err.Clear
Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Persist Security Info=False"
Adodc2.RecordSource = "Update Table1 Set Name='m'"
Adodc2.Refresh
MsgBox "تم التعديل بنجاح", vbOKOnly + vbInformation, "تنبيه"
End Sub