+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] داتا كريت فيو (/showthread.php?tid=35426)
داتا كريت فيو - EMADSSS - 01-07-20
احبابي في الله عندي فورم وعليه داتا كريت فيو 1
وعندي داتا كريت فيو 2
كيف بقدر اجعل الداتا كريت فيو 1 هي نفسها ونفس البيانات للداتا كريت فيو 2 دون اعادة جميع الاكواد
اي اثنتان داتا كريت فيو تعرض نفس البيانات
وشكرا سلفا
RE: داتا كريت فيو - عبد العزيز البسكري - 01-07-20
كود :
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Call Sondoss_Connection()
Dim InfoCommand As OleDbCommand = New OleDbCommand("SELECT * From TBL_STUDENT Order By STUDENT_Id", Conne_2020)
Dim InfoAdapter As OleDbDataAdapter = New OleDbDataAdapter()
InfoAdapter.SelectCommand = InfoCommand
Dim InfoTable As DataTable = New DataTable()
InfoAdapter.Fill(InfoTable)
DataGridView1.DataSource = InfoTable
DataGridView2.DataSource = InfoTable
DataGridView3.DataSource = InfoTable
DataGridView4.DataSource = InfoTable
End SubRE: داتا كريت فيو - ahmedfa71 - 01-07-20
بارك الله فيك أخي عبد العزيز
RE: داتا كريت فيو - EMADSSS - 02-07-20
(01-07-20, 03:04 AM)عبد العزيز البسكري كتب :شكرا اخي الكريم جازاك الله خيراكود :
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Call Sondoss_Connection()
Dim InfoCommand As OleDbCommand = New OleDbCommand("SELECT * From TBL_STUDENT Order By STUDENT_Id", Conne_2020)
Dim InfoAdapter As OleDbDataAdapter = New OleDbDataAdapter()
InfoAdapter.SelectCommand = InfoCommand
Dim InfoTable As DataTable = New DataTable()
InfoAdapter.Fill(InfoTable)
DataGridView1.DataSource = InfoTable
DataGridView2.DataSource = InfoTable
DataGridView3.DataSource = InfoTable
DataGridView4.DataSource = InfoTable
End Sub