+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : تقنية البرمجة Dev Express (http://vb4arb.com/vb/forumdisplay.php?fid=201)
+--- الموضوع : تحويل كود من جريد فيو الى جريد كنترول (/showthread.php?tid=37198)
تحويل كود من جريد فيو الى جريد كنترول - العيدروس - 15-12-20
السلام عليكم.اخواني برجاء المساعدة لو سمحتو كيف استبدل هذا الكود من الجريد العادي للجريد تبع الداف اكسبرس حاولت و بحثت و لكني لم اعثر على نتيجة و لم افهم كيف ارتب كود بهذا الشكل ليشتغل مع الجريد كنترول .. و خاصة بالجزئية تبع ال 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 SubRE: تحويل كود من جريد فيو الى جريد كنترول - ابو ليلى - 15-12-20
و عليكم السلام و رحمة الله و بركاته
يمكن استخدام اكثر من طريقة للعمل
على فرض 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
RE: تحويل كود من جريد فيو الى جريد كنترول - العيدروس - 15-12-20
بارك الله فيك استاذ ابو ليلى و جزاك خيرا ان شاء الله
ساحاول مع الطريقة الثانية ان شاء الله
بجد اشكرك جزيل الشكر و زادك من واسع علمه يا رب