.NET (Core and Framework)

thivya n wrote:

the important thing is it is not a client-server coding

Dim con As New OleDb.OleDbConnection
Dim inc As Integer
Dim MaxRows As Integer
Dim ds As New DataSet
Dim da As OleDb.OleDbDataAdapter
Dim sql As String
Dim dt As DataTable



Private Sub Sampler_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    ds = New DataSet("dataSet")
    dt = New DataTable()
    ds.Tables.Add(dt)
    con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" + _
    "Data Source = c:\Sadsign.mdb"

    'This is where we load the table
    con.Open()
    sql = "SELECT * FROM MyTable"
    da = New OleDb.OleDbDataAdapter(sql, con)
    da.Fill(dt)
    con.Close()

    'This is where we add a new row in the table

    Dim row As DataRow = dt.NewRow()
    row.Item("FirstName") = "MyFirstName"
    row.Item("LastName") = "MyLastName"
    dt.Rows.Add(row)


    'This is where we update the table in database.
    con.Open()
    sql = "SELECT * FROM MyTable"
    da = New OleDb.OleDbDataAdapter(sql, con)
    Dim cb As New OleDb.OleDbCommandBuilder(da)
    da.Update(dt)
    con.Close()

    'We Are Done

End Sub