System - Data.Sqlclient: Imports Public Class Public Sub Dim As New Dim As String
System - Data.Sqlclient: Imports Public Class Public Sub Dim As New Dim As String
System - Data.Sqlclient: Imports Public Class Public Sub Dim As New Dim As String
SqlClient
Public Class Form1
Public Sub refreshdata()
Dim cnn As New SqlConnection("server=(local);
database = system; user id = sa; password = sa")
Dim sql As String = "SELECT * from grades ORDER BY
studid"
Dim cmd As New SqlCommand(sql, cnn)
Dim adp As New SqlDataAdapter(cmd)
Dim dt As New System.Data.DataTable
adp.Fill(dt)
Me.DataGridView1.DataSource = dt
End Sub
' Searching
'sAVING
Private Sub Button2_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Button2.Click
Dim cnn As New SqlConnection("server=(local);
database = system; user id = sa; password = sa")
Dim hanap As String = "select * from grades where
studid = '" & Me.TextBox1.Text & "' and subdesc ='" &
Me.TextBox3.Text & "'"
Dim cmd1 As New SqlCommand(hanap, cnn)
Dim adp1 As New SqlDataAdapter(cmd1)
Dim dt1 As New System.Data.DataTable
adp1.Fill(dt1)
If dt1.Rows.Count = 0 Then
Dim sql As String = "insert into
grades(studid,name,subdesc,grade) values('" &
Me.TextBox1.Text & "','" & Me.TextBox2.Text & "','" &
Me.TextBox3.Text & "','" & Me.TextBox4.Text & "')"
Dim cmd As New SqlCommand(sql, cnn)
Dim adp As New SqlDataAdapter(cmd)
Dim dt As New System.Data.DataTable
adp.Fill(dt)
Else
MsgBox("record already exists")
Me.TextBox3.Text = ""
Me.TextBox4.Text = ""
End If
Me.refreshdata()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles MyBase.Load
Me.TextBox2.Enabled = False
Dim cnn As New SqlConnection("server=(local);
database = system; user id = sa; password = sa")
Dim sql As String = "SELECT * from grades order by
studid"
Dim cmd As New SqlCommand(sql, cnn)
Dim adp As New SqlDataAdapter(cmd)
Dim dt As New System.Data.DataTable
adp.Fill(dt)
Me.DataGridView1.DataSource = dt
End Sub
Private Sub Button3_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Button3.Click
Dim cnn As New SqlConnection("server=(local);
database = system; user id = sa; password = sa")
Dim sql As String = "delete from grades"
Dim cmd As New SqlCommand(sql, cnn)
Dim adp As New SqlDataAdapter(cmd)
Dim dt As New System.Data.DataTable
adp.Fill(dt)
End Sub
Private Sub Button4_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Button4.Click
Dim cnn As New SqlConnection("server=(local);
database = system; user id = sa; password = sa")
Dim sql As String = "delete from grades where studid
= '" & Me.TextBox1.Text & "'"
Dim cmd As New SqlCommand(sql, cnn)
Dim adp As New SqlDataAdapter(cmd)
Dim dt As New System.Data.DataTable
adp.Fill(dt)
Me.refreshdata()
End Sub
Private Sub TextBox3_LostFocus(ByVal sender As Object,
ByVal e As System.EventArgs) Handles TextBox3.LostFocus
Dim cnn As New SqlConnection("server=(local);
database = system; user id = sa; password = sa")
Dim sql As String = "select * from subjects where
subcode = '" & Me.TextBox3.Text & "'"
Dim cmd As New SqlCommand(sql, cnn)
Dim adp As New SqlDataAdapter(cmd)
Dim dt As New System.Data.DataTable
adp.Fill(dt)
If dt.Rows.Count = 0 Then
MsgBox("Record Not Found")
Else
With dt.Rows(0)
Me.TextBox5.Text = .Item("subdesc")
End With
End If
End Sub
Private Sub TextBox1_LostFocus(ByVal sender As Object,
ByVal e As System.EventArgs) Handles TextBox1.LostFocus
Dim cnn As New SqlConnection("server=(local);
database = system; user id = sa; password = sa")
Dim sql As String = "select * from students where
studid = '" & Me.TextBox1.Text & "'"
Dim cmd As New SqlCommand(sql, cnn)
Dim adp As New SqlDataAdapter(cmd)
Dim dt As New System.Data.DataTable
adp.Fill(dt)
If dt.Rows.Count = 0 Then
MsgBox("Record Not Found")
Else
With dt.Rows(0)
Me.TextBox2.Text = .Item("name")
End With
End If
End Sub
End Class
Binding Source, Binding Navigator, Datagridview
Imports System.Data.SqlClient
Public Class Form2
Public Sub reload()
Dim cnn As New
SqlConnection("server=(local);
database=students; user id = sa; password=sa")
Dim sql As String = "select * from
courses"
Dim cmd As New SqlCommand(sql, cnn)
Dim adp As New SqlDataAdapter(cmd)
Dim dt As New System.Data.DataTable
adp.Fill(dt)
Me.DataGridView1.DataSource = dt
cnn.Close()
End Sub
Private Sub Button1_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Form2_Load(ByVal sender As
System.Object, ByVal e As System.EventArgs)
Handles MyBase.Load
Me.TextBox1.Enabled = False
Me.TextBox2.Enabled = False
Dim bs As New BindingSource
Dim cnn As New
SqlConnection("server=(local);
database=students; user id = sa; password=sa")
Dim sql As String = "select * from
courses"
Dim cmd As New SqlCommand(sql, cnn)
Dim adp As New SqlDataAdapter(cmd)
Dim dt As New System.Data.DataTable
adp.Fill(dt)
Me.DataGridView1.DataSource = dt
BindingSource1.DataSource = dt
BindingNavigator1.BindingSource =
Me.BindingSource1
Me.DataGridView1.DataBindings.Add("Text",
BindingSource1, "")
cnn.Close()
End Sub
Private Sub SaveToolStripButton_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
SaveToolStripButton.Click
Dim cnn As New
SqlConnection("server=(local);
database=students; user id = sa; password=sa")
Dim sql As String = "select * from
courses where coursecode = '" &
Me.TextBox1.Text & "'"
Dim cmd As New SqlCommand(sql, cnn)
Dim adp As New SqlDataAdapter(cmd)
Dim dt As New System.Data.DataTable
adp.Fill(dt)
If dt.Rows.Count = 0 Then
'insert record
Dim sql1 As String = "insert into
courses(coursecode,coursedesc) values('" &
Me.TextBox1.Text & "','" & Me.TextBox2.Text &
"')"
Dim cmd1 As New SqlCommand(sql1,
cnn)
Dim adp1 As New
SqlDataAdapter(cmd1)
Dim dt1 As New
System.Data.DataTable
adp1.Fill(dt1)
MsgBox("Record Saved")
Me.TextBox1.Enabled = False
Me.TextBox2.Enabled = False
Me.reload()
Else
MsgBox("CourseCode already exist")
Me.TextBox1.Text = ""
Me.TextBox2.Text = ""
End If
cnn.Close()
End Sub
Private Sub NewToolStripButton_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
NewToolStripButton.Click
Me.TextBox1.Enabled = True
Me.TextBox2.Enabled = True
Me.TextBox1.Text = ""
Me.TextBox2.Text = ""
End Sub
Private Sub
BindingNavigatorMoveNextItem_Click(ByVal sender
As System.Object, ByVal e As System.EventArgs)
Handles BindingNavigatorMoveNextItem.Click
BindingSource1.MoveNext()
End Sub
End Class