Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim UpdateFlag As Integer
cn = New OleDbConnection("Provider = Microsoft.Jet.OleDb.4.0;Data source=" & Server.MapPath("DEO.mdb"))
cn.Open()
cmd = New OleDbCommand("Select * from Student", cn)
Dim cmdstr As String
dr = cmd.ExecuteReader
UpdateFlag = 0
While dr.Read()
If dr.Item(0) = Val(TxtSrNo.Text) Then
UpdateFlag = 1
End If
End While
If UpdateFlag = 1 Then
cmdstr = "UPDATE Student set ScBoys9 =" & Val(TxtScBoys9.Text) & ",ScGirls9 = " & Val(TxtScGirls9.Text) & ",StBoys9 = " & Val(TxtStBoys9.Text) & ", StGirls9 = " & Val(TxtStGirls9.Text) & ",ObcBoys9 = " & Val(TxtObcBoys9.Text) & ",ObcGirls9 = " & Val(TxtObcGirls9.Text) & ",GenBoys9 = " & Val(TxtGenBoys9.Text) & ",GenGirls9 = " & Val(TxtGenGirls9.Text) & ", Total9 = " & Val(TxtTotal9.Text) & ", ScBoys10 = " & Val(TxtScBoys10.Text) & ", ScGirls10 = " & Val(TxtScGirls10.Text) & ",StBoys10 = " & Val(TxtStBoys10.Text) & ", StGirls10 = " & Val(TxtStGirls10.Text) & ",ObcBoys10 = " & Val(TxtObcBoys10.Text) & ",ObcGirls10 = " & Val(TxtObcGirls10.Text) & ",GenBoys10 = " & Val(TxtGenBoys10.Text) & ",GenGirls10 = " & Val(TxtGenGirls10.Text) & ", Total10 = " & Val(TxtTotal10.Text) & ", GTotal = " & Val(TxtGTotal.Text) & " where SrNo=" & TxtSrNo.Text & ""
Else
cmdstr = "INSERT INTO Student(SrNo,SchoolName,Village,Taluka,ScBoys9,ScGirls9,StBoys9,StGirls9,ObcBoys9,ObcGirls9,GenBoys9,GenGirls9,Total9,ScBoys10,ScGirls10,StBoys10,StGirls10,ObcBoys10,ObcGirls10,GenBoys10,GenGirls10,Total10,GTotal) Values (" & TxtSrNo.Text & ",'" & TxtSchoolName.Text & "', '" & TxtVillage.Text & "','" & CmbTaluko.Text & "'," & Val(TxtScBoys9.Text) & "," & Val(TxtScGirls9.Text) & "," & Val(TxtStBoys9.Text) & "," & Val(TxtStGirls9.Text) & "," & Val(TxtObcBoys9.Text) & "," & Val(TxtObcGirls9.Text) & "," & Val(TxtGenBoys9.Text) & "," & Val(TxtGenGirls9.Text) & "," & Val(TxtTotal9.Text) & "," & Val(TxtScBoys10.Text) & "," & Val(TxtScGirls10.Text) & "," & Val(TxtStBoys10.Text) & "," & Val(TxtStGirls10.Text) & "," & Val(TxtObcBoys10.Text) & "," & Val(TxtObcGirls10.Text) & "," & Val(TxtGenBoys10.Text) & "," & Val(TxtGenGirls10.Text) & "," & Val(TxtTotal10.Text) & ", " & Val(TxtGTotal.Text) & " )"
End If
cmd.CommandText = cmdstr
dr.Close()
cmd.ExecuteNonQuery()
Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
cn = New OleDbConnection("Provider = Microsoft.Jet.OleDb.4.0;Data source=" & Server.MapPath("DEO.mdb"))
cn.Open()
cmd = New OleDbCommand("Select * from Student ", cn)
Dim DataStr As String
DataStr = " Select * from Student where SrNo= " & (TxtEdit.Text) & ""
cmd.CommandText = DataStr
dr = cmd.ExecuteReader
If dr.HasRows = True Then
dr.Read()
TxtSrNo.Text = dr.Item(0)
TxtSchoolName.Text = dr.Item(1)
TxtVillage.Text = dr.Item(2)
CmbTaluko.Text = dr.Item(3)
TxtScBoys9.Text = dr.Item(4)
TxtScGirls9.Text = dr.Item(5)
TxtStBoys9.Text = dr.Item(6)
TxtStGirls9.Text = dr.Item(7)
TxtObcBoys9.Text = dr.Item(8)
TxtObcGirls9.Text = dr.Item(9)
TxtGenBoys9.Text = dr.Item(10)
TxtGenGirls9.Text = dr.Item(11)
TxtTotal9.Text = dr.Item(12)
TxtScBoys10.Text = dr.Item(13)
TxtScGirls10.Text = dr.Item(14)
TxtStBoys10.Text = dr.Item(15)
TxtStGirls10.Text = dr.Item(16)
TxtObcBoys10.Text = dr.Item(17)
TxtObcGirls10.Text = dr.Item(18)
TxtGenBoys10.Text = dr.Item(19)
TxtGenGirls10.Text = dr.Item(20)
TxtTotal10.Text = dr.Item(21)
TxtGTotal.Text = dr.Item(22)
End If
dr.Close()
cmd.ExecuteNonQuery()