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

السلام عليكم

اذا قلنا بأن كود لاظهار البيانات داخل ليست فيوا هذا :

كود :

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

فما هو الكود للداتا قريد فيو ؟؟

Datagridview1.Datasource(dt)

سلام

كود :

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

موفقين

لم افهم حاولت اضعها واعدل على الكود مع تغيير مايلزم
ممكن اخي ان تشرح لي اكثر

مشكور اخوي الطالب شغال 100%

كود :

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

شاهد الفيديو التالي:
https://www.youtube.com/watch?v=e5LV7XoNS6U

شباب ارجو النتباه تم حل المشكلة بفضل مجهود الاخ الكريم الطالب وشكرا

تعدد الحلول لا يضر.

شكرا اخوي على الرد الجميل

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

theghost

أبو عمر

الطالب

theghost

Youssef1313

أبوبكر سويدان

theghost

أبوبكر سويدان

theghost