tag:blogger.com,1999:blog-28048509131451004962024-03-19T02:13:15.218-07:00.NET TechnologyThis Blog is about all the student's who interested in .NET or anyone who interested in computer.Akkiihttp://www.blogger.com/profile/10830754279684819194noreply@blogger.comBlogger1125tag:blogger.com,1999:blog-2804850913145100496.post-84749089864504894482011-07-21T00:57:00.000-07:002011-07-21T00:57:25.289-07:00.NET Technology<div dir="ltr" style="text-align: left;" trbidi="on"><br />
Public Class All_In_One<br />
<br />
Dim con As New MyConnecion()<br />
<br />
Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click<br />
<br />
Dim ds As DataSet<br />
ds = con.SelectData("select max(rollno)+1 from marksheet")<br />
<br />
txtNo.Text = ds.Tables(0).Rows(0)(0).ToString()<br />
txtNo.ReadOnly = True<br />
<br />
txtName.Focus()<br />
<br />
btnAdd.Enabled = False<br />
btnSave.Enabled = True<br />
<br />
End Sub<br />
<br />
Private Sub ClearAll()<br />
<br />
txtNo.Clear()<br />
txtName.Clear()<br />
<br />
txtMaths.Clear()<br />
txtScience.Clear()<br />
txtEnglish.Clear()<br />
<br />
txtNo.ReadOnly = False<br />
<br />
btnAdd.Enabled = True<br />
btnSave.Enabled = False<br />
<br />
GroupBox2.Visible = True<br />
grpDelete.Visible = False<br />
grpUpdate.Visible = False<br />
<br />
txtNo.Focus()<br />
End Sub<br />
<br />
Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click<br />
ClearAll()<br />
End Sub<br />
<br />
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click<br />
con.Ins_Upd_Del("insert into marksheet(rollno,studentname,maths,science,english) values(" & txtNo.Text & ",'" & txtName.Text & "'," & txtMaths.Text & "," & txtScience.Text & "," & txtEnglish.Text & ")")<br />
<br />
MessageBox.Show("Record successfully inserted...")<br />
<br />
ClearAll()<br />
<br />
End Sub<br />
<br />
Private Sub btnCancelDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancelDelete.Click<br />
ClearAll()<br />
End Sub<br />
<br />
Private Sub btnConfirmDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConfirmDelete.Click<br />
con.Ins_Upd_Del("delete from marksheet where rollno=" & txtNo.Text & "")<br />
<br />
MessageBox.Show("Record successfully deleted....")<br />
<br />
ClearAll()<br />
End Sub<br />
<br />
Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click<br />
<br />
Dim str As String<br />
str = "select * from marksheet where rollno=" & txtNo.Text & ""<br />
<br />
If con.CheckData(str) = True Then<br />
Dim ds As DataSet<br />
ds = con.SelectData(str)<br />
<br />
txtName.Text = ds.Tables(0).Rows(0)(2).ToString()<br />
txtMaths.Text = ds.Tables(0).Rows(0)(3).ToString()<br />
txtScience.Text = ds.Tables(0).Rows(0)(4).ToString()<br />
txtEnglish.Text = ds.Tables(0).Rows(0)(5).ToString()<br />
<br />
GroupBox2.Visible = False<br />
grpDelete.Visible = True<br />
<br />
Else<br />
MessageBox.Show("Record not found")<br />
End If<br />
<br />
End Sub<br />
<br />
Private Sub btnCancelUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancelUpdate.Click<br />
ClearAll()<br />
End Sub<br />
<br />
Private Sub btnConfirmUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConfirmUpdate.Click<br />
con.Ins_Upd_Del("update marksheet set studentname='" & txtName.Text & "',maths=" & txtMaths.Text & ",science=" & txtScience.Text & ",english=" & txtEnglish.Text & " where rollno=" & txtNo.Text & "")<br />
<br />
MessageBox.Show("Record successfully updated....")<br />
<br />
ClearAll()<br />
End Sub<br />
<br />
Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdate.Click<br />
Dim str As String<br />
<br />
str = "select * from marksheet where rollno=" & txtNo.Text & ""<br />
<br />
<br />
If con.CheckData(str) = True Then<br />
Dim ds As DataSet<br />
<br />
ds = con.SelectData(str)<br />
<br />
txtNo.ReadOnly = True<br />
<br />
txtName.Text = ds.Tables(0).Rows(0)(2).ToString()<br />
txtMaths.Text = ds.Tables(0).Rows(0)(3).ToString()<br />
txtScience.Text = ds.Tables(0).Rows(0)(4).ToString()<br />
txtEnglish.Text = ds.Tables(0).Rows(0)(5).ToString()<br />
<br />
GroupBox2.Visible = False<br />
grpUpdate.Visible = True<br />
<br />
Else<br />
MessageBox.Show("Record not found")<br />
End If<br />
<br />
End Sub<br />
<div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhXvQFNG1nOQ6UYopBTiHUa_gQgMIYyo69vZofQp0IbNbY-NglKJVfrJNwd1PyRWfy9ISSe_0HaeTsK0KZq0GLRqO6gupH4alk7GrO8vaumu4r60cUhAo5VLpM40Z-aKCnjm9PcLAslDnI/s1600/All_In_One.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="165" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhXvQFNG1nOQ6UYopBTiHUa_gQgMIYyo69vZofQp0IbNbY-NglKJVfrJNwd1PyRWfy9ISSe_0HaeTsK0KZq0GLRqO6gupH4alk7GrO8vaumu4r60cUhAo5VLpM40Z-aKCnjm9PcLAslDnI/s320/All_In_One.jpg" width="320" /></a></div>End Class</div>Akkiihttp://www.blogger.com/profile/10830754279684819194noreply@blogger.com0Pragatinagar Garden, Nirnay Nagar, Ahmedabad, Gujarat, India23.0642338 72.55652910000003423.0636063 72.555787600000031 23.0648613 72.557270600000038