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

منتدى باعرام

منتدى خاص يجمع بين التعارف واخذ المعرفة
 
الرئيسيةالبوابةأحدث الصورالتسجيلدخول

ترحب ادارة المنتدى بجميع الاعضاء المشاركين في المنتدى

وتتمنى لهم الحصول على كل مايتمنونه وكل مايلبي طلباتهم

                                (إدارة المنتدى )

كيفية الإتصال بقاعدة البيانات وجلب بيانات عن طريق دوال لغة الإستعلامات sql Support
تصويت
مارايك في المنتدى
 ممتاز
 جيد جداً
 متوسط
استعرض النتائج
بحـث
 
 

نتائج البحث
 
Rechercher بحث متقدم
المواضيع الأخيرة
» وظيفة شاغرة في شركة في مجال الاجهزة الكهربائية بمكة المكرمة
كيفية الإتصال بقاعدة البيانات وجلب بيانات عن طريق دوال لغة الإستعلامات sql Emptyالإثنين أغسطس 12, 2013 9:47 pm من طرف 

» مشاري العرادة (انشودة صلى عليك الله ياسيد الاكوان)
كيفية الإتصال بقاعدة البيانات وجلب بيانات عن طريق دوال لغة الإستعلامات sql Emptyالأربعاء فبراير 13, 2013 9:31 am من طرف 

» يارفيقي ( رائعة مشاري العراده و أحمد الهاجري
كيفية الإتصال بقاعدة البيانات وجلب بيانات عن طريق دوال لغة الإستعلامات sql Emptyالأربعاء فبراير 13, 2013 9:16 am من طرف 

» اهداء الى كل صديقين متحابين في الله
كيفية الإتصال بقاعدة البيانات وجلب بيانات عن طريق دوال لغة الإستعلامات sql Emptyالأربعاء فبراير 13, 2013 9:02 am من طرف 

»  الآن من هنا النتائج النصفية لمدارس مديرية حريضة
كيفية الإتصال بقاعدة البيانات وجلب بيانات عن طريق دوال لغة الإستعلامات sql Emptyالإثنين فبراير 11, 2013 2:15 am من طرف سليمان الأهدل

» نظام إدارة الحسابات الخيرية
كيفية الإتصال بقاعدة البيانات وجلب بيانات عن طريق دوال لغة الإستعلامات sql Emptyالخميس ديسمبر 20, 2012 10:15 pm من طرف سليمان الأهدل

» مبرمج تحت الطلب
كيفية الإتصال بقاعدة البيانات وجلب بيانات عن طريق دوال لغة الإستعلامات sql Emptyالخميس ديسمبر 20, 2012 10:07 pm من طرف سليمان الأهدل

» قصيدة جديدة بعنوان عشق حريضه
كيفية الإتصال بقاعدة البيانات وجلب بيانات عن طريق دوال لغة الإستعلامات sql Emptyالخميس نوفمبر 22, 2012 12:29 am من طرف الشاعر محمد سعيد باعرام

» جديد هاني دعكيك و ماجد التريمي ابو حسان
كيفية الإتصال بقاعدة البيانات وجلب بيانات عن طريق دوال لغة الإستعلامات sql Emptyالجمعة أكتوبر 12, 2012 8:42 pm من طرف الشاعر هاني دعكيك

شات المنتدى
للدخول الى المحادثة الفورية انقر هنا
او انقر هنا
لمشاهدة اي مكان بالعالم
لمشاهدة اي مكان في العالم انقر هنا
تصفح القرآن الكريم
تصفح القرآن الكريم بكل سهولة ويسر من هنا


منتدى باعرام يرحب بك وهذه الرسالة تفيد أنك غير مسجل .

و يسعدنا كثيرا انضمامك لنا ...

للتسجيل اضغط هـنـا

دخول
اسم العضو:
كلمة السر:
ادخلني بشكل آلي عند زيارتي مرة اخرى: 
:: لقد نسيت كلمة السر

 

 كيفية الإتصال بقاعدة البيانات وجلب بيانات عن طريق دوال لغة الإستعلامات sql

اذهب الى الأسفل 
كاتب الموضوعرسالة
سليمان الأهدل

سليمان الأهدل


عدد المساهمات : 31
نقاط : 85
تاريخ التسجيل : 21/03/2012
العمر : 44

كيفية الإتصال بقاعدة البيانات وجلب بيانات عن طريق دوال لغة الإستعلامات sql Empty
مُساهمةموضوع: كيفية الإتصال بقاعدة البيانات وجلب بيانات عن طريق دوال لغة الإستعلامات sql   كيفية الإتصال بقاعدة البيانات وجلب بيانات عن طريق دوال لغة الإستعلامات sql Emptyالأربعاء مارس 21, 2012 3:59 pm

بسم الله الرحمن الرحيم
شرح متواضع على كيفية الإتصال بقاعدة البيانات وجلب بيانات عن طريق دوال لغة الإستعلامات sql
من القوائم تختار قائمة project ثم تختار References والملف المطلوب للعمل هو Microsoft Activex Data Objects 2.8 library
تصفح القائمة ستجد فيها هذه المكتبات dll
Microsoft Activex Data Objects 2.0 library
Microsoft Activex Data Objects 2.1 library
Microsoft Activex Data Objects 2.5 library
Microsoft Activex Data Objects 2.6 library
Microsoft Activex Data Objects 2.7 library
Microsoft Activex Data Objects 2.8 library
ولماذا أختارهذه المكتبة أو الملف البرمجى؟؟
هذا الملف dll يحتوى على جميع الأوامر البرمجية التى صممت مسبقا من Microsoft والخاصة بالتعامل مع قواعد البيانات من انشاء واضافة وتعديل وحذف بيانات وجداول واستدعاء وغيره. وهذه الأوامر موجودة بهذا الملف لكن لن تستطيع استدعاء تلك الأوامر فى مشروعك قبل ربط تلك المكتبة بالمشروع .
كيف أربط مشروعى بهذه المكتبة؟؟
كالتالى
من القوائم تختار قائمة project ثم تختار References
ثم تختار المكتبة Microsoft Activex Data Objects 2.8 library وهى آخر اصدار كما يمكنك اختيار اصدار آخر
الآن أصبحت تستطيع التعامل مع أكواد هذه المكتبة
كيف أكتب الأكواد؟
أولا يجب أن تقوم بتعريف هذه المكتبة فى مشروعك كالأتى
فى أعلى شاشة الكود تجد قسم يسمى General وهو قسم التصريحات العامة الخاصة بالنموذج الحالى
وهنا تكتب تعريف كائن قاعدة البيانات:
Dim DB As New ADODB.Connection ليس شرطا أن تسمى المتغير DB يمكنك تسميته أى اسم آخر
وكلمة Dim هى من الكلمات المحجوزة فى الفيجوال بيسك والتى تكتب عند تعريف متغير ما.
تعريف كائن التعامل مع السجلات:
Dim rs As New ADODB.Recordset ليس شرطا أن تسمى المتغير rs يمكنك تسميته أى اسم آخر
ستجد الفيجوال تلقائيا يظهر لك قائمة الإقتراحات عند الكتابة فإذا كتبت dim ثم مسافة ستجد القائمة قد ظهرت يمكنك اختيار البارا ميتر الذى تحتاجه
الشكل النهائى للكود فى قسم التصريحات General
Dim DB As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As string متغير لتخزين جملة الإستعلام فيه
شفرة الإتصال بقاعدة البيانات وقد وضعناها فى اجراء لكى يتم استدعاءها عند الحاجة بدلا من كتابتها فى كل مرة نريد فتح الإتصال مع قاعدة البيانات و كلمة provd اسم الإجراء وهو اختيارى يمكنك تسميته بأى اسم شرط ألا يكون من الكلمات المحجوزة.
اجراء بداخله شفرة الإتصال بقاعدة البيانات
Private Sub provd ()
If DB.State = adStateOpen Then DB.Close
" DB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=123; Data Source=" & App.Path & "\data.mdb
If rs.State = adStateOpen Then rs.Close
End Sub
شرح الكود:
If DB.State = adStateOpen Then DB.Close
لو كانت قاعدة البيانات مفتوحة قم بغلقها
DB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=123; Data Source=" & App.Path & "\data.mdb"
شفرة الإتصال بقاعدة البيانات وفتحها والتى هى فى نفس مسار البرنامج واسمها DATA ومحمية بكلمة مرور وهى123
Microsoft.Jet.OLEDB.4.0;Jet OLEDB هذا الجزء من الشفرة خاص بإصدار أكسيس ما بعد اصدار 97 وهو يعمل على 2007
If rs.State = adStateOpen Then rs.Close
• لو كان كائن السجلات مفتوحا قم باغلاقه (وذلك لتلافى حدوث أخطاء)
END SUB وهو نهاية هذا الإجراء
كود جلب المجموع الكلى للحقل

Private Sub Command3_Click()
Call provd
sql = "select sum(num)from tablemax"
rs.Open sql, DB, adOpenKeyset, adLockPessimistic
( Text1 = rs.Fields(0
MsgBox " " & rs.Fields(0), vbInformation
End Sub
Call من الكلمات المحجوزة وتستخدم لإستدعاء أى اجراء لكى يتم تنفيذه
Call provd لإستدعاء اجراء الإتصال كما سبق شرحه
sql = "select sum(num)from tablemax"
المتغير sql يمكنك كتابة أى شىء آخر
شرح جملة الإستعلام
select حدد (أساس الجملة)
sum مجموع (دالة)
(num)اسم الحقل (متغير)
From من الجدول (ثابت)
tablemax اسم الجدول (متغير)

اعطاء هذه القيمة الى كائن السجلات لفتحها كالتالى
rs.Open sql, DB, adOpenKeyset, adLockPessimistic
الشرح
rs.Open يا كائن السجلات قم بفتح sql (sql هو المتغير الذى يحمل جملة الإستعلام)
DB متغير شفرة الإتصال بقاعدة البيانات
, adOpenKeyset, adLockPessimistic
مؤشرات التعامل مع السجلات وهى 4 أنواع
اظهار الناتج فى صندوق النص
( Text1 = rs.Fields(0
القيمة الناتجة ستكون سجل واحد فقط وهو مجموع الحقل لأننا لم نستدعى كافة حقول الجدول
اظهار الناتج فى صندوق الرسالة
MsgBox "?????" & rs.Fields(0), vbInformation

يتم استخدام باقى الدوال بعد تغيير اسم الدالة من الكود
"select sum(num)from tablemax"
"select min(num)from tablemax"
"select max(num)from tablemax"
"select count(num)from tablemax"
"select first(num)from tablemax"
"select last(num)from tablemax"
والسلام عليكم ورحمة الله وبركاته

منقول
الرجوع الى أعلى الصفحة اذهب الى الأسفل
https://www.facebook.com/suliman.alahdal
 
كيفية الإتصال بقاعدة البيانات وجلب بيانات عن طريق دوال لغة الإستعلامات sql
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1
 مواضيع مماثلة
-
» ربط قاعدة بيانات بالبرنامج
» أهم الأوامر للتعامل مع قواعد البيانات
» هذه عملية حسابية لمعرفة رقم الصفحة في القرآن الكريم بسرعة عن طريق رقم الجزء
» كيفية تعلم المكياج بالخطوات
» كيفية عمل تقرير بواسطة فيجوال بيسك بسهوله اليكم الطريقة

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