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

أوعدك اخوي ان ارد علييييييك في القريب العاجل ....

: )

طريقة الاتصال بقاعدة بيانات اوراكل:

اولا:

نضيف قبل كل شي الاداة من قائمة project ثم reference ثم ابحث عن oracle objects for OLE 3.0 type library

ثم نقوم بتعريف ثلاث متغيرات :

الاول متغير من نوع oraseesion وهو لتكوين سيرفر مع القاعدة وفتح القاعدة.

الثاني متغير من نوع oradatabase وهو للاتصال مع قاعدة البيانات.

الثالث متغير من نوع oradynasetلتخزين السجلات المستتنتجة.

ويمن التعريف كمايلي:

Dim ses As orasession
Dim database As oradatabase
Dim dyn As OraDynaset

ثانيا/

نكون inprocserver والاتتصال بقاعدة البيانات وهذه ثابته دائم لاتتغيرفي أي عملية اتصال لابد من وجودهما

Set ses = CreateObject("oracleinprocserver.xorasession")

ثم نقوم بفتح قاعدة البيانات كمايلي:

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

حيث:

Ses : هذا متغير orasession الذي تم فتحه سابقا.

OpenDatabase : وسيلة لفتح قاعدة البيانات.

ddd : هذا اسم قاعدة البيانات لديك وهو الاسم الذي اعطيته لقاعدة البيانات اثناء تنزيل الاوراكل.

" scott/tiger" : هذا اسم الحساب وكلمة المرور وهو افتراضي في اي قاعدة بيانات يوجد بها هذا المستخدم وكلمة مرورة .او يكون لك اسم مستخدم خاص بك وكلمة مرور له.

0& تمثل حالة القاعدة الابتدائية.

والعمليتان السابقتين وهما فتح الاتصال وفنح القاعدة لابد منهما في اي كود لكي تتصل بقاعدة البيانات.

ثالثا/

نقوم الان بكتابة الاستعلام الذي نريد من أي جدول في قاعدة البيانات كمايلي

mysql="select * from emp"

رابعا/

كيفيه تشغيل الاستعلام(فتح الاستعلام) وتخزين النتائج كما يلي

Set dyn = database. CreateDynaset (mysql, 0&)

وذلك باستخدام الامر CreateDynaset للشي oradatabase

حيث :

Mysql : تمثل المتغير الذي تم تخزين الاستعلام به وليس شرطا ان يكون نفس الاسم .

خامس/

بعد تنفيذ الاستعلام ولو فرضنا ان الجدول في الاستعلام السابق يحتوي على حقلين الاول empno والثاتي ename ونريد بعد تنفيذ الاستعلام ان يقوم بعرضهما في مربعين نص على النموذج

ويكون كمايلي :

Text1.Text = dyn.Fields("empno").Value

Text2.Text = dyn.Fields("ename").Value

وبالتالي يكون الكود كامل كمايلي:

Dim ses As orasession
Dim database As oradatabase
Dim dyn As OraDynaset
Set ses = CreateObject("oracleinprocserver.xorasession")
Set database = ses.OpenDatabase("ddd", "scott/tiger", 0&)
sql = "select * from emp"
Set dyn = database.CreateDynaset(sql, 0&)
Text1.Text = dyn.Fields("empno")
Text2.Text = dyn.Fields("ename")

طبعا هذا الدرس جزء من كتاب اقوم هذه الايام من اكماله وفي كتاب على الانترنت راح ابحث لك عنه

شكر الله سعيك أخي الفاضل محمد ..

والمعذرة هل يوجد كتاب يشرح أيضاً الربط وخاصة في ما يخص الصلاحيات القوية في أوراكل ..

وننتظر بفارغ الصبر كتابك المبارك ..

أخي SQL_MAN شكراً على مرورك الكريم ..وبانتظار مساعدتك ..

الأخ محمد إبراهيم

جزاك الله ألف خير على معلوماتك القيمة

ولكن تعلمت في أحد المشاريع الجامعية طريقة أخرى لربط

ال vbب oracleوهي عن طريق ODBوكانت اسهل

لم يحظرني ذلك الآن وسوف احاول ابحث ذلك وارد لكم مستقبلا.

الأخ محمد إبراهيم

جزاك الله ألف خير على معلوماتك القيمة

ولكن تعلمت في أحد المشاريع الجامعية طريقة أخرى لربط

ال vbب oracleوهي عن طريق ODBوكانت اسهل

لم يحظرني ذلك الآن وسوف احاول ابحث ذلك وارد لكم مستقبلا.