منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
الحذف والاضافة والتعديل فى dao - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم اسئلة vb6.0 المتعلقة بقواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=72)
+--- الموضوع : الحذف والاضافة والتعديل فى dao (/showthread.php?tid=7325)



الحذف والاضافة والتعديل فى dao - hosney - 11-12-12

برجاء من اهل الخبرة كيفية اوامر الحذف والاضافة والتعديل فى dao


الحذف والاضافة والتعديل فى dao - hosney - 11-12-12

وين الشباب


الحذف والاضافة والتعديل فى dao - hago - 11-12-12

السلام عليكم ورحمة الله
كود الإضافة :

كود :
Text1 = ""
Text2 = ""
Text1.SetFocus
كود التعديل :
كود :
Rs.Edit
Rs![No] = Val(Text1)
Rs![Nme] = Text2
Rs.Update
MsgBox "تم التعديل بنجاح", vbInformation, "تعديل"
كود الحذف :
كود :
If Rs.RecordCount = 0 Then
MsgBox "لاتوجد سجلات داخل الجدول ", vbCritical
Exit Sub
End If
Do While Not Rs.EOF
If Rs![No] = Val(Text1) Then
Rs.Delete
Rs.Fields.Refresh
MsgBox "تم الحذف بنجاح", vbInformation, "حذف"
Rs.MoveFirst
Text1.Text = Rs![No]
Text2.Text = Rs![Nme]
Exit Sub
End If
Rs.MoveNext
Loop
فى المرة القادمة ضع مثال للتعديل عليه
تقبل تحياتى



الحذف والاضافة والتعديل فى dao - hosney - 12-12-12

شكرا جزيلا ياخى