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

انضم إلى المنتدى ، فالأمر سريع وسهل

Neelain IT
السلام عليكم ورحمة الله وبركاته
مرحب بيكم في منتداكم
Neelain IT
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

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

اذهب الى الأسفل

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

مُساهمة  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
Dr.Smsm_07
Dr.Smsm_07
Admin

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

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

الرجوع الى أعلى الصفحة

- مواضيع مماثلة

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