xpredo script

العودة   نيو حب > منتديات الحاسب والاتصالات > تحميل برامج - برامج كامله - برامج مجانية > شرح البرامج - برامج مشروحه > فيجوال بيسك
التسجيل

سلسلة تعليم الفيجوال بيسيك التعامل مع البيانات بطريقة Odbc فيجوال بيسك 6

فيجوال بيسك

28-04-2006, 05:43 PM
sweety byby
 
Thumbs up سلسلة تعليم الفيجوال بيسيك التعامل مع البيانات بطريقة Odbc فيجوال بيسك 6

كيف نتصل في قاعدة البيانات وسحب المعلومات منها .


بعد تطبيق الدرس الاول سوف تظهر لكم هذه الشاشة :

صورة 1 :

[IMG]http://lessons.*/upload/vb1.jpg[/IMG]

نقوم بفتح Form1 كما يظهر في الصورة اعلاه , واضافة زر واحد Command و نقوم باضافة Listbox :

صورة 2 :


[IMG]http://lessons.*/upload/vb2.jpg[/IMG]

بعد ذلك نقوم بالدخول الى الحدث Command1_Click بالضغط على الزر مرتين ونقوم بكتابة الكود كما يظهر بالصورة :

صورة 3 :

[IMG]http://lessons.*/upload/vb3.jpg[/IMG]

نقوم بتعريف متغير من نوع Connection لكي يتكفل بالاتصال بقاعدة البيانات :

Dim Conn As New Connection

نقوم بتعريف متغير من نوع Connection لكي يتكفل بالاتصال بقاعدة البيانات :

Dim Conn As New Connection

بعد ذلك نقوم بتعريف متغير من نوع Recordset لكي يقوم بالتعامل مع البيانات :

Dim Rs As New Recordset

والمتغير strSQL هو متغير نص String سوف ندخل اليه جملة SQL التي تمثل البيانات التي نريد سحبها .

Dim strSQL As String

سوف نخرج من خلال جملة SQL اسماء المدن الموجوده في القاعدة :

strSQL = "Select CityName From Cities" << SQL

نتصل اولا بقاعدة البيانات

Conn.Open "Database" << Connection

بعد ذلك نخبر ال Rs بالمعلومات التي نريد اخراجها strSQL ونخبره ايضا باسم المتصل

Rs.Open strSQL, Conn

والان وقد فتح الاتصال واستطاع ال Rs الى المعلومات سوف نسأل اذا كان هناك معلومات اصلا [IMG]http://lessons.*/images/smilies/smile.gif[/IMG]

Rs.EOF معنى ذلك هل وصلنا الى النهاية ؟ اذا كان الجواب نعم True فليس هناك اي نتيجة وسوف اخرج رسالة No Fields

If Rs.EOF = True Then

اما اذا كان هناك معلومات فسوف نخرج الرسالة Yes .

بعد النهاية من كتابة الكود اضغط F5 لترى نتيجة العمل .

صورة 4 :


[IMG]http://lessons.*/upload/vb4.jpg[/IMG]

يبدو اني نسيت ان ادخل بعض البيانات [IMG]http://lessons.*/images/smilies/smile.gif[/IMG]

نقوم بعدها باضافة زر جديد Command وسوف يكون عمله ادخال اسماء المدن الى Listbox وهذا بعد ان قمت بادخال اسماء المدن طبعا [IMG]http://lessons.*/images/smilies/smile.gif[/IMG] الى قاعدة البيانات

صورة 5 :

[IMG]http://lessons.*/upload/vb5.jpg[/IMG]

بعد اضافتك لزر اضغط عليه مرتين لتدخل الى حدث Command2_Click

وقم بكتابة الكود الذي يظهر بالصورة

صورة 6 :

[IMG]http://lessons.*/upload/vb6.jpg[/IMG]

نفس الكود ولكن هنا نستخدم الحلقة Do Until Loop.

ما دام Rs لم يصل الى نهاية السجلات فادخل الى الحلقة .

Do Until Rs.EOF

بعد ذلك نقوم باضافة اسماء المدن الى Listbox .

List1.AddItem Rs.Fields("CityName") << Listbox

Rs.MoveNext تعني انتقل الى السجل التالي.

وستكون النتيجة كتالي , بعد الضغط على الزر 2 .

صورة 7 :

[IMG]http://lessons.*/upload/vb7.jpg[/IMG]

والي لقاء اخر في سلسلة فيجوال بيسيك:thumbs_up
من مواضيع : sweety byby سلسلة تعليم الفيجوال بيسيك التعامل مع البيانات بطريقة Odbc فيجوال بيسك 6
سلسلة تعليم الفيجوال بيسك - مقدمة
حيل للفيجوال بيسك
الفيجوال بيسك ودورة التحكم
شرح واجهة المستخدم لفيجوال بيسك 6
01-12-2007, 02:02 AM
moniem2007
 
رد: سلسلة تعليم الفيجوال بيسيك التعامل مع البيانات بطريقة Odbc فيجوال بيسك 6

شرح رائع بارك الله فيك
من مواضيع : moniem2007
14-08-2008, 08:27 AM
سهم الاماكن
 
الف عافيه
من مواضيع : سهم الاماكن
04-01-2010, 02:37 AM
الأهلاوي دائما
 
شكرا
من مواضيع : الأهلاوي دائما
 

الكلمات الدلالية (Tags)
مع, امتحانات, التعامل, الفيجوال, بيسيك, بيزك, تعليم, بطريقة, سلسلة, odbc, فيجوال

أدوات الموضوع

الانتقال السريع

المواضيع المتشابهه
القاموس الكامل لمصطلحات الويندوز والكمبيوتر عامة (ارجو التثبيت)
سلسلة تعليم الفيجوال بيسيك ضبط محتويات الفورمة من حيث موقعها بواسطة الكود
دروس فيجوال بيسيك للمبتدئين
سلسلة تعليم الفيجوال بيسك - مقدمة

سلسلة تعليم الفيجوال بيسيك التعامل مع البيانات بطريقة Odbc فيجوال بيسك 6

الساعة الآن 06:47 PM.