طلب من الأخ " سعود " - نسخة قابلة للطباعة

كود :
Public Class Form1

   Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=|datadirectory|\db.accdb"

   Dim con As New OleDb.OleDbConnection(str)

   Dim sql As String = "select * from tb"

   Dim dt As DataTable

   Dim bs As BindingSource

   Dim da As OleDb.OleDbDataAdapter

   Dim cm As OleDb.OleDbCommandBuilder



   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

       dt = New DataTable

       bs = New BindingSource

       da = New OleDb.OleDbDataAdapter(sql, con)

       cm = New OleDb.OleDbCommandBuilder(da)

       da.Fill(dt)

       bs.DataSource = dt



       tid.DataBindings.Add("text", bs, "tid")

       tn.DataBindings.Add("text", bs, "tn")

       age.DataBindings.Add("text", bs, "age")

       mo.DataBindings.Add("text", bs, "mo")



       d.DataSource = bs





   End Sub



   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

       bs.MoveNext()

   End Sub



   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

       bs.MovePrevious()

   End Sub



   Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

       bs.MoveFirst()

   End Sub



   Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

       bs.MoveLast()

   End Sub



   Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click

       If MsgBox("هل انت متاكد من رغبتك باضافة صف جديد؟", MsgBoxStyle.YesNo) = MsgBoxResult.No Then Exit Sub

       bs.AddNew()

   End Sub



   



   Private Sub btnupd_Click(sender As Object, e As EventArgs) Handles btnupd.Click

       If MsgBox("هل انت متاكد من رغبتك بحفظ ", MsgBoxStyle.YesNo) = MsgBoxResult.No Then Exit Sub

       bs.EndEdit()

       da.Update(bs.DataSource)

   End Sub



   Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click

       If MsgBox("هل انت متاكد من رغبتك بحفظ الصف الحالي كمعدل؟", MsgBoxStyle.YesNo) = MsgBoxResult.No Then Exit Sub

       Dim drv As DataRowView = bs.Current

       drv(1) = tn.Text

       drv(2) = age.Text

       drv(3) = mo.Text

     

   End Sub

End Class