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

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

default كيف اربط قاعدة بيانات بالفيجوال بيسك

مُساهمة من طرف debianlam في السبت فبراير 03, 2007 4:40 pm

بارك الله فيكم
كيف اقوم بربط قاعدة بيانات اكسيس 2007 ببرنامج في الفيجوال بيسك
حاولت مرارا و لكن دون فائدة

debianlam
عضو جديد
عضو جديد

عدد الرسائل : 1
تاريخ التسجيل : 03/02/2007

معاينة صفحة البيانات الشخصي للعضو

الرجوع الى أعلى الصفحة اذهب الى الأسفل

default رد: كيف اربط قاعدة بيانات بالفيجوال بيسك

مُساهمة من طرف أم أحمد في السبت يوليو 14, 2007 3:46 am

اللي أعرفه إنه أكسيس 2000 ما يرتبط بالفيجوال بيسك

حاول إنك تغير تنسيق الأكسيس إلى 97
افتح قاعدة البيانات التي تريد أن تربطها بالفيجوال بيسك ثم اضغط على أدوات ثم أدوات مساعدة لقواعد البيانات ثم تحويل قاعة بيانات تنسيق ملف 97

أم أحمد
عضو
عضو

عدد الرسائل : 6
تاريخ التسجيل : 12/07/2007

معاينة صفحة البيانات الشخصي للعضو

الرجوع الى أعلى الصفحة اذهب الى الأسفل

default رد: كيف اربط قاعدة بيانات بالفيجوال بيسك

مُساهمة من طرف Admin في الأربعاء يوليو 18, 2007 10:08 am

نستخدم للربط اكثر من طريقة

الطريقة الأولى عن طريق الاداة دات الموجودة في صندوق الادوات

الطريقة الثانية هي عمل رفرنس من للكائن DAO ثم كتابة الامر التالي

تعريف متغير على اساس انه قاعدة بيانات
Dim db As Database
تعريف متغير على اساس انه ريكورد سيت للتعامل مع الجداول داخل قاعدة البيانات
Dim rs As Recordset
كود فتح قاعدة البيانات
Set db = OpenDatabase("database_path", False, False, "database_password")
كود فتح الجدول
Set rs= db.OpenRecordset("table_name")
كود اغلاق الاتصال مع الجدول
rs.Close
كود اغلاق الاتصال مع قاعدة البيانات
db.Close

طبعاً يجب عمل رفرنس للكائن DAO
وذلك كالتالي

project>references>microsoft DAO x.x object library

x.x تعني رقم الاصدار
لذلك قم بإختيار احدث اصدار موجود لديك

طبعاً في هذا المثال قمنا بفتح قاعدة البيانات وفتح جدول في قاعدة البيانات ثم قمنا بإغلاقها

لكن يوجد اوامر عديدة للتعامل مع قاعدة البيانات مثل اضافة او بحث او حذف او تعديل

طبعاً جميع هذا الاوامر وردت في مواضيع كثيرة في المنتدى فلن اكررها لذلك الرجاء قرائة المواضيع

وشكراً للجميع

_________________
إذا أعجبك موضوع من مواضيعي فلا تقل شكـراً ...
بل قل الآتـي ::
اللهم اغفر له ولوالديه ولزوجته وابنائه ولأخوانه واخواته ولسائر المسلمين ماتقدم من ذنبهم وما تأخر..
وقِهم عذاب القبر وعذاب النار..
و أدخلهم الفردوس الأعلى مع الأنبياء والشهداء والصالحين ..
واجعل دعاءهم مستجاب في الدنيا والآخرة ..
اللـهم آميـن..اللـهم آميـن..اللـهم آميـن..

اخوكم جاد القرعان
الأردن- الطفيلة
jadquraan@yahoo.com
jad_quraansoft@hotmail.com
00962777765709

Admin
jadquraan
jadquraan

عدد الرسائل : 125
العمر : 34
تاريخ التسجيل : 19/10/2006

معاينة صفحة البيانات الشخصي للعضو http://jad4vb.lightbb.com

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى