Insert delete

Imports System.Data

Imports System.Data.OleDb

'Imports System.Data.SqlClient

Public Class Form1

Dim cn As OleDbConnection

Dim cmd As OleDbCommand

Dim dr As OleDbDataReader

Dim adap As OleDbDataAdapter

Dim icount

Dim str, str1 As String

Dim ra As Integer

Dim up As Integer

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

End Sub

Private Sub Button1SEL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1SEL.Click

cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\db1.mdb")

cn.Open() 'Provider=Microsoft.jet.oledb.4.0;data dource=d:\db1.mdb

cmd = New OleDbCommand("select * from t1", cn)

dr = cmd.ExecuteReader 'returns the result set by way of a data reader object

While dr.Read

TextBox1.Text = dr(0)

TextBox2.Text = dr(1)

MessageBox.Show("hi")

End While

dr.Close()

cn.Close()

End Sub

Private Sub Button2IN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2IN.Click

cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\db1.mdb")

cn.Open()

str = "insert into t1 values(" & CInt(TextBox1.Text) & ",'" & TextBox2.Text & "')"

cmd = New OleDbCommand(str, cn)

icount = cmd.ExecuteNonQuery 'executes cmds that have no return values such as insert delete & update

MessageBox.Show(icount & "row inserted")

TextBox1.Text = ""

TextBox2.Text = ""

cn.Close()

End Sub

Private Sub Button3DEL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3DEL.Click

cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\db1.mdb")

cn.Open()

'str = "insert into t1 values(" & CInt(TextBox1.Text) & ",'" & TextBox2.Text & "')"

cmd = New OleDbCommand("delete from t1 where eid =" & TextBox1.Text, cn)

ra = cmd.ExecuteNonQuery 'executes cmds that have no return values such as insert delete & update

MessageBox.Show(ra & "record deleted")

TextBox1.Text = ""

cn.Close()

End Sub

Private Sub Button4UP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4UP.Click

cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\db1.mdb")

cn.Open()

cmd = New OleDbCommand("update t1 set ename='" & TextBox2.Text & "'where eid=" & TextBox1.Text, cn)

up = cmd.ExecuteNonQuery

MessageBox.Show("records updated" & up)

TextBox1.Text = ""

TextBox2.Text = ""

cn.Close()

End Sub

End Class