Neelain IT
السلام عليكم ورحمة الله وبركاته
مرحب بيكم في منتداكم

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

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

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

مُساهمة  Dr.Smsm_07 في الإثنين نوفمبر 07, 2011 1:04 pm

بسم الله الرحمن الرحيم
============
اليوم نقوم بربط قاعدة البيانات مع برنامجنا
1- فلنقوم بفتح مشروع جديد " برنامج "
2- في الجذء الخاص بالبرنامج الفورم نقوم بانشاء متغيرين المتغير الاول نسمية DB للاتصال بقاعدة البيانات وتكون صيغته التالية
Dim DB As ADODB.Connection
والمتغير الثاني ونسمية RS ويقوم بالاتصال بجداول قاعدة البيانات Recordset ويكون بالصيغة التالية
Dim RS As ADODB.Recordset
3- في حدث Form_Load نقوم بعمل اتصال بواسطة الكود التالي
Set DB = New ADODB.Connection "انشاء اتصال جديد من نوع ADO"
Set RS = New ADODB.Recordset " انشاء اتصال بجدول قاعدة البيانات "
DB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database password=123; Data Source=" & App.Path & "\test.mdb" " فتح اتصال مع قاعدة البيانات "
4- في الفورم نقوم بإنشاء ذر لحفظ البيانات ولنضع فيه الكود التالي
Set RS = New ADODB.Recordset
If Text1 <> "" And Text2 <> "" And Text3<> "" Then
RS.Open "select * from tabl1 ", DB, adOpenDynamic, adLockOptimistic
RS.AddNew
RS!no = Text1.Text
RS!Name = Text2.Text
RS!phon = Text3.Text
RS.Update
MsgBox "تم الحفظ بنجاح"
Else
" تنبيه اذا كانت صناديق النصوص فارغة "
MsgBox "يجب ادخال بيانات "
Exit Sub
End If
-------------------- ملاحظه ---------------
عند فتح المشروع يجب تطبيق الدرس الاول اولا " اضافة الاداة ADO "
ودا رابط السورس بالـvb6 :
http://jumbofiles.com/wg196itrw4up/first_db_vb6.rar.html
===================================================
شكرا للمتابعة Very Happy
ولو في اي مشكله Mad الرجاء وضع تعليق Laughing
وح اضع الرد المناسب bounce
د.سمسم
cheers bounce bounce bounce cheers
avatar
Dr.Smsm_07
Admin

عدد المساهمات : 54
السٌّمعَة : 3
تاريخ التسجيل : 21/10/2011
العمر : 30

معاينة صفحة البيانات الشخصي للعضو

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى