منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : سؤال مع مشكلة جديدة مع listview
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم سوف ابحث عن هذة الحل ولكن قبل البحث حبيت اطرح المشكلة ليتم المساعدة ربما اتاخر في البحث ولكن ان قدرت في ايجاد الحل باسرع وقت راح اضع لكم الحل Smile

والان الكود :

كود :
Using conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=False;")
           conn.Open()

           Dim sql As String =
        " Select * from [Rent_Equipment] WHERE Ren_NO = '" & ComboBox1.Text & "'"

           While (dr.Read())
               ListViewMakeRow(ListView1, dr("Equ_Name").ToString, dr("Equ_Quantity").ToString)
           End While

       End Using
 يوجد به خطأ واعتقد ان الكود ليس صحيح في الاصل
مكان الخطأ :
كود :
While (dr.Read())
عنوان الخطأ :
كود :
An unhandled exception of type 'System.NullReferenceException' occurred in Rent Schedule.exe

Additional information: Object reference not set to an instance of an object.

التاتابيس نفسها Access 2013 
جاري البحث :
ابغي من اختار من Combobox تظهر لي البيانات في List View او DataGrid لشخص او للرقم ايهما افضل او اسهل لكم اتمنى ان تفيدوني
هل قمت بإعطاء قيمة للمتغير dr أم لا؟
سلام

كود :
Private Sub ComboBox1_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectionChangeCommitted
    Using conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=False;")
        Dim sql As String = " Select * from [Rent_Equipment] WHERE [Ren_NO] = @Ren_NO "
        Using da As New OleDbDataAdapter(sql, conn)
            da.SelectCommand.Parameters.AddWithValue("@Ren_NO", Val(ComboBox1.Text))
            Using dt As New DataTable
                da.Fill(dt)
                ListView1.Items.Clear()
                For Each row As DataRow In dt.Rows
                    ListView1.Items.Add(New ListViewItem({row("Equ_Name"), row("Equ_Quantity")}))
                Next
            End Using
        End Using
    End Using
End Sub

موفقين
مشكور رحم الله والديك اخوي الطالب شغال 100%