اريد الحصول على كود لانشاء استعلام باستخدام OO4O

السلام عليكم

شكرا لك مهندس حسام

وفقك الله وايانا لما فيه صالح الاعمال

او اعلى على جهازكclient 8i يلزم تحميل الاوكل

: oo4o لتعريف المكتبة

select [reference] -from [project] menu to define object library reference .

وضع علامة صح على (oracle [inProc server 3.0 type library)

هنالك شرح مطول لل

object ,parameter

قد لا يناسب الموضوع لذا ساضيف الكود الذي يتم به الربط والاستعلام

module كتابة هذا الكود في اعلى شي في الــ

Public oRaS As New OraSessionClass

Public oraDB As OraDatabase

Public oRaDual As OraDynaset

او في شاشة البدء module اذا رغبت في الاتصال بقاعدة البيانات من اول مرة يتشغل البرنامج فضع هذا الكود في الــ

ولن تحتاج للاتصال بقاعدة البيانات في كل شاشة

Public Sub main()

Set oraDB = oRaS.OpenDatabase("TEST", "scott/tigger", 0&)

End Sub

يمكن ان تكتب هذا الكود في الشاشة او التقرير اللي ترغب للاستعلام من قاعدة البيانات

in form ---- load

Public oRaDual As OraDynaset

Set oRaDual = oraDB.CreateDynaset("select * from EMP where Emp_no=0123", 0&)

ابو محمد

amaz99@hotmail.com

اذا كان هنالك اخطاء لغويه او املائيه فالمعذرة لاني كتالة الرد عبى عجل