في هذه المقالة سوف نتعرف على  كيفية الوصول إلى البيانات باستخدام DataReader

يتم استخدام الكائن ( DataReader ) في قراءة السجلات التي تنتج من تنفيذ جملة الاستعلام التي يقوم الكائن ( Command ) بتنفيذها على مصدر البيانات لكن عيوب هذا القارىء هو انه لا يخزن البيانات فى نفسه ,اى انه عندما يأتى بالبيانات صفا تلو الآخر ,يجب ان تأخذ منه البيانات وتخزنها يدويا والا فانه يتوجب عليه اعادة الاتصال من جديد وقراءة البيانات من جديد ,لذلك فهو يعمل فى اتجاه واحد .

هناك نوعان من DataReader في ADO.NET هم :

_الاول :SqlDataReader و يستخدم مع كائن الاتصال SqlConnection

ا_الثانى :OleDbDataReader ويستخدم مع كائن الاتصال OleDbConnection


مثال على النوع الاول :

حيث يتم انشاء مثيل جديد من الكائن SqlDataReader على النحو التالى :

الكود:

Dim dr As SqlDataReader = sqlCmd.ExecuteReader()

بعد ذلك يتم استخدام الاسلوب Read لقراءة البيانات على النحو التالى :

الكود:

dr.Read()

سأعطى مثال على كيفية ملىء ComboBox  بواسطة DataReader من خلال قاعدة بيانات NorthWind  الموجودة ب SQL Server على النحو التالى :




مثال على النوع الثانى:

حيث يتم انشاء مثيل جديد من الكائن OleDbDataReader على النحو التالى :

الكود:

Dim oledbReader As OleDbDataReader = oledbCmd.ExecuteReader()

بعد ذلك يتم استخدام الاسلوب Read لقراءة البيانات على النحو التالى :

الكود:

oledbReader.Read()

سأعطى مثال عرض مربع نص بما تم قرائة من قاعدة بيانات أكسس على النحو التالى :

الكود:

Imports System.Data.OleDb
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim connetionString As String
        Dim oledbCnn As OleDbConnection
        Dim oledbCmd As OleDbCommand
        Dim sql As String

        connetionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Your mdb filename;"
        sql = "Your SQL Statement Here like Select * from product"

        oledbCnn = New OleDbConnection(connetionString)
        Try
            oledbCnn.Open()
            oledbCmd = New OleDbCommand(sql, oledbCnn)
            Dim oledbReader As OleDbDataReader = oledbCmd.ExecuteReader()
            While oledbReader.Read
                MsgBox(oledbReader.Item(0) & "  -  " & oledbReader.Item(1) & "  -  " & oledbReader.Item(2))
            End While
            oledbReader.Close()
            oledbCmd.Dispose()
            oledbCnn.Close()
        Catch ex As Exception
            MsgBox("Can not open connection ! ")
        End Try
    End Sub
End Class

وشكرا

أشكرك رنا على مساهماتك القيمة

شكرااا