أريد إستعمال Recordset داخل كود الأكسس

[tarekafifi]

السلام عليكم

ابحث عن كود vb وكيفية عمل Recordset داخل كود vb داخل الأكسس

وذلك لإتاحة الإستعلام عن قيمة معينة وعمل مجموعة من العمليات عليها

مع تحياتي

[tarekafifi]

للرفع

[osama457]

إذا كنت تريد ذلك عن طريق DAO أو ADO

فالموضوع لا يمكن شرحه هنا

فإما أن تحدد بالضبط ما تريده لعل أحدا من الإخوان يكون عنده إجابة محددة ، أو ترجع لشروح DAO أو ADO ، وهو ما أنصحك به إن لم تكن مستعجلا ، لأني حقيقة لم أزل أميا في البرمجة حتى تعلمت DAO من أحد الكتب ، فصرت أمشي حال نفسي غالبا .

وأتمنى حاليا أن أتعلم ADO .

[tarekafifi]

انا اريد فقط جملة vb التي تخلق Recordset لجملة sql

والناتج أضعه في متغير

هذا ما أريده بالتحديد مجرد كود

ومع تحياتي

مع العلم اني كنت اريد منك في صورة مختصرة ان أعلم مامعني ADO , DAO والفرق بينهما بصورة مختصرة جدا

[osama457]

مامعني ADO , DAO والفرق بينهما بصورة مختصرة جدا ؟

Data Access Objects كائنات الوصول الي البيانات :

http://www.officena.net/Tips/AC3-ADO&DAO.htm

مواضيع أخرى ذات صلة :

إضافة سجل باستخدام ADO, إضافة سجل من نموذج بدون مصدر بيانات

http://www.officena.net/ib/index.php?showtopic=13

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

http://www.officena.net/ib/index.php?showtopic=1096

إضافة سجل باستخدام DAO, إضافة سجل من نموذج بدون مصدر بيانات

http://www.officena.net/ib/index.php?showtopic=14

أخي الفاضل : طيب حصلت على Recordset ، والغالب أنها عبارة عن عدد من السجلات ، فيها عدد من الحقول بأسماء مختلفة ، أي السجلات تريد ، وأي الحقول ؟ وهل تريد فقط استنتاج قيم أو تريد إجراء عمليات على السجلات إضافة وحذفا وتعديلا .

[tarekafifi]

السلام عليكم

اخي هذا مثال بالضبط يعبر عما اريد بالتحديد _ هذا المثال من خلال برنامج vb ويقوم بالإتصال بقاعدة بيانات sql

كنت أريد تطبيق هذا المثال داخل الأكسس ولكن لم أفلح لأني لا أتعامل هنا مع قاعدة بيانات sql ولكن اتعامل مع قاعدة بيانات أكسس

وهو كالتالي :

-----------

dim Connect As Connection

dim RecSet_Common As Recordset

-------------------

Set Connect = New Connection

Connect.Open "driver={Sql server};server=" & X_ServerName & ";uid=" & X_ConnicionUserName & ";;database=" & X_DataBaseName & ""

----------------

Set RecSet_Common = New Recordset

RecSet_Common.Open "SELECT T_ItemsDetails_M.* FROM T_ItemsDetails_M WHERE (ItemsID = " & List_Items & " ) ", Connect_EastAsia, adOpenStatic, adLockOptimistic

---------------

هنا يمكن أن اتعامل مع ناتج جملة SELECT بأي طريقة أريدها

Text_ItemsID = RecSet_Common.Fields("ItemsID")

--------------

__

والمختصر اني اريد ان أجلب مجموعة من البيانات ناتج جملة SELECT وأضعها في Recordset بدون إستخدام form

والتعامل مع هذه البيانات بأي طريقة أريدها من خلال الكود

أتمني ان أكون قد وضحت المطلوب

مع تحياتي

[osama457]

الكود الذي أوردته كود ADO وللأسف لا أتقنه ، فلعل بعض الإخوة هنا يفيدك

[tarekafifi]

متشكر لك أخي osama

علي مجهودك معي

---

وسوف اقوم بالبحث لمعرفة المزيد عن هذا الموضوع

مع تحياتي لك