ربط فيجوال بيسك بالاوراكل

اخواني الاعزاء في المنتدى

هذي طريقة ربط الفيجوال بيسك بقاعدة بيانات الاوراكل 8i مضمونه ومجربة 100%

اول شي لازم تضيف

oracle inproc server 3.0 type library

علىProject -> references

وبعدها تكتب الكود

Dim ses As OraSessionClass
Dim database As OraDatabase
Dim dyn As OraDynaset

Set ses = CreateObject("oracleinprocserver.xorasession")

Set database = ses.OpenDatabase("rce", "scott/tiger", 0&)

Set dyn = database.CreateDynaset("select * from emp", 0&)

MsgBox (dyn.Fields("empno"))

حيث

rce اسم قاعدة البيانات الي انت اخترته عند تنزيل اوراكل

scott/tiger اسم المستخدم وكلمة المرور

والباقي مثال من جدول موجود على scott اسمه emp

إن شاء الله الموضوع يعجبكم