الدرس الثالث : ربط قاعدة البيانات مع البرنامج
صفحة 1 من اصل 1
الدرس الثالث : ربط قاعدة البيانات مع البرنامج
بسم الله الرحمن الرحيم
============
اليوم نقوم بربط قاعدة البيانات مع برنامجنا
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
===================================================
شكرا للمتابعة
ولو في اي مشكله الرجاء وضع تعليق
وح اضع الرد المناسب
د.سمسم
============
اليوم نقوم بربط قاعدة البيانات مع برنامجنا
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
===================================================
شكرا للمتابعة
ولو في اي مشكله الرجاء وضع تعليق
وح اضع الرد المناسب
د.سمسم
Dr.Smsm_07- Admin
- عدد المساهمات : 54
السٌّمعَة : 3
تاريخ التسجيل : 21/10/2011
العمر : 36
مواضيع مماثلة
» الدرس الثاني : انشاء قاعدة البيانات
» الدرس الثالث : الرسم ثنائي الابعاد 2D
» الدرس الاول في كيفية ربط قاعدة بيانات اكسس ب vb6
» الدرس الاول : مقدمه لربط مع الكاميرا
» الدرس الرابع : مجموعة من الامثله في 2D
» الدرس الثالث : الرسم ثنائي الابعاد 2D
» الدرس الاول في كيفية ربط قاعدة بيانات اكسس ب vb6
» الدرس الاول : مقدمه لربط مع الكاميرا
» الدرس الرابع : مجموعة من الامثله في 2D
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى