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

السلام عليكم.اخواني برجاء المساعدة لو سمحتو كيف استبدل هذا الكود من الجريد العادي للجريد تبع الداف اكسبرس حاولت و بحثت و لكني لم اعثر على نتيجة و لم افهم كيف ارتب كود بهذا الشكل ليشتغل مع الجريد كنترول .. و خاصة بالجزئية تبع ال i بارك الله فيكم اخواني

كود :

   Sub Load_Records()

        Dim I As Integer = 0

        DataGridView1.Rows.Clear()

        Cnn.Open()

        Cmd = New SqlCommand("SELECT * From Tableemploye", Cnn)

        Drr = Cmd.ExecuteReader

        While Drr.Read

            I += 1

            DataGridView1.Rows.Add(I, Drr.Item("Idemploye").ToString, Drr.Item("nameemploye").ToString)

        End While

        Drr.Close()

        Cnn.Close()

    End Sub

و عليكم السلام و رحمة الله و بركاته
يمكن استخدام اكثر من طريقة للعمل
على فرض DataSource الخاص بـ GridCntrol مضبوط مسبقاً
او عبر الكود

PHP كود :

   Sub Load_Data()
        Dim dt As New DataTable
        dt.Columns.Add(New DataColumn With {.ColumnName = "Num"})
        dt.Columns.Add(New DataColumn With {.ColumnName = "Idemploye"})
        dt.Columns.Add(New DataColumn With {.ColumnName = "nameemploye"})
        GridControl1.DataSource = dt
        GridView1.PopulateColumns()


        Using Cn As New SqlClient.SqlConnection("Data Source = .;Initial Catalog=SalesDB;Integrated Security=True")

            Using Cmd As New SqlClient.SqlCommand("SELECT * From Tableemploye", Cn)
                Cn.Open()

                Using Drr As SqlClient.SqlDataReader = Cmd.ExecuteReader
                    dt.Load(Drr)
                    GridControl1.DataSource = dt
                End Using

            End Using

        End Using
    End Sub 

او باستخدام الطريقة AddNewRow

PHP كود :

Sub Load_Rows()
        Dim dt As New DataTable
        dt.Columns.Add(New DataColumn With {.ColumnName = "Num"})
        dt.Columns.Add(New DataColumn With {.ColumnName = "Idemploye"})
        dt.Columns.Add(New DataColumn With {.ColumnName = "nameemploye"})
        GridControl1.DataSource = dt
        GridView1.PopulateColumns()


        Using Cn As New SqlClient.SqlConnection("Data Source = .;Initial Catalog=SalesDB;Integrated Security=True")

            Using Cmd As New SqlClient.SqlCommand("SELECT * From Tableemploye", Cn)
                Cn.Open()

                Using Drr As SqlClient.SqlDataReader = Cmd.ExecuteReader

                    Dim I As Integer = 0
                    Dim newRowHandle As Integer = GridControl1.NewItemRowHandle

                    While Drr.Read
                        I += 1
                        GridView1.AddNewRow()
                        GridView1.SetRowCellValue(newRowHandle, GridView1.Columns(0), I)
                        GridView1.SetRowCellValue(newRowHandle, GridView1.Columns(1), Drr.Item("Code").ToString)
                        GridView1.SetRowCellValue(newRowHandle, GridView1.Columns(2), Drr.Item("Name").ToString)
                        GridView1.UpdateCurrentRow()
                    End While

                End Using

            End Using

        End Using
    End Sub 

بارك الله فيك استاذ ابو ليلى و جزاك خيرا ان شاء الله
ساحاول مع الطريقة الثانية ان شاء الله
بجد اشكرك جزيل الشكر و زادك من واسع علمه يا رب

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

العيدروس

ابو ليلى

العيدروس