VB .NET

VB .NET

Slip24

Q.1) Write a VB.NET program to create teacher table (Tid , TName, subject). Insert the records (Max : 5). Search record of a teacher who teaches “VB.NET” subject and display result in GridView. (Use SQL to create db) [Marks 20] 

Solution

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