تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] سؤال مع مشكلة جديدة مع listview
#1
السلام عليكم سوف ابحث عن هذة الحل ولكن قبل البحث حبيت اطرح المشكلة ليتم المساعدة ربما اتاخر في البحث ولكن ان قدرت في ايجاد الحل باسرع وقت راح اضع لكم الحل 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 لشخص او للرقم ايهما افضل او اسهل لكم اتمنى ان تفيدوني
الرد
تم الشكر بواسطة:
#2
هل قمت بإعطاء قيمة للمتغير dr أم لا؟
الرد
تم الشكر بواسطة:
#3
سلام

كود :
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

موفقين
متغيب
الرد
تم الشكر بواسطة:
#4
مشكور رحم الله والديك اخوي الطالب شغال 100%
الرد
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم