الطريقة الذكية لجلب قاعدة البيانات ((للمبتدئين))

[Athman]

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

من المواضيع القوية والتغييرات التي طرأت على الفيجوال بيسك 2005 هو دعمها القوي لقواعد البيانات وبأبسط صورة
لم يعد جلب قواعد البيانات إلى البرنامج بالصعوبة التي كانت من قبل لكنها سهلت جدا عما قبل وان شاء الله تسهل في الاصدارات القادمة بشكل فظيع جدا

نبدأ في هذا المثال إن شاء الله باستعراض برنامج بسيط يقوم بجلب البيانات من قاعدة البيانات والتعديل عليها ومن ثم حفظها

وقاعدة البيانات في مثالنا هذا هو Contacts-Products حيث يمكننا إضافة الأسماء وأيضا البضائع
لداعي لعمل قاعدة بيانات جديدة فقد أرفقت لكم نموذج لقاعدة البيانات التي أعمل عليها المثال
نبدأ البرنامج خطوة بخطوة
1-أنشئ مشروع جديد وسمه Global مثلا ونوعه Windows Application
2-قم بتغيير اسم الفورم إلى frmEdit و عنوانه إلى Edit Date
3-انقر على الفورم ومن خصائص الفورم اجعل الخط 12 Bold Times New Romans حتى تطبق على جميع الأدوات التي تدرجها بعد ذلك
4-قم بتصميم الأدوات التالية
العنوان الاسم الأداة
GroupBox gbContacts Contacts
GroupBox gbProducts Products
Button btnContacts Contacts
Button btnProducts Products

فتصبح واجهة المستخدم بهذا الشكل

مع مراعاة أن GroupBox الخاصة بالـProducts تكون خلف الخاصة بــContacts
مبروك لقد انتهيت من تصميم واجهة المستخدم وبقي عليك مجرد جلب البيانات
لجلب البيانات نتبع الخطوات التالية
من القائمة Data نختار Show Data Source
تظهر لنا نافذة Data Source
ننقر على زر Add New Data Source
وفي أول نافذة نختار DataBase ثم Next وفي النافذة الثانية نضغط على زر New Connection فتظهر نافذة نختار من الزر Browse ونختار قاعدة البيانات مع ملاحظة تغيير نوع البيانات لو لزم الأمر ثم OK ثم Next يظهر مربع حوار ننقر NO ثم Next
في هذه النافذة

أنت مطالب باختيار الجداول التي تريد إدارجها لبرنامجك اختر ماتريد ثم اضغظ Finish يتم جلب قاعدة البيانات
بقي الآن إدراجها إلى الفورم ننقر على الجدول Contacts باليمين ونختار ثم نختار Details أي يتم إدراجها على هيئة مربعات نصوص أو Table ليتم إدراجها على هيئة جدول نحن نختار الاولى لهذا الجدول والثانية للجدول Products
بقيت خطوة أخيرة سهلة جدا
انقر على الجدول Contacts واسحبه مع النقر إلى gbContacts تلاحظ أنه سيضع جميع البيانات التي في الجدول مع خاصيتي جلب البيانات وحفظها أيضاً
الان افعل المثل مع الجدول Products ولكن بعد ان تكون جلبت gbProduct أمام gbContacts وذلك بالضغط على gbContacts باليمين ثم اختيار Send to Back
مبروك لقد أنشئت برنامج متكاملا من غير الحاجة لكتابة أي كود برمجي
ولو ذهبت الى محرر الاكواد ستجد انه انشا تلقائيا الكود اللازم
عموما هذه الطريقة هي الاساسية ويمكن اضافة لمسات اكثر احترافية بعد ذلك ولكن هذا هو الاساس كان مثلا نضع للعمود date بدل من مربع ن قائمة تاريخ وهكذا

[احمد فراس مكية]

مشكور اخي جزيل الشكر

[!!! BoriS !!!]

تسلم على الموضوع اخى عثمان

[جهاد العريقي]

بصراحة اخ Athman انت بدئت بموضوع رائع بس في حاجة .. وهي في نظري ان التعامل مع الاكواد اقوى وافضل بكثير من التعامل مع الادوات الجاهزة .. والا ايش رايك ؟؟؟




تحياتي..

[وترشرار]

أنا متبع الطريقة نفسها <<< يعني مبتدأ

لكن المشكلة في الموضوع أن قاعدة البيانات ليست نهائية ... فلما أبغى أزيد حقول أو أحذف حقول ما تطبق في قاعدة البيانات اللي انا موصلها ... ولو حصل أني عدلت قاعدة البيانات من داخل الفيجوال لا تطبق على القاعدة في الخارج ... أي أنها ليست متصلة ... كأن يقوم الفيجوال بحفظ قاعدة البيانات في نفس ملف المشروع

كيف أقدر أحرر الجداول في قاعدة البيانات ... كمثال تغيير الحقل (أو إضافة حقل وإلغاء حقل) ومن ثم تطبيقه على الفورم ويتم تثبيت قاعدة البيانات على آخر تغيير

تحياتي

[Athman]

اهااا
هذا يعتمد على اجابتك للسؤال الذي يظهر لك بعد اختيار قاعدة البيانات يسالك سؤالك
واجابته نعم او لا
انت اختار لا
لان فكرة هالسؤال انه يخزن نسخة من قاعدة البيانات في ملف المشروع ويعدل فيه مش في الملف الاصلي
لكن لو تبغاه يعدل في الملف الاصلي اختار لا
وبعدين لاتنسى في الفورم انك تضغط على زر حفظ حتى يحفظ التعديلات

[مجـدى]

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

[الغادة]

شكرا جزيلا

[وترشرار]

اهااا
هذا يعتمد على اجابتك للسؤال الذي يظهر لك بعد اختيار قاعدة البيانات يسالك سؤالك
واجابته نعم او لا
انت اختار لا
لان فكرة هالسؤال انه يخزن نسخة من قاعدة البيانات في ملف المشروع ويعدل فيه مش في الملف الاصلي
لكن لو تبغاه يعدل في الملف الاصلي اختار لا
وبعدين لاتنسى في الفورم انك تضغط على زر حفظ حتى يحفظ التعديلات

تم تطبيق الطريقة ... ما شاء الله عليك ... وصلت لباب مشكلة ثانية

كل التعديلات اللي أسويها في قاعدة البيانات من داخل الفيجوال تصير لكن بعد ما أقفل البرنامج
يعني عدد الملفات في الجدول ما يزيد الا بعد ما أشغل البرنامج من جديد

[وترشرار]

هذا مثال بسيط وواجهة واحدة لبرنامج عقاري ... حاولت أن أضيف ألزرار الاضافة والحذف والتعديل و... لم أفلح في كذا طريقة وكانت آخر طريقة أكبر إحباط لأني أحاول تطبيق فيجوال بسيك 7 في 8 ... وأنا أحسب الدوت نت واحد.

فهل لك أخي الكريم بتوجيهي ... إلى الان أسبوع في محاولة هذه العملية ... ما يقارب 5 - 6 ساعات في اليوم ... بحث وتطبيق ونتيجة خاطئة

هلا تكرمت أخي بتوجيهي بإحداهن وأنا سأكمل الباقي

تحياتي وتقديري

[Athman]

اخوي
انت المفروض تستخدم الازرار الجاهز اللي ينتجها لك البرنامج
مالها داعي انك تستخدم ازرار جديدة
الازرار اللي فوق لو استخدمتها راح تلاقي الشغل تمام
جرب ورد لي خبر

[وترشرار]

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

لكن أنا محتاج شفرات الربط البرمجية ... عشان أعرف الفرق بين الداتا أدابتر وخصائصها والداتا سيت ... الخ

لأني حاولت أسوي أبديت يطلع خطأ بخصوص رقم معين ... وتعبت إلين جاني الاحباط اليوم بكامله ما فكيت البرنامج ولا حاولت فيه ... وصلت لنقطة وقفت فيها ... مع العلم أن قاعدة البيانات حق المشروع جاهزة والتحليل جاهز ووااجهات البرنامج كلها جاهزة ومربوطة ... أبغى بس أسوي الأزارير (إضافة، حفظ، تعديل، حذف) وأنا فعلاً مسوي زرين إضافة وحذف ودري إذا كانت صحيحة وأبغاهم عشان أبدأ أسوي العمليات والتقارير ..

تحياتي وأشكرك على التجاوب

[Athman]

لالا لو كنت تبغى تعرف عشان تتعلم الطريقة هذي ماراح تنفع
الطريقة هذي مصممة فقط لعمليات التسهيل على المستخدم بدلا من كتابة اكواد كثيرة
لو كنت تريد التعمق اكثر في قواعد البيانات وبالطريقة الكلاسيكية انصحك بالدخول الى هذا الموضوع
لكن هذه الطريقة التي نتحدث عنها فقط لتسهيل عمليات جلب قواعد البيانات
اما اذا اردت عمليات اكثر قوة واحترافية انصحك بالطريقة الثانية
واليك الرابط الذي قد يفيدك
http://vb4arab.com/vb/showthread.php?t=1362

[وترشرار]

ألف مليون شكر أخي عثمان ... بالفعل اليوم لصباح بديت أكتب البرنامج واستدعاء الداتا يس برمجياً

يعطيك العافية ويوفقك ربي


تحياتي

[Athman]

لأاشكر على واجب احنا بالخدمة

[bufahad]

جزاك الله خير

[adelt123]

جزاكم الله خيرا

[احمد نبيل احمد]

اشكرك اخى Athman جعله الله فى ميزان حسناتك

[مجـدى]

مشكور اخواتى و فقكم الله
و ثبت اقدامكم

[شنكوتي]

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


قالولي سوي تحديث للوندوز حدثناه , في الاخر قالولي المشكلة قيد المعالجه بس للحين ماجالها حل

هذولي من منتديات مايكروسوفت طيب والحل ؟؟؟؟


microsoft.jet.oledb.4.0 not registered on the local

عند ربطي لقاعدة البيانات من نوع اكسس يظهر لي هذا الخطأ ياليت تفيدونااا وترى في غيري كثير عندهم نفس المشكلة وللحين مالقولها حل ؟؟


بس انا شايف في ناس ماعندهم هذه المشكلة يا ترى ليش ؟؟؟


تحياتي...

[Athman]

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

[هاذي حياتي]

[IMG]http--www.m3loma.com-fawasel-thankyou003_files-15.gif[/IMG]

http--www.m3loma.com-fawasel-thankyou003_files-15.gif

http//www.m3loma.com-fawasel-thankyou003_files-15.gif

مشكور

[شنكوتي]

المشاركة الأصلية بواسطة Athman

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

هلا حبيبي

هذا الكود بالضبط

Imports System.Data
Imports System.Data.OleDb

Public Class Form1
    Dim ConStr As String = "Provider=Micrsoft.Jet.OLEDB.4.0;" & " data source=" & Application.StartupPath & "\db2.mdb"
    Dim conn As New OleDbConnection(ConStr)
    Dim dataset1 As New DataSet
    Dim SQLstr As String = "select * from InOut"

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            conn.Open()
            Dim DataAdapter As New OleDbDataAdapter(SQLstr, conn)
            DataAdapter.Fill(dataset1, "InOut")
            conn.Close()
            TextBox1.DataBindings.Add("text", dataset1, "InOut.Name")
            TextBox1.DataBindings.Add("text", dataset1, "InOut.City")
            TextBox1.DataBindings.Add("text", dataset1, "InOut.Mobile")
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

    End Sub
End Class

[SAMO]

اخى Athman
هل يوجد فرق بين ربط اللى انت عملتة وربط بطريقة الاكواد الاثنين قويين وبدون مشاكل
انا محترف فيجوال بيسيك 6 برمجة قواعد البيانات واول حاجة اعرفها عن الدوت نت موضوعك دة ونفذتة وسهل جدا هل الطريقة دى قويه وبدون مشاكل ( جاوبنى على انى مبتدأ جدا دوت نت)

[Athman]

الأخ Samo
جميل منك أن اخترت الانتقال إلى إصدار الدوت نت
وعموما كمبتدئين هذه هي الطريقة المناسبة لذلك لجلب قواعد بيانات بسيطة والتعديلات ابسيطة عليها
اما اذا انتقلنا الى مستوى الاحتراف فان جلب قواعد البيانات عن طريق الكود سيصبح سهلا وضروريا

[SAMO]

اخى Athman
اشكرك على ردك العقلانى المنطقى
اضايقك بسؤال كمان
كل برامجى بنشأ قواعد البيانات عن طريق اكسس تنصحنى اكمل به برامجى ولا اتعلم
SQL SERVER 2000
ولك جزيل الشكر

[عقيعقب]

الله يوفقك

[yemen_design]

لا شك ان التعامل مع الاكواد يخليك جنب برنامجك
والتعامل بهذه الطريقة يخليك زي الي ما يدري ربي وين حاطة
عموما مشكور يا عزيزي

[ahmedyasin]

مشكووووووووووووووووووووووووووووووووور

[ahmedyasin]

مشكووووووووووووووووووووووووووووووور