DAO in Visual 2010 Express Edition

Reference to be added before :

----DAO 3.51 library

---- Access object library

This is for Advance MSoffice (Access) environment

---- Browse -> C - > programfiles - > MS office -> ACEDAO.dll




Below are the coding for DAO database process
-------------------------------------------------------------------------------------------------------------


Imports DAO
Imports System.Data
Public Class Form1
    Dim dp As String = "D:\StudentDB.accdb"
    Dim ae As New Microsoft.Office.Interop.Access.Dao.DBEngine
    Dim db As Microsoft.Office.Interop.Access.Dao.Database = ae.Workspaces(0).OpenDatabase(dp)
    Dim dbrecordset As Microsoft.Office.Interop.Access.Dao.Recordset = db.OpenRecordset("StuTable")

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        dbrecordset.MoveFirst()
        TextBox1.Text = dbrecordset.Fields("ID").Value
        TextBox2.Text = dbrecordset.Fields("Sname").Value
    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        dbrecordset.MoveFirst()
        TextBox1.Text = dbrecordset.Fields("ID").Value
        TextBox2.Text = dbrecordset.Fields("Sname").Value

    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Try
            If dbrecordset.EOF Then
                MsgBox("No records")
            Else

                dbrecordset.MoveNext()
                TextBox1.Text = dbrecordset.Fields("ID").Value
                TextBox2.Text = dbrecordset.Fields("Sname").Value

            End If
        Catch ex As Exception
            MsgBox("No records")
        End Try
      

    End Sub

    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        dbrecordset.MoveLast()
        TextBox1.Text = dbrecordset.Fields("ID").Value
        TextBox2.Text = dbrecordset.Fields("Sname").Value
    End Sub


    Private Sub Button4_Click(sender As Object, e As System.EventArgs) Handles Button4.Click
        Try
            If dbrecordset.BOF Then
                MsgBox("No records")
            Else

                dbrecordset.MovePrevious()
                TextBox1.Text = dbrecordset.Fields("ID").Value
                TextBox2.Text = dbrecordset.Fields("Sname").Value

            End If
        Catch ex As Exception
            MsgBox("No records")
        End Try
       
    End Sub

    Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
        dbrecordset.AddNew()
        dbrecordset.Fields("ID").Value = Val(TextBox1.Text)
        dbrecordset.Fields("Sname").Value = TextBox2.Text
        dbrecordset.Update()
        dbrecordset.MoveLast()

    End Sub

    Private Sub Button6_Click(sender As System.Object, e As System.EventArgs) Handles Button6.Click
        dbrecordset.Edit()
        Do Until dbrecordset.EOF
            ' s = dbrecordset.Fields("ID").Value
            If dbrecordset.Fields("ID").Value = Val(TextBox1.Text) Then

                dbrecordset.Fields("Sname").Value = TextBox2.Text
                dbrecordset.Update()
            End If
            dbrecordset.MoveNext()
        Loop
    End Sub


    Private Sub Button7_Click(sender As System.Object, e As System.EventArgs) Handles Button7.Click
        TextBox1.Text = ""
        TextBox2.Text = ""


    End Sub

    Private Sub Button8_Click(sender As System.Object, e As System.EventArgs) Handles Button8.Click
        dbrecordset.Delete()

        TextBox1.Text = ""
        TextBox2.Text = ""
    End Sub
End Class
---------------------------------------------------------------------------------------------------------