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

احصائيات سريعة

اقسام على الموقع

البحث في المواد

اكثر المحتويات زيارة

الدوال في الاكسل (6,311 مشاهده)
ربط قاعدة بيانات أكسس (MS Access) مع برنامج الفيجوال بيسك بطريقة(ODBC) (4,095 مشاهده)
الدرس الثالث : بعض تطبيقات الدوال في اكسل (3,063 مشاهده)
تعريف الاستعلام وطريقة عرضه في آكسس، أنواع الاستعلامات، نافذة تحديد الاستعلام! (2,377 مشاهده)
الدرس الثاني: بعض الحيل لتسهيل برنامج اكسل (2,277 مشاهده)
شرح طريقة استعمال الأوتلوك مع بريد الهوتميل (2,138 مشاهده)
تغيير لغة واجهة التطبيق من عربي الى انجليزي وبالعكس لـ Windows-based applications (2,112 مشاهده)
أنواع العلاقات وطريقة الربط بين الجداول. (1,901 مشاهده)
مقدمة عامة حول الاكسل وحيل خاصة بالاكسل (1,735 مشاهده)
أنشئ قاعدة بياناتك التي ستستند إليها في تعلم طريقة ربط الجداول والاستعلامات. (1,703 مشاهده)
الدرس الأول : عمل شريحة في البوربوينت (1,554 مشاهده)
دروس في الأوفيس الأكسس - Access0- (1,472 مشاهده)
دورة الأكسس: الدرس السادس : منوعات في أكسيس . (1,464 مشاهده)
كيفية حل مشاكل الانترنت اكسبلور Internet Explorer (1,441 مشاهده)
اضافه صوت ونص لخلفيه في باور بوينت (1,338 مشاهده)
شرح طريقة التجميع Grouping في برنامج الاكسل (1,301 مشاهده)
التعرف على مكونات الكمبيوتر (1,266 مشاهده)
برنامج Windows Movie Maker لتكوين أفلام (1,244 مشاهده)
درس تعريب المجلة (1,240 مشاهده)
دورة الأكسس: الدرس السادس : منوعات في أكسيس .0--- (1,229 مشاهده)
مقدمة في ربط قواعد البيانات داخل بيئة الـ .NET باستخدام الـ VB.NET (1,218 مشاهده)
كيف تجعل برنامجك أكثر تألقا وجمالا باستخدام أداة Active Skin (1,189 مشاهده)
ما هو المات لاب MATLAB؟ (1,157 مشاهده)
مقدمة عن لغة البيسك (1,120 مشاهده)
الفيجوال بيسك - مقدمة (1,080 مشاهده)

جديد مواد مع عشوائي

التحويل التلقائي للحروف ل- ل- ه إلى اسم الجلالة0---- (783 مشاهده)
النسبة المئوية لا تظهر بالخط العربي & الشدة وألف المد في لفظ الجلالة0---النسبة المئوية لا تظهر بالخط العربي & الشدة وألف المد في لفظ الجلالة0--- (483 مشاهده)
ضبط خيارات اللغة فى الـ Microsoft Word0--- (533 مشاهده)
استخدام لوحة المفاتيح في الـ Word0---- (698 مشاهده)
إضافة كلمة سر إلي ملفات الورد دون استخدام برامج0--- (780 مشاهده)
دمج المراسلات0-- (434 مشاهده)
وضع صورة كخلفية للنص0-- (558 مشاهده)
السماح للمستخدمين بتعديل أجزاء من ملف وورد محمي (Word2003)0--- (381 مشاهده)
كتابة الأرقام الكسرية ورموز المعادلات0-- (620 مشاهده)
درس كامل عن الدمج السهل من لوحة المفاتيح ف0-ي برنامج الـ Word (389 مشاهده)
دورة الأكسس: الدرس السادس : منوعات في أكسيس .0--- (1,229 مشاهده)
دورة الأكسيس : الدرس الرابع : العلاقات0---- (655 مشاهده)
أساسيات في Access0--0 (447 مشاهده)
تصميم تقرير لطباعة البيانات0---- (486 مشاهده)
تصميم نموذج استعراض البيانات‏0--تصميم نموذج استعراض البيانات‏0-- (470 مشاهده)
تصميم نموذج إدخال‎ ‎البيانات0--- (556 مشاهده)
إنشاء قوائم خاصة باستخدام الماكرو(1)0-- (434 مشاهده)
خطوات إنشاء الماكرو في تذييل النموذج (2)0-- (369 مشاهده)
خطوات إنشاء الماكرو في تذييل النموذج (1)0- (325 مشاهده)
استعلامات SQL في Access - تعديل الجداول وإضافة الحقول0- (460 مشاهده)
استعلامات SQL في Access - تحديث البيانات الجدولية0-- (413 مشاهده)
الاستعلامات الإجرائية -4 (استعلام الحذف)0--- (214 مشاهده)
الاستعلامات الإجرائية -2 (استعلام الإلحاق)0--- (292 مشاهده)
تصميم تقرير لطباعة الإجمالي0--- (321 مشاهده)
استعلامات التحديد Select Query مع أمثله (1)0--- (425 مشاهده)

دروس كمبيوتر وصيانة دروس حاسب دروس مجلة درس نيوك phpnuke الدروس دروس مسنجر MSN - yahoo - Gmail دروس منتديات vBulletin دروس الجوالات والهواتف دروس السي بنل cpanel دروس اكسس access دروس بيونت شوب برو - point shop pro دروس برمجة php - mysql دروس برامج منوعة software دروس ثري دي ماكس 3D max دروس جافا سكريبت JavaScript دروس دريم ويفر DreamWeaver دروس شبكات Networks دروس سويش - swish دروس فلاش - flash دروس فيجوال بيسك Visual Basic دروس فرونت بيج - frontpage دروس فوتوشوب photoshop دروس هكر hacker crack virus > لفيجوال بيسك - Visual Basic > ربط قاعدة البيانات بالكود

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

مرات القرائه: 142 مرة/مرات

التقييم:

قم بدعوة صديق

اعلانات في الموقع على جميع الصفحات

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

ربط قاعدة البيانات بالكود 3

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

التنقل بين السجلات :

لن تحتاج للتنقل بين السجلات الا لـ:

السجل التالي
السجل السابق
السجل الأول
السجل الأخير

!+عريض!السجل التالي!-عريض!

ولكي تنتقل للسجل التالي سوف تحتاج لكتابة الأمر التالي في الزر المطلوب وهو في مثالنا

Private Sub cmd6_Click()
t.MoveNext
Call showdata
End Sub

لاحظ أننا استخدمنا اسم الجدول المستعار t ، ثم بعد ذلك استدعينا الاجراء showdata الذي عملناه في الجزء السابق لكي يقوم بعرض البيانات في السجل التالي وهذه الطريقة تنطبق على جميع انواع التنقل القادمة

!+عريض!السجل السابق!-عريض!

وكل ما تحتاج كتابته هذا الكود بنفس طريقة الكود السابق ( لا تنسىوضع الكود في المكان المناسب وهو هنا

Private Sub cmd7_Click()
t.MovePrevious
Call showdata
End Sub

!عريض+!السجل الأول!-هريض!

للإنتقال للسجل الأول اكتب الكود التالي في زر الامر cmd8

Private Sub cmd8_Click()
t.MoveFirst
Call showdata
End Sub

!+عريض!السجل الأخير!-عريض!

للانتقال للسجل الاخير اكتب الكود التالي في زر الامر cmd5 :

Private Sub cmd5_Click()
t.MoveLast
Call showdata
End Sub

هذه كل اوامر التنقل التي تحتاجها ، لكن لم ننتهي بعد فستواجهك مشكلة ، فمثلا عندما تريد أن تنتقل للسجل التالي وانت في السجل الاخير طبعا لا يوجد سجل تالي لذلك سيتوقف البرنامج ، ونفس الشيء عند الانتقال للسجل السابق وانت في السجل الاول فلا يوجد سجل سابق فسيتوقف البرنامج ، لذلك سنقوم بإضافة جملة شرطية للتأكد اذا كان السجل الأخير او الاول حسب الحاله ثم نقوم بوضع امر Movefirst او movelast حيث ان هذين الامرين لا يتأثران سواء كان هناك سجل او لا وطريقة استخدامهم هكذا :

!+عريض!ملاحظة!-عريض!

نستخدم الدالة EOF لمعرفة اخر سجل في الجدول ونستخدم الدالة BOF لمعرفة اول سجل في الجدول

سنضع الجملة الشرطية التالية في زر الانتقال للتالي فإذا كان هذا اخر سجل اذا انتقل للسجل التالي

If t.EOF Then t.MoveLast

وكذلك في زر الانتقال للسابق نضع شرط اذا كان هذا اول سجل اذا انتقل للسجل الاول

If t.BOF Then t.MoveFirst

لذلك سنضيف الجملتين السابقتين لكود الانتقال للتالي والانتقال للسابق فييصبح كود الانتقال للتالي هكذا :

Private Sub cmd6_Click()
t.MoveNext
If t.EOF Then t.MoveLast
Call showdata
End Sub

وكود الانتقال للسابق هكذا :

Private Sub cmd7_Click()
t.MovePrevious
If t.BOF Then t.MoveFirst
Call showdata
End Sub

!+عريض!عمليات السجلات!-عريض!

الان سنتعلم عمليات السجلات منحذف واضافة وتعديل

!+عريض!أضافة سجل!-عريض!

الامر التالي يقوم بإضافة سجل ونضيف عليه اوامر لتمسح ما في مربعات النص لتهيئتها للإضافة:

Private Sub cmd1_Click()
t.AddNew اضافة سجل جديد

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

Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

!+عريض!حفظ سجل:!-عريض!

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

Private Sub cmd2_Click()

نقوم في الخطوات التالية بنقل ما في مربعات النص الى الحقول التي توازيها في قاعدة البيانات

t!Name = Text1.Text

t!Name = Text1.Text
t!num = Val Text2.Text
val لا حظ اننا استخدمنا هذه الدالة لكي يتم قبول الحقل في حالة كونه فارغ لان هذا حقل رقمي
t.Update
End Sub

!+عريض!تعديل سجل :!-عريض!

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

Private Sub cmd3_Click()
t.Edit
تسمح هذه الخاصية بتعديل البيانات في الحقل
End Sub

!+عريض!حذف سجل :!-عريض!

عملية حذف السجل سهلة ، ولكن ماذا بعد ان تحذف السجل ؟ بالطبع يجب ان تعرض السجل التالي وايضا يجب ان تراعي المشاكل التي تواجهك عند انتقالك للسجل التالي فقد لا يكون هناك سجل تالي وقد شرحنا كيف تتفادى هذه المشكلة في هذا الدرس

وهذا هو الكود اللازم :

Private Sub cmd4_Click()
t.Delete لحذف سجل
t.MoveNext للانتقال للسجل التالي بعد الحذف
If t.EOF Then t.MoveLast يحل هذا الاجراء مشكلة عدم وجود سجل تالي
End Sub

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

أضف هذه المادة في موقعك:

مواد مشابهة:

	كيفية عمل برنامج تنصيب لبرنامجك كيفية عمل برنامج تنصيب لبرنامجك (مرات المشاهدة: 476 مرات)
	معنى الخصائص ، ضبط الخصائص معنى الخصائص ، ضبط الخصائص (مرات المشاهدة: 178 مرات)
	مقدمة عن ربط قاعدة البيانات بالكود 1 مقدمة عن ربط قاعدة البيانات بالكود 1 (مرات المشاهدة: 217 مرات)
	ربط قاعدة بيانات أكسس (MS Access) مع برنامج الفيجوال بيسك بطريقة(ODBC) ربط قاعدة بيانات أكسس (MS Access) مع برنامج الفيجوال بيسك بطريقة(ODBC) (مرات المشاهدة: 4,095 مرات)
	للمبتدئين : التعامل مع App.path للمبتدئين : التعامل مع App.path (مرات المشاهدة: 234 مرات)
	هيكلية قاعدة البيانات1 هيكلية قاعدة البيانات1 (مرات المشاهدة: 329 مرات)
	طريقة حفظ العمل كبرنامج تنفيذي طريقة حفظ العمل كبرنامج تنفيذي (مرات المشاهدة: 264 مرات)
	Visual Basic (3) Visual Basic (3) (مرات المشاهدة: 85 مرات)
	فوائد متنوعة لكافة المبرمجين (2) فوائد متنوعة لكافة المبرمجين (2) (مرات المشاهدة: 124 مرات)
	فوائد متنوعة لكافة المبرمجين (3) (مرات المشاهدة: 108 مرات)

fot