+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم اسئلة التقارير والطباعة تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=71)
+--- الموضوع : [VB.NET] سؤال بخصوص داتا قريد فيو (/showthread.php?tid=13060)
سؤال بخصوص داتا قريد فيو - theghost - 28-08-15
السلام عليكم
اذا قلنا بأن كود لاظهار البيانات داخل ليست فيوا هذا :
كود :
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_ID"), row("Equ_Name"), row("Equ_Quantity"), row("Ren_Date")}))
Next
End Using
End Using
End UsingRE: سؤال بخصوص داتا قريد فيو - أبو عمر - 28-08-15
Datagridview1.Datasource(dt)
RE: سؤال بخصوص داتا قريد فيو - الطالب - 28-08-15
سلام
كود :
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)
DataGridView1.DataSource = dt
End Using
End Using
End Usingاو
كود :
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)
DataGridView1.Rows.Clear()
For Each row As DataRow In dt.Rows
DataGridView1.Rows.Add(New String() {row("Equ_ID"), row("Equ_Name"), row("Equ_Quantity"), row("Ren_Date")})
Next
End Using
End Using
End Usingموفقين
RE: سؤال بخصوص داتا قريد فيو - theghost - 28-08-15
لم افهم حاولت اضعها واعدل على الكود مع تغيير مايلزم
ممكن اخي ان تشرح لي اكثر
مشكور اخوي الطالب شغال 100%
RE: سؤال بخصوص داتا قريد فيو - Youssef1313 - 28-08-15
كود :
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)
DataGridView1.DataSource = dt
End Using
End Using
End UsingRE: سؤال بخصوص داتا قريد فيو - أبوبكر سويدان - 29-08-15
شاهد الفيديو التالي:
https://www.youtube.com/watch?v=e5LV7XoNS6U
RE: سؤال بخصوص داتا قريد فيو - theghost - 29-08-15
شباب ارجو النتباه تم حل المشكلة بفضل مجهود الاخ الكريم الطالب وشكرا
RE: سؤال بخصوص داتا قريد فيو - أبوبكر سويدان - 29-08-15
تعدد الحلول لا يضر.
RE: سؤال بخصوص داتا قريد فيو - theghost - 30-08-15
شكرا اخوي على الرد الجميل