Ready Project |BCA Project | MCA Project | BBA Project | MBA Project |INDIA'S BIGGEST COLLEGE PROJECT STORE



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

24)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)

Search

Project Categories

Recent Posts

Sign In