الى الاخ Visitor_OM للاهمية القصوى او احد الاخوه الخبراء المساعدة

وعليكم السلام

على عيني يا أخي في اي وقت أنا بالخدمة عند الإستطاعة .

تفضل البرنامج بس أخي بسرعة سويته لذلك ارجوا منك التحقق منه وإذا فيه أي شي أنا حاظر ، وايضا تركت عملية البحث عليك .

تفضل البرنامج .

new_data1.zip

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

اخوك

ENG.CAESAR

لا والله مافيه إي ازعاج المهم دعواتك ...

تفضل أخي العزيز البرنامج بعد التعديل وكل الذي تريده موجود في البرنامج إن شاء الله . تحياتي .

البرنامج /

new_data2.zip

شكراً اخوي Visitor_OM على مساعدتك لي وانت بصراحة تستحق ان تكون مشرف في المنتدى وماقول االا الله يوفقك دنيا واخره والله ينفع بعلمك اخونك المسلمين في كل مكان والله يكتب لك الاجر فيها .

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

اخوك

ENG.CAESAR

لا شكر على واجب يا اخي العزيز ، ، ، ، .

الحقيقة كلامك الطيب ودعواتك الصالحة هي اثمن واغلا من إي شي آخر وإنا اللي بشكرك على حسن ظنك وتقديرك الكريم لي . . . .

وموفق إن شاء الله . أخوك Visitor_OM .

اخوي Visitor_OM

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

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

انا ابغى اعرف الطريقة اللي ربطة فيها قاعدة البيانات بلبرنامج

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

شكلي ثقلت عليك:cool:

اخوك

Eng.Caesar

على عيني يا أخي ما فيه إي إزعاج ...

بسم الله الرحمن الرحيم .

أول شي تسوية لربط قاعدةالبيانات هو إضافة الكتبة الADO وذلك عن طريق إتباع هذا المسار من القائمة Project اختر References ثم ابحث عن Microsoft ActiveX Data Objects 2.0 Library بعد إن تجدها ضع علامة صح عليها ثم موافق OK . إنتهى تم إضافة المكتبة للمشروع .

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

'
 Dim db    As ADODB.Connection
 Dim rs    As ADODB.Recordset
'

الخطوة الثالثة الإتصال بقاعدة البيانات وهي تتم من خلال هذا الكود الذي وضعناه في Form_Load وهو :

'
 Set db = New ADODB.Connection
     db.CursorLocation = adUseClient
     db.Provider = "Microsoft.Jet.OLEDB.4.0"
     db.Open App.Path & "access.MDB"
'

المهم عندنا هو تحديد اسم قاعدة البيانات وهو هنا Access.MDB

أما السطر الأول من الكود فهو المسؤل عن إسناد المكتبة الخاصة في عملية الإتصال إلى المتغير db .

السطر الثاني هو تحديد الإتصال إذا كان يتم من خلال الخادم أو من السيرفر .

السطر الثاني هو تحديد نوع الإتصال لقاعدة البيانات إذا كانت قاعدة بيانات access او SQL او DBase أو .... ألخ .

السطر الثالث هو طبعا لتحديد مسار قاعدة البيانات واسم قاعدة البيانات .

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

'
 Set rs = New ADODB.Recordset
     rs.Open "access", db, adOpenStatic, adLockPessimistic
'

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

السطر الثاني هو تحميل الجدول إلى المتغير rs . إنتهى

والباقي اتوقع سهل على كل نكمل .

هنا نحدد عارضات البيانات هو التكست بوكس . ولتحديدها نبدا بهذا الكود Set Text1.DataSource = rs هو إسناد rs إلى تكست بوكس (Text1) .

بعد ذلك تحدد الحقل للتكست بوكس هو عن طريق هذا الكود Text1.DataField = "Region" . واسم الحقل هنا هو Region . إنتهى .

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

وهنا تقبل تحياتي وعذري على الشرح البسيط .

أخوك Visitor_OM

شكراً اخوي Visitor_OM على طولت بالك علي واتمنى لك التوفيقك دنيا واخره والله يكتب لك الاجر على ما قدمته من فائده الى الاخوان في المنتدى .

اخوك

Eng.Caesar

العفو اخي وبارك الله فيك على الكلامك الطيب .

السلام عليكم

الاخ العزيز VISITOR OM الف شكر على هذا الشرح الكافي في عملية ربط

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

لكن عندي سوالين

الاول =لم اعثر على المكتبة التالية

Microsoft ActiveX Data Objects 2.0 Library

الثاني = عملية الحفظ والتعديل والاضافة والبحث وهي اهم العمليات في قواعد البيانات ( الرجاء شرحها بتفصيل )

الثالث = هل تختلف عملية الربط والاتصال وكذلك التعديل والحفظ والاضافة والبحث بختلاف الاداة الحاوية للمعلومات

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

اخوك ابو وسن

السلام عليكم

الاخ العزيز VISITOR OM الف شكر على هذا الشرح الكافي في عملية ربط

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

لكن عندي بعض الاسئلة

الاول =لم اعثر على المكتبة التالية

Microsoft ActiveX Data Objects 2.0 Library

الثاني = عملية الحفظ والتعديل والاضافة والبحث وهي اهم العمليات في قواعد البيانات ( الرجاء شرحها بتفصيل )

الثالث = هل تختلف عملية الربط والاتصال وكذلك التعديل والحفظ والاضافة والبحث بختلاف الاداة الحاوية للمعلومات

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

اخوك ابو وسن

الرجاء الرد على استفساراتي ولكم جزيل الشكر

اخوكم ابو وسن

السلام عليكم

اهلا بك أخي الكريم أبو وسن .

أخي الحبيب بالنسبة لمكتبة ADO تكون في العادة مرفقة مع الفيجوال بسيك وإيضا مع الأكسس أو الأفيس فإذا كنت مثتبت في جهازك الأفيس فحتما تجد المكتبة موجودة ،، بس أتبع المسار المذكور سابقا

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

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

بالنسبة للسؤال الثاني فالعملية لا تحتاج إلى كثير من الشرح بل تحتاج إلى قليل من التجربة وتجربة الكودات ,,, ولكن /

..

..

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

'

 Set rs = New ADODB.Recordset

     rs.Open "access", db, adOpenStatic, adLockPessimistic

'

وهنا اسم الجدول هو access

1- إضافة سجل أو بيانات .

نستخدم الكود التالي لتهيئة الجدول لإستقبال لبيانات الجديده والكود هو /

rs.AddNew

بعدها نقوم طبعا بتعبئة الحقول او التكست بوكس بالبيانات وبعد الإنتهاء من ذلك نقوم بحفظ البيانات طبعا يجب تحديد البيانات لكل حقل بمعنى آخر يجب إن نعرف النظام إن البيانات الموجودة في هذا التكست خاصة بالحقل الفلاني الموجود في الجدول الفلاني وهو هنا access وذلك بواسطة الكود التالي /

rs!Name=Text1.text

rs!Phone=Text2.text

'

rs!.UpDate

طبعا ال Name تعبر عن اسم الحقل الموجود في الجدول access مثلا .

وايضا الPhone تعبر عن اسم الحقل الموجود في الجدول access مثلا .

أما اسطر الأخير من الكود فهو المسؤل عن عملية حفظ البيانات .

2- عملية تعديل البيانات ، هذه العملية لا تختلف عن عملية إضافة سجل جديد وكل ما علينا عمله هو تحديد رقم السجل وفي والعادة نستخدم الإسهم للإنتقال ما بين السجلات فهذا العملية تختصر علينا عملية تحديد رقم السجل ،،،، ننسخ الكود السابق تماما ونقوم بحذف السطر rs.AddNew منه فقط .

3- عملية الحذف ، ولهذه العملية نستخدم الكود التالي /

rs.Delete adAffectCurrent

4- عملية البحث ، نستخدم الكود التالي وكل الذي في هذه العملية هو تحديد الحقل الذي سوف يتم البحث فيه .

rs.Find "[Name]='Visitor_OM'"

وهنا سوف نبحث عن اسمي في الحقل الذي اسمه Name .

وإيضا إلقي نظرة على هذا الرابط وحمل البرنامج الذي فيه راح يساعدك في عمل البحث بدون تحديد اسم الحقل ولكن بيطلّب منك مجهود لفهم الكود الموجود في البرنامج .

الرابط / http://arabteam2000.com/vb/showthread.php?...&threadid=28435

بالنسبة لسؤال الثالث

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

وأخير اشكر اخي الكريم على ثقتك بي وهذا شرف لا استحقة .

أخوك Visitor_OM

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

الف شكر اخي العزيز Visitor_OM على هذا التوجيه الاخوي

واعدك سوف اقوم بمانصحتني به ولكن سوف اكون على اتصال دائم بك لااخذ ملاحظاتك وتوجيهاتك

اخوك ابو وسن

على الرحب والسعة أخي في أي وقت .

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

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

حفظ وتعديل وحذف وكذلك اضفت المكتبة كما قلت لي

ولكن حدث خطا ويعيني رسالة

والكودات وضعتها كتالي

-------------------------'

Dim db    As ADODB.Connection

 Dim rs    As ADODB.Recordset

'



Private Sub Command1_Click()

rs.AddNew

rs!sanf1 = Text1.Text

rs!sar1 = Text2.Text

rs!kmass1 = Text3.Text

'

rs!.Update



End Sub



Private Sub Command2_Click()

rs!sanf1 = Text1.Text

rs!sar1 = Text2.Text

rs!kmass1 = Text3.Text

'

rs!.Update

End Sub



Private Sub Command3_Click()

rs.Delete adAffectCurrent



End Sub



Private Sub Command4_Click()

rs.Find "[sanf1]='text4.text'"



End Sub



Private Sub Form_Load()

'

 Set db = New ADODB.Connection

     db.CursorLocation = adUseClient

     db.Provider = "Microsoft.Jet.OLEDB.3.5"

     db.Open App.Path & "mrkz.MDB"

'

'

 Set rs = New ADODB.Recordset

     rs.Open "tr1", db, adOpenStatic, adLockPessimistic

'



End Sub

والرسالة هي

-----------------

ADO COULD NOT FIND THE SPECIFIED PROVIDER

وهذا وتقبل تحياتي

اخوك ابو وسن

بعد التحية

أتوقع الخطأ في هذا الكود

db.Open App.Path & "mrkz.MDB"

قم بتغيره إلى /

db.Open App.Path & "mrkz.MDB"

بالتوفيق .

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

تفضل البرنامج /

telephonedirectory.zip

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

اخي العزيز الف شكر مني اليك على هذا التعب في مساعدة الاعضاء الجدد

في الفيجول بيسك امثالي

وشكر خاص على البرنامج اللي فهمت منه اكثر من معلومة

تقبل تحياتي

اخوك ابو وسن

العفو اخي لا شكر على واجب .