add,update record in VB.Net without using oledbcommand

• • Reply

  13 years ago

  by Fraser

  Fraser Elliot

  , United Kingdom

  Joined 13 years ago
  Imports System.Data.OleDbPublic Class Form1    Dim da As OleDbDataAdapter    Dim ds As New DataSet    Dim con As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source =c:\db1.mdb;")     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load        'Dim con As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source =c:\db1.mdb;")        da = New OleDbDataAdapter("Select * from student", con)        'Dim ds As New DataSet        con.Open()        da.Fill(ds, "student")        txtname.DataBindings.Add("text", ds, "student.name")        txtroll.DataBindings.Add("text", ds, "student.roll")        txtcourse.DataBindings.Add("text", ds, "student.course")    End Sub     Private Sub btnprev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnprev.Click        BindingContext(ds, "student").Position = BindingContext(ds, "student").Position - 1    End Sub     Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click        BindingContext(ds, "student").AddNew()        MessageBox.Show("Successfully Inserted")    End Sub     Private Sub btndelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndelete.Click        BindingContext(ds, "student").RemoveAt(BindingContext(ds, "student").Position)    End Sub     Private Sub btnnext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnnext.Click        BindingContext(ds, "student").Position = BindingContext(ds, "student").Position + 1    End Sub     Private Sub btnupdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnupdate.Click        Me.BindingContext(ds, "student").EndCurrentEdit()        da.Update(ds)    End Sub     Private Sub btnfirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnfirst.Click        BindingContext(ds, "student").Position = 0    End Sub     Private Sub btnlast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlast.Click        BindingContext(ds, "student").Position = BindingContext(ds, "student").Count - 1    End Sub     Private Sub btnclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnclear.Click        txtname.Clear()        txtroll.Clear()        txtcourse.Clear()    End SubEnd Class the code for btnadd, btndelete,btnupdate will not affect the record in the table. iam using VB.Net 2005 and Ms. Access Database name db1.mdb which is in c drive. Please give me the solution or codes of this problem without using oledbcommand. plz reply the solution as earliest as possible.

   

  Report abuse