document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. Imports System.Data
  2. Imports System.Data.Sql
  3. Imports System.Configuration
  4. Imports System.Data.SqlClient
  5.  
  6. Imports System.Web
  7. Imports System.Web.UI
  8. Imports System.Web.Security
  9. Imports System.Web.UI.WebControls
  10. Imports System.Web.UI.HtmlControls
  11. Imports System.Web.UI.WebControls.WebParts
  12.  
  13. Partial Class _Default
  14.     Inherits System.Web.UI.Page
  15.  
  16.     Public cn As New SqlConnection
  17.     Public cmd As New SqlCommand
  18.     Public da As SqlDataAdapter
  19.     Public dr As SqlDataReader
  20.     Public ds As DataSet = New DataSet
  21.     Public sql As String = Nothing
  22.     \'Public ConString As String = ("Data Source=ANONYMOUS-PC;Initial Catalog=dbSQL;Integrated Security=True") \'this is connected to the server
  23.     Public ConString As String = ("Data Source=.\\SQLEXPRESS;AttachDbFilename=|DataDirectory|\\dbSQL.mdf;Integrated Security=True;User Instance=True")
  24.  
  25.     Public Sub MyCn()
  26.         If cn.State = Data.ConnectionState.Open Then cn.Close()
  27.         cn.ConnectionString = ConString
  28.         cn.Open()
  29.     End Sub
  30.  
  31.     Protected Sub form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles form1.Load
  32.         MyCn()
  33.         GridView1.DataBind()
  34.     End Sub
  35.  
  36.     Protected Sub btnSave_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSave.Click
  37.        
  38.         If txtFname.Text = "" Or txtMname.Text = "" Or txtLname.Text = "" Or txtAge.Text = "" Or txtBdate.Text = "" Or txtBplace.Text = "" Or txtGender.Text = "" Or txtContact.Text = "" Or txtAddress.Text = "" Then
  39.             Label11.Text = "Insuficient Data!!"
  40.         Else
  41.             AddInfo()
  42.             ClearTextBox(Me)
  43.         End If
  44.  
  45.     End Sub
  46.  
  47.     Public Sub ClearTextBox(ByVal root As Control)
  48.         For Each ctrl As Control In root.Controls
  49.             ClearTextBox(ctrl)
  50.             If TypeOf ctrl Is TextBox Then
  51.                 CType(ctrl, TextBox).Text = String.Empty
  52.                 lblID.Text = ""
  53.                 GridView1.DataBind()
  54.             End If
  55.         Next ctrl
  56.     End Sub
  57.     Protected Sub btnClear_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnClear.Click
  58.         ClearTextBox(Me)
  59.         Label11.Text = ""
  60.     End Sub
  61.     Private Function AddInfo()
  62.         Try
  63.             Dim xSQL As New System.Text.StringBuilder
  64.             xSQL.AppendLine("INSERT INTO tblInfo")
  65.             xSQL.AppendLine("(Fname,Mname,Lname,Age,BDay,BPlace,Gender,ContactNum,Address)")
  66.             xSQL.AppendLine("VALUES")
  67.             xSQL.AppendLine("(@fnam,@mnam,@lnam,@ag,@bda,@bpla,@gen,@cont,@add)")
  68.             Using cn As New SqlConnection(ConString)
  69.                 cn.Open()
  70.                 Dim cmd As New SqlCommand(xSQL.ToString, cn)
  71.                 cmd.Parameters.AddWithValue("@fnam", txtFname.Text)
  72.                 cmd.Parameters.AddWithValue("@mnam", txtMname.Text)
  73.                 cmd.Parameters.AddWithValue("@lnam", txtLname.Text)
  74.                 cmd.Parameters.AddWithValue("@ag", txtAge.Text)
  75.                 cmd.Parameters.AddWithValue("@bda", txtBdate.Text)
  76.                 cmd.Parameters.AddWithValue("@bpla", txtBplace.Text)
  77.                 cmd.Parameters.AddWithValue("@gen", txtGender.Text)
  78.                 cmd.Parameters.AddWithValue("@cont", txtContact.Text)
  79.                 cmd.Parameters.AddWithValue("@add", txtAddress.Text)
  80.                 cmd.ExecuteNonQuery()
  81.                 GridView1.DataBind()
  82.                 Label11.Text = "Added Info Success!"
  83.             End Using
  84.             Return True
  85.         Catch ex As Exception
  86.             Label11.Text = "ERROR" & ex.Message.ToString
  87.             Return False
  88.         End Try
  89.     End Function
  90.  
  91.     Protected Sub GridView1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles GridView1.SelectedIndexChanged
  92.  
  93.         lblID.Text = GridView1.SelectedRow.Cells(1).Text
  94.         txtFname.Text = GridView1.SelectedRow.Cells(2).Text
  95.         txtMname.Text = GridView1.SelectedRow.Cells(3).Text
  96.         txtLname.Text = GridView1.SelectedRow.Cells(4).Text
  97.         txtAge.Text = GridView1.SelectedRow.Cells(5).Text
  98.         txtBdate.Text = GridView1.SelectedRow.Cells(6).Text
  99.         txtBplace.Text = GridView1.SelectedRow.Cells(7).Text
  100.         txtGender.Text = GridView1.SelectedRow.Cells(8).Text
  101.         txtContact.Text = GridView1.SelectedRow.Cells(9).Text
  102.         txtAddress.Text = GridView1.SelectedRow.Cells(10).Text
  103.  
  104.     End Sub
  105.  
  106.     Protected Sub btnEdit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnEdit.Click
  107.         EditData()
  108.         ClearTextBox(Me)
  109.     End Sub
  110.  
  111.     Private Function EditData()
  112.         Try
  113.             Dim xSQL As New System.Text.StringBuilder
  114.             xSQL.AppendLine("UPDATE tblInfo SET")
  115.             xSQL.AppendLine("Fname=@fnam, Mname=@mnam, Lname=@lnam, Age=@ag, BDay=@bda, BPlace=@bpla, Gender=@gen, ContactNum=@cont, Address=@add")
  116.             xSQL.AppendLine("WHERE ID = " & lblID.Text.Trim)
  117.             Using cn As New SqlConnection(ConString)
  118.                 cn.Open()
  119.                 Dim cmd As New SqlCommand(xSQL.ToString, cn)
  120.                 cmd.Parameters.AddWithValue("@fnam", txtFname.Text)
  121.                 cmd.Parameters.AddWithValue("@mnam", txtMname.Text)
  122.                 cmd.Parameters.AddWithValue("@lnam", txtLname.Text)
  123.                 cmd.Parameters.AddWithValue("@ag", txtAge.Text)
  124.                 cmd.Parameters.AddWithValue("@bda", txtBdate.Text)
  125.                 cmd.Parameters.AddWithValue("@bpla", txtBplace.Text)
  126.                 cmd.Parameters.AddWithValue("@gen", txtGender.Text)
  127.                 cmd.Parameters.AddWithValue("@cont", txtContact.Text)
  128.                 cmd.Parameters.AddWithValue("@add", txtAddress.Text)
  129.                 cmd.ExecuteNonQuery()
  130.                 GridView1.DataBind()
  131.                 Label11.Text = "Edited Info Success!"
  132.             End Using
  133.             Return True
  134.         Catch ex As Exception
  135.             Label11.Text = ex.Message.ToString
  136.             Return False
  137.         End Try
  138.     End Function
  139.  
  140.     Protected Sub btnDelete_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnDelete.Click
  141.         If lblID.Text = Nothing Then
  142.             Label11.Text = "ID not Selected!"
  143.         Else
  144.             DeleteItem()
  145.             ClearTextBox(Me)
  146.         End If
  147.     End Sub
  148.  
  149.     Private Function DeleteItem()
  150.         Try
  151.             Dim xSQL As New System.Text.StringBuilder
  152.             xSQL.AppendLine("DELETE FROM tblInfo")
  153.             xSQL.AppendLine("WHERE ID = " & lblID.Text.Trim)
  154.             Using cn As New SqlConnection(ConString)
  155.                 cn.Open()
  156.                 Dim cmd As New SqlCommand(xSQL.ToString, cn)
  157.                 cmd.ExecuteNonQuery()
  158.                 cmd.Dispose()
  159.                 GridView1.DataBind()
  160.                 Label11.Text = "Data Deleted Successfully!"
  161.             End Using
  162.             Return True
  163.         Catch ex As Exception
  164.             Label11.Text = ex.Message.ToString
  165.             Return False
  166.         End Try
  167.     End Function
  168. End Class
');