ممكن مساعده في الفيجوال...؟؟؟

السلام عليكــم ورحمـة الله وبركاتــه ،،

لو ممكن توضحي أكثر مشكلتك يكون أفضل

وهل تعنين ب"فيجوال" نافذة تستطيعين التواصل بواسطتها مع قاعدة البيانات؟؟

اقتباس

عملت مشروع تخرج لشركه تامين على الاكسس

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

السلام عليكــم ورحمـة الله وبركاتــه ،،

بايجاز شديد لو تسمحيلي .. انقري نقرة مزدوجه على ايقونة الفيجوال لفتحه

ومن ثم اختاري Standard EXE للبدا في مشروع جديد مبسط وبدون قوالب مضافة اليه

بعدها ستجدي Form1 في المشروع وهو الـ Form الرئيسي اي اول ما سيقلع به برنامجك

قومي بظبط خصائصه من نافذة الخصائص Properties الموجوده على يمينك

ثم ضعي الادوات من نافذة الادوات ToolBox والموجوده على يسارك

الى هنا اعتقد كل شيء مفهوم .. الآن افتحي قائمة Project واختاري Preferences

ومن النافذة المستحدثه تختارين التفضيلات عموما .. وهدفنا الآن هو مكتبة الـ ADO

Microsoft ActiveX Data Objects 2.8 Library

بإمكانك اختيار اي اصدار آخر ان لم يكن الإصدار 2.8 متوفر لديكي

وهذه المكتبة هي التي ستمكننا من الاتصال بقواعد البيانات عموما والتعامل مع السجلات من خلالها

الآن بسم الله نبدا في كتابة الأكواد .. ولنذهب سويا الى منطقة التصريحات في الكود

اي منطقة الـ Declarations في الجزئية العامة General من مكان كتابة الكود

وضعي الكود ادناه لتعريف متغير جديد على Class الإتصال والموجود في المكتبة سالفة الذكر

Dim MYConnection As ADODB.Connection

الآن نذهب سويا الى حدث الـ Load للـ Form وفتح الإتصال بقاعدة البيانات

ونضع الكود ادناه للحدث المذكور اعلاه

Private Sub Form_Load()

والسطر الاول هو لفتح المتغير نفسه واعداده (تهيئته) للعمل

والسطر الثاني هو لفتح الإتصال بقاعدة البيانات من خلال ارسال الموفر وفقا لقاعدة البيانات المستخدمه

هنا استخدمنا قاعدة بيانات Access ومسارها هو مسار المشروع واسمها Data وإمتدادها mdb

والآن وقبل ان ننسى يجب علينا وضع كود اغلاق الإتصال في الحدث Unload للـ Form

وهذا بوضع الكود ادناه للحدث المذكور اعلاه

Private Sub Form_Unload(Cancel As Integer)

والسطر الاول هو لاغلاق الاتصال اما الثاني فلإغلاق المتغير نفسه .. وهذا كله لتخفيف الجهد عن ذاكرة الحاسب

الى هنا انتهينا من الاتصال بقاعدة البيانات وتعلمنا ايضا كيفية اغلاق قاعدة البيانات

يبقى الآن ان نتعلم سويا وبإيجاز ايضا كيفية الاتصال بالجداول واستخراج السجلات والاضافة والتعديل عليها

ولنفرض مثلا ان قاعدة البيانات بها جدول اسمه Table1

وبه حقلي Code و Name ..الاول رقم والثاني نص طوله 255

وكذلك في النموذج Form1 لدينا TxTCode و TxTName للحقلين نفسهم

واردنا انه حين كتابة الرقم يظهر لنا الاسم في خانته ان وجد الرقم .. وان لم يكن ففارغ

اذا نذهب للحدث Change للـ TxTCode ونضع به الآتي

Private Sub TxTCode_Change()

والسطر الاول لتعريف متغير نصي .. وسيتم ملاه بجملة استخراج السجلات فيما بعد

اما السطر الثاني فلتعريف متغير على Class الـ Recordset من المكتبة المذكور اعلى مشاركتي هذه

والسطر الثالث لفتح هذا المتغير .. ثم نقوم بملا المتغير النصي بجملة استخراج السجلات في السطر الرابع

ومن بعدها نقوم بفتح الجدول لاستخراج منه السجلات وفقا للجملة الموجوده في الـ SQLStr

اما ما يليهم فهو التحقق من وجود سجلات باستخدام قاعدة If للتحقق من شرط معين

بعدها وفي حالة وجود سجلات نقوم بملا خانة الاسم بقيمة حقل الاسم من السجل المستخرج

ولاحظي استخدام قاعدة IIf .. وهي قاعدة كقاعدة If ولكن مصغرها

واستخدمنا هذه القاعدة هنا للتحقق من ان قيمة الحقل ليست Null لعدم امكانية حدوث خطا

Invalid Use Of Null

اي تحققنا وقلنا لو القيمة Null فاملا الحقل بـ "" اما لو دون ذلك فضع قيمة حقل الإسم في خانة الإسم

اما السطر الذي يليه وهو Else .. اي في حالة ما دون ذلك لقاعدة If .. اي في حالة عدم وجود سجلات

نقوم بتفريغ خانة الإسم باعطائها لا شيئ ""

ثم نقوم باغلاق قاعدة If فإغلاق الجدول فإغلاق المتغير نفسه

وعلى هذا النحو اتجهي .. سادعكي الآن مع المثال المرفق معتمدا على قوة استنتاجك :)

واعتذر على الإختصار في الشرح فلا املك المزيد من الوقت الآن لكثرة مشاغلي

ولكن المثال ليس مختصرا .. بل تفصيلي ونرجوا من الله به ان تصل الفائدة :)

السلام عليكــم ورحمـة الله وبركاتــه ،،

يتم عمل واجهة تسجيل دخول بإنشاء نموذج جديد ووضع به الحقول المطلوبة كما سبق وتعلمنا سويا

وايضا بإنشاء جدول جديد في قاعدة البيانات به نفس الحقول ايضا كما سبق وتعلمنا سويا

واثناء الدخول يتم إستدعاء السجلات وفقا للبيانات المدخلة .. وفي حالة وجود سجلات نواصل الدخول

وفي حالة عدم وجود سجلات متطابقة لما ادخله المستخدم من بيانات الدخول يتم إظهار رسالة تفيد بخطاه