• Home
 · 
• Miscellaneous
 · 
• Data Access using ADO.NET

Data Access using ADO.NET

Data Access using ADO.NET

API Declarations


Imports Microsoft.VisualBasic

Public Class Form1
Inherits System.Windows.Forms.Form
Dim ConnStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\add_book.mdb;"
Dim conn As New OleDbConnection(ConnStr)
Dim cmd As New OleDbCommand("select * from contact", conn)
Dim da As New OleDbDataAdapter(cmd)
Dim dSet As New DataSet()
Dim i As Int16
Dim curMode As String
Dim sql As String



Rate Data Access using ADO.NET

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

        i = 0
        dSet = New DataSet("contact")
        Try
            da.Fill(dSet, "contact")
            'MsgBox(dSet.Tables("contact").Rows.Count)
            txtname.Text = dSet.Tables("contact").Rows(i).Item(0)
            txtcity.Text = dSet.Tables("contact").Rows(i).Item(1)
            txtemail.Text = dSet.Tables("contact").Rows(i).Item(2)

        Catch ex As OleDbException
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        curMode = "Add"
        txtname.Text = ""
        txtcity.Text = ""
        txtemail.Text = ""
        Button1.Enabled = False
        Button2.Enabled = True
        Button3.Enabled = False
        Button4.Enabled = False
        txtname.Focus()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim msg As String
        If curMode = "Add" Then
            sql = "INSERT INTO contact(name,city,email) VALUES('" & UCase(txtname.Text) & " ','" & UCase(txtcity.Text) & " ','" & txtemail.Text & " ')"
            msg = "Record added successfully"
        ElseIf curMode = "Delete" Then
            sql = "DELETE FROM contact  WHERE name='" & txtname.Text & " ' "
            msg = "Record deleted"
            i = i + 1
        ElseIf curMode = "Edit" Then
            sql = "UPDATE contact SET name='" & txtname.Text & " ',city='" & txtcity.Text & " ',email='" & txtemail.Text & " ' WHERE name='" & txtname.Text & " ' OR city='" & txtcity.Text & " ' OR email='" & txtemail.Text & " ' "
            msg = "Record updated"
        End If
        cmd = New OleDbCommand(sql, conn)

        da = New OleDbDataAdapter(cmd)
        Try
            da.Fill(dSet, "contact")
            MsgBox(msg, MsgBoxStyle.Information)
            DataGrid1.Refresh()

            Button1.Enabled = True
            Button3.Enabled = True
            Button4.Enabled = True
            Button2.Enabled = False
            'dSet.Tables("contact").DataSet.Reset()

        Catch ex As OleDbException
            MsgBox(ex.Message, MsgBoxStyle.Information)

        End Try


    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        i = 0
        txtname.Text = dSet.Tables("contact").Rows(i).Item(0)
        txtcity.Text = dSet.Tables("contact").Rows(i).Item(1)
        txtemail.Text = dSet.Tables("contact").Rows(i).Item(2)
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        i = dSet.Tables("contact").Rows.Count - 1
        txtname.Text = dSet.Tables("contact").Rows(i).Item(0)
        txtcity.Text = dSet.Tables("contact").Rows(i).Item(1)
        txtemail.Text = dSet.Tables("contact").Rows(i).Item(2)
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        i = i + 1
        If i > dSet.Tables("contact").Rows.Count - 1 Then
            MsgBox("This is Last Record", MsgBoxStyle.Information)
            i = dSet.Tables("contact").Rows.Count - 1
        Else

            txtname.Text = dSet.Tables("contact").Rows(i).Item(0)
            txtcity.Text = dSet.Tables("contact").Rows(i).Item(1)
            txtemail.Text = dSet.Tables("contact").Rows(i).Item(2)
        End If
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        i = i - 1
        If i < 0 Then
            MsgBox("This is First Record", MsgBoxStyle.Information)
            i = 0
        Else

            txtname.Text = dSet.Tables("contact").Rows(i).Item(0)
            txtcity.Text = dSet.Tables("contact").Rows(i).Item(1)
            txtemail.Text = dSet.Tables("contact").Rows(i).Item(2)
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        curMode = "Delete"
        Button1.Enabled = False
        Button2.Enabled = True
        Button3.Enabled = False
        Button4.Enabled = False
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        curMode = "Edit"
        Button1.Enabled = False
        Button2.Enabled = True
        Button3.Enabled = False
        Button4.Enabled = False
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click

        DataGrid1.DataSource = dSet.Tables("contact")







    End Sub