إضافة سجل باستخدام ADO

[محمد طاهر عرفه]

الكود

   Dim mytable As ADODB.Recordset

    Set mytable = New ADODB.Recordset

    mytable.Open "TABLE1", ActiveConnection, adOpenDynamic


mytable.AddNew

      mytable!Name = [Forms]![UnboundForm]![Name]

      mytable!Salary = [Forms]![UnboundForm]![Salary]

      mytable!Birthday = [Forms]![UnboundForm]![Birthday]

mytable.Update


mytable.Close

مرفق المثال

UnboundADO.zip

[امير عاطف]

لو سمحت اخي الكريم:

عند الانتقال من الDAO الى ADO هل يحتاج ذلك لإعداد مراجع معينة او ازلة اي مراجع

[محمد طاهر عرفه]

فى الاكسس اكس بي

المرجع الافتراضي هو ADO

و اذا أردنا استخدام DAO فعلينا باضافته الي قائمة المراجع

[امير عاطف]

حول اضافة سجلات الى جدول باستخدام كود الVBA

[أبو هادي]

السلام عليكم

أخي محمد .. لم ينجح معي المثال علما أني طبقته على أكسس 2003

تحياتي .

Doc1.zip

[محمد طاهر عرفه]

للرفع للمراجعة

أنا جربته سابقا علي الاكس بي وقت اعداده ، و سارفع الموضوع حتي لا أنساه

مع تحياتي

[محمد طاهر عرفه]

تعديل للكود ليعمل علي أوفيس 2003

Dim cn As ADODB.Connection
   Dim rs As ADODB.Recordset
         
   Set cn = CurrentProject.AccessConnection

    Set rs = New ADODB.Recordset
   With rs
      Set .ActiveConnection = cn
      .Source = "SELECT * FROM Table1"
      .LockType = adLockOptimistic
      .CursorType = adOpenKeyset
      .Open
   End With


    rs.AddNew
      rs!Name = [Forms]![UnboundForm]![Name]
      rs!Salary = [Forms]![UnboundForm]![Salary]
      rs!Birthday = [Forms]![UnboundForm]![Birthday]
   rs.Update

rs.Close


   Set rs = Nothing
   Set cn = Nothing

مرجع فى الموضوع

http://support.microsoft.com/default.aspx?...product=acc2002

مع تحياتي

[محمد طاهر عرفه]

موضوع ذو صلة

Data Access Objects

كائنات الوصول الي البيانات

من هنا

مع ملاحظة أن الأكواد فيه تلائم الأكسيس 2000

[thaeerali]

شكرا لجهودكم