التعامل مع قواعد البيانات خطوة خطوة (2) :

جهاد العريقي · 2008-01-18, 05:06 PM

بسم الله الرحمن الرحيم

هذا مثال كامل للتعامل مع قواعدالبيانات ولكن بطريقة مختلفة قليلاُ عن الطريقة السابقة الموجودة في بعض المنتديات او في هذا المنتدى .

وفي هذا المثال سنتعلم كل Operations التي نحتا ج اليها للتعامل مع Database وهنا اتكلم عن قواعد بيانات من نوع Access ,, طبعاً لانها متوفرة عندالاغلب او تقريباً عند الكل .

لنبداء :

اولاُ : استيراد فضاء الاسماء الخاص بالتعامل مع قواعد بيانات Access او قواعد البيانات التي تستخدم Provider Oledb وذلك لاختصار الكود :

كود PHP:


			
Imports System.Data.OleDb

يتم تعريف المتغيرين الاتين الاول هو لكائن dataset والذي سياخذ نسخة من قاعدةالبيانات , المتغير الثاني

كود PHP:


			
 
[left]    Dim ds As New DataSet
Dim intCurrentIndex As Integer = 0[/left]

وفي حدث تحميل الفورم Form1 والذي سميناه هنا frmPart1
هنا تعريف كائن اتصال جديد

كود PHP:


			
        Dim conn As New OleDbConnection
'نص الاتصال  الخاص  بقاعدة بيانات من نوع  Access
 
       conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\sample.mdb;User Id=admin;Password=;"

الاستعلام من الجدول في قاعدةالبيانات
متغير نصي نخزن فية الاستعلام من الجدول tbl_Master

كود PHP:


			
 Dim strSQL As String = "SELECT EmployeeID, FirstName, LastName, Location FROM tbl_Master"

هنا عرفنا كائن جديد من نوع DataAdapter واسندنا الى هذا المشيد الذي يحتوي هنا على وسيطين هما جملةالاستعلام و الاتصال المستخدم

كود PHP:


			
        Dim da As New OleDbDataAdapter(strSQL, conn)

وفي هذه الخطوة تم تعبئة الكائن Ds بالبيانات عن طريق الطريقة Fill التابعة للكائن da

كود PHP:


			
 da.Fill(ds)

وهنا يتم فحص الجدول ان كان يحتوي على اية بيانات

كود PHP:


			
  If ds.Tables(0).Rows.Count > 0 Then 'Check to see if the table is empty

طبعاً هنا استخدمنا Ds.Tables(0) والتي يمكن ان نستخدم بدلاً عنا اسم الجدول اي هكذا

كود PHP:


			
  If ds.Tables("tbl_Master").Rows.Count > 0 Then 'Check to see if the table is empty

هذا الكود نفس السابق ,, ايضاً للتوضيح عندما استخدمنا الكود السابق اي ds.Tables(0). هنا الصفر يعني رقم الجدول في قاعدة البيانات اي رقم الفهرس للجدول في قاعدة البيانات..

اسناد الحقول الى صناديق النصوص لعرض البيانات من الجدول

كود PHP:


			
            txtFirstName.Text = ds.Tables(0).Rows(0).Item("FirstName").ToString()
            txtLastName.Text = ds.Tables(0).Rows(0).Item("LastName").ToString()
            txtLocation.Text = ds.Tables(0).Rows(0).Item("Location").ToString()
        End If

طبعاً هناك عدة طرق لاسناد الحقول الى الادوات او Controls المستخدمة وافضلها هو Binding ..

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

ناتي الان الى ازرار التنقل بين السجلات او Navigation..

2008-01-18, 05:06 PM	#1 (permalink)
جهاد العريقي عميد كلية الجنس: ذكـــر الجنسية: بلد الإقامة: الوظيفة: المؤهل الدراسي: التخصص العلمي: كيف عرفت عن موقعنا: عن طريق صديق تاريخ التسجيل: Jul 2007 المشاركات: 98 شكراً: 0 تم شكره 0 مرة في 0 مشاركة معدل تقييم المستوى:2	التعامل مع قواعد البيانات خطوة خطوة (2) : بسم الله الرحمن الرحيم هذا مثال كامل للتعامل مع قواعدالبيانات ولكن بطريقة مختلفة قليلاُ عن الطريقة السابقة الموجودة في بعض المنتديات او في هذا المنتدى . وفي هذا المثال سنتعلم كل Operations التي نحتا ج اليها للتعامل مع Database وهنا اتكلم عن قواعد بيانات من نوع Access ,, طبعاً لانها متوفرة عندالاغلب او تقريباً عند الكل . لنبداء : اولاُ : استيراد فضاء الاسماء الخاص بالتعامل مع قواعد بيانات Access او قواعد البيانات التي تستخدم Provider Oledb وذلك لاختصار الكود : كود PHP: `Imports System.Data.OleDb` يتم تعريف المتغيرين الاتين الاول هو لكائن dataset والذي سياخذ نسخة من قاعدةالبيانات , المتغير الثاني كود PHP: `[left] Dim ds As New DataSet Dim intCurrentIndex As Integer = 0[/left]` وفي حدث تحميل الفورم Form1 والذي سميناه هنا frmPart1 هنا تعريف كائن اتصال جديد كود PHP: `Dim conn As New OleDbConnection 'نص الاتصال الخاص بقاعدة بيانات من نوع Access conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\sample.mdb;User Id=admin;Password=;"` الاستعلام من الجدول في قاعدةالبيانات متغير نصي نخزن فية الاستعلام من الجدول tbl_Master كود PHP: `Dim strSQL As String = "SELECT EmployeeID, FirstName, LastName, Location FROM tbl_Master"` هنا عرفنا كائن جديد من نوع DataAdapter واسندنا الى هذا المشيد الذي يحتوي هنا على وسيطين هما جملةالاستعلام و الاتصال المستخدم كود PHP: `Dim da As New OleDbDataAdapter(strSQL, conn)` وفي هذه الخطوة تم تعبئة الكائن Ds بالبيانات عن طريق الطريقة Fill التابعة للكائن da كود PHP: `da.Fill(ds)` وهنا يتم فحص الجدول ان كان يحتوي على اية بيانات كود PHP: `If ds.Tables(0).Rows.Count > 0 Then 'Check to see if the table is empty` طبعاً هنا استخدمنا Ds.Tables(0) والتي يمكن ان نستخدم بدلاً عنا اسم الجدول اي هكذا كود PHP: `If ds.Tables("tbl_Master").Rows.Count > 0 Then 'Check to see if the table is empty` هذا الكود نفس السابق ,, ايضاً للتوضيح عندما استخدمنا الكود السابق اي ds.Tables(0). هنا الصفر يعني رقم الجدول في قاعدة البيانات اي رقم الفهرس للجدول في قاعدة البيانات.. اسناد الحقول الى صناديق النصوص لعرض البيانات من الجدول كود PHP: `txtFirstName.Text = ds.Tables(0).Rows(0).Item("FirstName").ToString() txtLastName.Text = ds.Tables(0).Rows(0).Item("LastName").ToString() txtLocation.Text = ds.Tables(0).Rows(0).Item("Location").ToString() End If` طبعاً هناك عدة طرق لاسناد الحقول الى الادوات او Controls المستخدمة وافضلها هو Binding .. انتهينا الان من الاتصال بقاعدة البيانات و تعبئة البيانات في صناديق النصوص . ناتي الان الى ازرار التنقل بين السجلات او Navigation.. التعديل الأخير تم بواسطة جهاد العريقي ; 2008-01-18 الساعة 05:30 PM.

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