Imports System.Data.SqlClient
Public Class frmTeacher
Dim cn As New SqlConnection
Dim cmd As New SqlCommand
Dim dt As New DataTable
Dim dataadapater As New SqlDataAdapter
Dim str As String
Dim n As Integer
Private Sub cmdAddNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAddNew.Click
txtTid.Clear()
txtSub.Clear()
txtTname.Clear()
txtTid.Focus()
End Sub
Private Sub cmdSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSave.Click
cn = New SqlConnection("Data Source=Bhushan\SQLEXPRESS;Initial Catalog=teacher;Integrated Security=True;Pooling=False")
cn.Open()
str = "insert into teacher values(" & CInt(txtTid.Text) & ",'" & txtTname.Text & "','" & txtSub.Text & "')"
cmd = New SqlCommand(str, cn)
n = cmd.ExecuteNonQuery
If (n > 0) Then
MsgBox("Record Inserted Successfully")
End If
cn.Close()
End Sub
Private Sub cmdSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSearch.Click
cn = New SqlConnection("Data Source=Bhushan\SQLEXPRESS;Initial Catalog=teacher;Integrated Security=True;Pooling=False")
cn.Open()
str = "select * from teacher where Subject='VB.NET'"
cmd = New SqlCommand(str, cn)
dataadapater = New SqlDataAdapter(cmd)
dataadapater.Fill(dt)
DataGridView1.DataSource = dt
cn.Close()
End Sub
Private Sub cmdShow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdShow.Click
DataGridView1.DataSource = Nothing
cn = New SqlConnection("Data Source=Bhushan\SQLEXPRESS;Initial Catalog=teacher;Integrated Security=True;Pooling=False")
cn.Open()
str = "select * from teacher"
cmd = New SqlCommand(str, cn)
dataadapater = New SqlDataAdapter(cmd)
dataadapater.Fill(dt)
DataGridView1.DataSource = dt
cn.Close()
End Sub
End Class