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

فكرة جيدة أخي الكريم

هذه إفتتاحية على قدي باستخدام الــ [DataControl] لأني مش متقن الــ Ado و مش ناقص اخطاء :D .

البحث [DataControl] :

1. خانة Text

2. Command

Private Sub Command1_Click()
Data1.Recordset.FindFirst "Name='" & Trim(Text1.Text) & "'"
If Data1.Recordset.NoMatch = True Then
MsgBox "لم يتم العثور على هذا الاسم", vbCritical + vbMsgBoxRtlReading, "بحث فاشل"
Text1.SetFocus
Else
'Cancel
End If
End Sub

شكرا لكم

Thanks

شكراً أخوانى لردودكم ولكن أين باقى الأعضاء نتمنى أن يكون ذلك الموضوع موسوعة فى قواعد البيانات والفيجوال بيسك .

وسوف أقدم لكم

1- مقدمة ضرورية عن قواعد البيانات

قاعدة بيانات : إن ملف قاعدة البيانات ( Database File )

هو ملف خاص مصمم ليخزن المعلومات المدخلة إلية بطريقة منظمة ، وبالتالي تعتبر قواعد البيانات طريقة لتجميع البيانات والمعلومات بصورة منظمة ومرتبة بطريقة معينة وهناك أنواع كثيرة من قواعد البيانات .

ملاحظة : يقوم الكثيرون باستخدام برنامج مايكروسوفت أكسس 97 ( Microsoft Access 97 ) ، مع العلم أنه يمكنك استخدام برنامج مايكروسوفت أكسس 2000 (Microsoft Access 2000 ) لإنشاء قاعدة البيانات الخاصة بالبرنامج مع مراعاة أنه يجب عليك تحويل قاعدة البيانات الى إصدار 97 لكى يمكنك استخدامها فى فيجوال بيسيك 6 ( Visual Basic 6 ) ويمكنك أيضا استخدام برامج أخرى لإنشاء قاعدة البيانات ولكنى أفضل مايكروسوفت أكسس لأن برنامج مايكروسوفت أكسس يعطينا قاعدة بيانات ممتازة جداً جداً .

2- :مقدمة عن فيجوال بيسيك

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

وتنقسم لغات البرمجة إلى قسمين :

الأول :لغات برمجة منخفضة المستوى ( Low-Level Languages ) ،

ومن هذه اللغات لغة الآلة ( Machine Language ) ،

ولغة الاسمبلي ( Assembely Language ) .

والثاني : لغات البرمجة عالية المستوى ( High-Level Languages ) ،

ومن هذه اللغات لغة الفورتران ( Fortran Language ) ،

ولغة الكوبول ( Cobol Language ) ، ولغة البيسيك ( Basic ) بأنواعها المختلفة .

س) ما معنى كلمة بيسيك ( Basic ) ؟

جـ) كلمة بيسيك ( Basic ) عبارة عن اختصار لجملة

( Beginner’s All-Purposes Symbolic Instruction Code ) أي ( شفرة تعليمات رمزية لجميع أغراض المبتدئين ) .

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

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

الذي يعتبر آخر إصدارات فيجوال بيسيك حتى الوقت الحالي ، ويعتبر هذا الإصدار أقوى إصدارات هذه اللغة في التعامل مع البيانات حتى أنه تفوق على بعض لغات البرمجة الأخرى .

ولقد نالت هذه اللغة الوليدة الرعاية والحنان والدعم من شركة مايكروسوفت مما جعلها تضيف كثيراً من المميزات إلى إصداراتها لكي تحوز على رضا المبرمجين والمستخدمين ، ومن هذه المميزات:

* أصبح بمقدور المبرمجين أ، يصمموا واجهات تطبيق جميلة حيث توفر لهم لغة فيجوال بيسيك كائنات (Objects) وأدوات تستخدم في نظام التشغيل نفسه{مثل:صندوق النص(Textbox)} وبهذا تم إسدال الستار على ما كان يعانيه المبرمجون من ناحية تصميم واجهة البرنامج التي تسمى ( User interface ) .

* وجاءت الميزة الأخرى والدعم الآخر الذي تلقته لغة فيجوال بيسيك هو أيضاً من شركة مايكروسوفت حيث تم إضافة إمكانية استدعاء الكثير من الوظائف الموجودة في نظام التشغيل وإمكانية الاستفادة من بعض البرامج التي تعمل تحت بيئة نظام النوافذ ( Windows ) .

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

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

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

حيث يجب علينا إتقان هذا العمل وكما قال رسول الله صلى الله علية وسلم

" إذا عمل أحدكم عملاً فليتقنة "

السلام عليكم

شكرا جزيلا اخى basel2000 على هذا الشرح الجميل والمتميز

بالفعل فكرة رائعة

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

/index.ph...topic=54488&hl=

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

/index.ph...topic=67080&hl=

وان شاء الله ساحاول وضع امثلة قريبا فى عدة نقاط فى قواعد البيانات

شكراً أخى hanysaad على ردك الجميل ونرجو المزيد وأنا سوف أضيف بعض الشروحات والأمثلة

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

اقتباس

وأنا سوف أضيف بعض الشروحات والأمثلة

و نحن في الانتظار :)

ونتمني لو تم التطرق الي كل التقنيات التي تستخدم في الربط بين الفيجو :) و قواعد البيانات

:)

تفضلوا مثال عن ربط قاعدة بيانات أكسس بالفيجوال بdata control

student.zip

تفضلوا مثال أخر عن ربط قاعدة بيانات أكسس بالفيجوال بdata control

برنامج قاعدة بيانات.rar

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

ولسة بس عايز الأعضاء يشتركو برضة سواء بشرح أو بأمثلة

PROJECT.rar

GroupSavEditBakFindSortFilMov.zip

Advanced Search.rar

مكتبة_الفيديو.zip

اخواني انا اريد ان اضع باسوود على الاكسس عندما ادخل عليه من vb لكن المشكلة انه يعطيني رسالة خطا

run time error

2147467259

couldnt find installabe ISAM

Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=14;Data Source=" & App.Path & "\xx.mdb"

علما اني مستخدم الادو

مثال قاعدة بيانات لمدرسة

المدرسة.rar

أخى hany أنت وضعت قاعدة بيانات فى المرفقات ولم تضع مشروع كامل

أرجو الرد

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

.....................................

ado

بسمه تعالى نبدأ .

أولا قد يتساءل البعض عن مكتبة ADO ما هي وما فائدتها وكيف يمكن استغلالها من خلال لغة الفيجوال بيسك 6.0 ؟؟ .

- ADO هي اختصار لMicrosoft ActiveX Data Object

- مكتبة ADO تعتبر الأسلوب الجديد ( قبل الأداة الجديدة ADO.NET ) للتعامل مع قاعد البيانات بعيدا عن البرنامج الأم الذي أنشئت منها قاعدة البيانات ... فمثلا يمكننا الاتصال وقراءة محتويات قاعدة بيانات اكسس Access بدون الحاجة لوجود Access فهذه المكتبة توفر خدمة الاتصال والإجراءات المختلفة للتعامل معها .

- إما كيفية استغلالها فهذا ما سوف نتعرف علية في السطور القليلة القادمة .

أولا وقبل إن نبدأ بأي خطوة علينا توفير مكتبة ADO للمشروع . ولتوفيرها نتبع الخطوات التالية :

وبعد فتح مشروع جديد :

من خلال القائمة نختار Project ثم References … بعدها سوف يظهر فورم ( Form ) . معنون بي References – Project1ويحتوي هذا الفورم على مكتبات عديدة وما يهمنا منها هي مكتبة ADO وسوف نجدها بسم /

Microsoft ActiveX Data Objects 2.X Library .

وال X يعبر عن الإصدار المثبت على جهازك . وهناك إصدارات عديدة من هذه المكتبة وكلها تقريبا بالشكل التالي /

1- Microsoft ActiveX Data Objects 2.0 Library

2- Microsoft ActiveX Data Objects 2.1 Library

3- Microsoft ActiveX Data Objects 2.5 Library

4- Microsoft ActiveX Data Objects 2.6 Library

5- Microsoft ActiveX Data Objects 2.7 Library

بعد إن تختار أحدها سنكون بهذه الخطوة قد أمنا مكتبة ADO لمشروعنا . تمام . نكمل .

وألان وبعد تأمين مكتبة الADO فيمكننا الشروع في العمل , وستكون خطة العمل كالتالي /

المستوى الأول

1- كيفية إجراء اتصال مع قواعد البيانات .

2- كيفية فتح الجداول .

3- طريقة عرض السجلات .

4- إدخال البيانات ، تحريها ، حذفها .

5- عملية البحث ( Search )

a. بحث بحالة الأحرف

b. بحث شامل

6- التصفية ( Filter )

7- الفرز ( Sort )

c. تصاعدي

d. تنازلي

* كيفية إجراء اتصال مع قواعد البيانات .

لإجراء اتصال مع قاعد البيانات أكسس تكون بالتالي /

نضع المتغير في قسم الجنرال General :

CODE

'Dim db As New ADODB.Connection'

ثم نكمل الكود بالذي يليه ونضعه في قسم التحميل Form_Load/

Private Sub Form_Load()

'

db.Provider = "Microsoft.JET.OLEDB.4.0;"

db.Open App.Path & "\db1.mdb"

MsgBox "تم الاتصال بقاعدة البيانات بنجاح "

End Sub

من خلال السطور القليلة السابقة استطعنا الاتصال بقاعدة البيانات بنجاح .

السطر الأول

CODE

db.Provider = "Microsoft.JET.OLEDB.4.0;"

والاستفادة منه هو تحديد المزود الذي سنتصل من خلاله بقاعدة البيانات إن كانت اكسس أو SQL او Dbase أو غيرها .

فالمزود Microsoft.JET.OLEDB.4.0 هو ا لخاص بقواعد بيانات اكسس .

السطر الثاني

CODE

db.Open App.Path & "\db1.mdb "

والغرض منه تحديد مسار قاعدة البيانات ... db1.mdb هو اسم قاعدة البيانات

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

لإجراء اتصال مع قاعد البيانات SQL تكون بالتالي /

نتبع الخطوات السابقة بالتفصيل ولكن التغير سوف يحدث أين .... طبعا سيكون في المزود والذي يتعاطى مع قاعدة بيانات SQL ، إضافة إلى اسم قاعدة البيانات ، كما سوف ندمج السطرين السابقين في سطر واحد فقط ليصبح الكود هكذا /

CODE

db.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Northwind"

كيفية فتح الجداول .

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

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

CODE

'Dim db As New ADODB.ConnectionDim rs As New ADODB.Recordset'Private Sub Form_Load()'db.Provider = "Microsoft.JET.OLEDB.4.0;"db.Open App.Path & "\db1.mdb"rs.Open "[Table1]", db, adOpenStatic, adLockReadOnlyEnd Sub

أنظر للمتغير rs حيث أسندنا إليه خصائص Recordset وهو الذي يُعنى بكل العمليات التي تجرئ على الجداول من فتح وحذف وتعديل و ....الخ .

وأيضا لاحظ السطر

rs.Open "[Table1]", db, adOpenStatic, adLockReadOnly

حيث الجدول هنا هو Table1 و db تحدد الجدول الموجود في قاعدة البيانات .

وبنفس الخطوات نستطيع فتح جدول في قواعد بيانات SQL

وللشرح بقية

أخوانى أنا بمقدرتى أكمل الموضوع بمفردى ولكن دة كدة ميبقاش منتدى لأن المنتدى يعنى تعاون وكدة طبعاًَ مش تعاون خالص أنا أستنيت أكثر من يومين عشان ألقى رد مفيش لية معرفش ولا كأنة موضوع تافة

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