تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] سؤال بخصوص داتا قريد فيو
#1
السلام عليكم

اذا قلنا بأن كود لاظهار البيانات داخل ليست فيوا هذا :
كود :
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 Using
فما هو الكود للداتا قريد فيو ؟؟
الرد }}}
تم الشكر بواسطة:
#2
Datagridview1.Datasource(dt)
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد }}}
تم الشكر بواسطة: الطالب
#3
سلام


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


موفقين
متغيب
الرد }}}
تم الشكر بواسطة:
#4
لم افهم حاولت اضعها واعدل على الكود مع تغيير مايلزم
ممكن اخي ان تشرح لي اكثر

مشكور اخوي الطالب شغال 100%
الرد }}}
تم الشكر بواسطة:
#5
كود :
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
الرد }}}
تم الشكر بواسطة:
#6
شاهد الفيديو التالي:
https://www.youtube.com/watch?v=e5LV7XoNS6U
الرد }}}
تم الشكر بواسطة:
#7
شباب ارجو النتباه تم حل المشكلة بفضل مجهود الاخ الكريم الطالب وشكرا
الرد }}}
تم الشكر بواسطة:
#8
تعدد الحلول لا يضر.
الرد }}}
تم الشكر بواسطة:
#9
شكرا اخوي على الرد الجميل
الرد }}}
تم الشكر بواسطة: أبوبكر سويدان



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


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