قراءة البيانات بواسطة data reader

السلام عليكم ورحمة الله وبركاتة

سؤالى يتمحور فى انى كتبت هذا الكود ليقرا استعلامى ويعرضة فى list box بواسطة OleDbDataReader object

لكن لا تظهر النتيجة فارجو احد يخبرنى ماهو الناقص فى الكود

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim StrConn As String = "Provider=Microsoft.Jet.OLEDB.4.0" & _
        "Data Source=D:\My library\Test\Mypro\Ado\Beginng VS 2005\Ch1_ConnectionMDB\Ch1_ConnectionMDB\bin\Debug\Samples\Northwind.mdb;"
        Dim objCon As New OleDbConnection(StrConn)
        Dim strSQL As String = _
           "SELECT FirstName, LastName FROM Employees"
        Dim ObjCommand As New OleDbCommand(strSQL, objCon)
        Dim ObjReader As OleDbDataReader
        Try
            objCon.Open()
            ObjReader = ObjCommand.ExecuteReader()
            While ObjReader.Read
                ListBox1.Items.Add(ObjReader.Item("FirstName") & " " & _
                                  ObjReader.Item("LastName"))
            End While
        Catch OleDbExceptionErr As OleDbException

            Debug.WriteLine(OleDbExceptionErr.Message)
        Catch InvalidOperationExceptionErr As InvalidOperationException

            Debug.WriteLine(InvalidOperationExceptionErr.Message)
        End Try


        objCon.Close()




        ObjReader = Nothing
        ObjCommand.Dispose()
        ObjCommand = Nothing
        objCon.Dispose()
        objCon = Nothing
    End Sub

قراءة البيانات بواسطة data reader

مواضيع مشابهة