System - Data.Sqlclient: Imports Public Class Public Sub Dim As New Dim As String

Download as docx, pdf, or txt
Download as docx, pdf, or txt
You are on page 1of 10

Imports System.Data.

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

You might also like