السلام عليكم ورحمه الله وبركاتوا
أتمنا المساعدة
اما بعد فأن
open recordset و no match تعمل مع أداة البيانات (datacontorl)
وانا أريد الجملتين التي تتوافق مع أداة البيانات ( Adodc1 )
التي تحل محل هذة الجملتين
وشكرا
أتمنا المساعدة Adodc1
مغلق
لإنشاء سجل جديد :
Adodc1.Recordset.AddNew
لتحديث البيانات أو الحفظ :
Adodc1.Recordset.Update
لحذف سجل من قاعدة البيانات :
On Error Resume Next
With Adodc1.Recordset
reply = MsgBox("انت على وشك ازالة بيانات ' هل انت متاكد." & _
"اجب بنعم او لا", vbYesNo)
If reply = vbYes Then
.Delete
ElseIf Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveLast
Text1.SetFocus
Else
.MoveNext
End If
لربط صندوق تكست بحقل في قاعدة البيانات :
Text1.Text = Adodc1.Recordset.Fields("Field Name")
أخوكم في الله : أبوزياد
هذا الموضوع مغلق.