+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] سؤال مع مشكلة جديدة مع listview (/showthread.php?tid=12800)
سؤال مع مشكلة جديدة مع listview - 0theghost0 - 23-07-15
السلام عليكم سوف ابحث عن هذة الحل ولكن قبل البحث حبيت اطرح المشكلة ليتم المساعدة ربما اتاخر في البحث ولكن ان قدرت في ايجاد الحل باسرع وقت راح اضع لكم الحل
والان الكود :
كود :
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 لشخص او للرقم ايهما افضل او اسهل لكم اتمنى ان تفيدوني
RE: سؤال مع مشكلة جديدة مع listview - silverlight - 23-07-15
هل قمت بإعطاء قيمة للمتغير dr أم لا؟
RE: سؤال مع مشكلة جديدة مع listview - الطالب - 23-07-15
سلام
كود :
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موفقين
RE: سؤال مع مشكلة جديدة مع listview - 0theghost0 - 23-07-15
مشكور رحم الله والديك اخوي الطالب شغال 100%