ADO.net أسئلتي وإستفساراتي بخصوص

السلام عليكم ..

1. البعض يستخدم الــ CurrencyManager.
2. أو يمكن استخدام BindingSource يقوم بهذه العملية :

   Imports System.Data.OleDb
   
   Public Class FrmGroups
   	Dim DB As OleDbConnection
   	Dim DS As New DataSet
   	Dim DA As OleDbDataAdapter
   	Dim DT As New DataTable
   	Dim bs As New BindingSource
   	Private Sub FrmGroups_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       	DB = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DB\Store.accdb")
       	DA = New OleDbDataAdapter("Select * from Groups", DB)
       	DA.Fill(DT)
   
       	DGV.DataSource = bs
       	bs.DataSource = DT
   
   
       	DGV.Columns(0).Width = 50
       	DGV.Columns(1).Width = 200
       	DGV.Columns(2).Width = 50
       	DGV.Columns(3).Width = 300
   	End Sub
   
   
   	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
       	DT.Clear()
   	End Sub
   
   	Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       	bs.MoveLast()
   	End Sub
   
   	Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
       	bs.MoveFirst()
   	End Sub
   
   	Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
       	bs.MovePrevious()
   	End Sub
   
   	Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
       	bs.MoveNext()
   	End Sub
   End Class

3. الفيجوال استديو فيه wizard يقوم بتوليد الــ DataSet و الــ BindingSource و الـــ TableAdapter ( مع توليد أكواد Insert و Update و Delete ) رابط.

أخي جزاك الله خيرا

لكني أريد الإبتعاد عن الأدوات . أريد أن يكون الموضوع كود فقط

كيف أخي بإستعمال طريقتك هذه أعرض محتويات السجل الذي يقف عليه المؤشر .. وجزاك الله خيرا

وهل يمكن أن تعطيني رابط يبين لي كيفية إستخدام الكود بدلا من الأداة؟

اقتباس

كيف أخي بإستعمال طريقتك هذه أعرض محتويات السجل الذي يقف عليه المؤشر .. وجزاك الله خيرا

نعم bindingsource هي ما اقصد

كيف أقوم بعرض حقول الصف الذي يقف عليه سواء في تيكست بوكس أوي رسالة أو اي شئ

السلام عليكم ...

1. يمكنك عمل Binding للــ TextBox مع الــ BindingSource ...
2. للــ BiningSource مجموعة من الــ Events المهمة مثل PositionChanged و CurrentChanged
3. 	Private Sub FrmGroups_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
   
       	DB = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DB\Store.accdb")
       	DA = New OleDbDataAdapter("Select * from Groups", DB)
       	DA.Fill(DT)
   
       	DGV.DataSource = bs
       	bs.DataSource = DT
       	AddHandler bs.PositionChanged, AddressOf PositionChanged_Sub
       	TextBox1.DataBindings.Add("Text", bs, "Name")
   
   
   	End Sub
   
   	Public Sub PositionChanged_Sub(ByVal sender As Object, ByVal e As System.EventArgs)
       	Dim drv As DataRowView = bs.Current
       	Dim dr = drv.Row
       	MsgBox(dr("ID") & "  " & dr("Name"))
   	End Sub