Imports System.Configuration.ConfigurationManager Imports System.Data Imports System.Data.SqlClient Partial Public Class _Default Inherits System.Web.UI.Page Public ds As New DataSet Public paramArragy As New ArrayList Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Try 'If Not Me.Page.IsPostBack Then LoadGrid() 'End If Catch ex As Exception End Try End Sub Private Sub LoadGrid() GridView1.Columns.Clear() Dim col As New BoundField col.DataField = "Emp_no" col.HeaderText = "No." GridView1.Columns.Add(col) col = New BoundField col.DataField = "Emp_Name" col.HeaderText = "Name" GridView1.Columns.Add(col) col = New BoundField col.DataField = "DOB" col.HeaderText = "Date of Birth" GridView1.Columns.Add(col) col = New BoundField col.DataField = "Salary" col.HeaderText = "Salary" GridView1.Columns.Add(col) col = New BoundField col.DataField = "D_No" col.HeaderText = "Department No." GridView1.Columns.Add(col) Dim colf As CommandField = New CommandField colf.EditText = "Edit" colf.UpdateText = "Update" colf.CancelText = "Cancel" colf.ShowCancelButton = True colf.ShowEditButton = True colf.ShowSelectButton = True GridView1.Columns.Add(colf) Dim con As New SqlConnection(ConnectionStrings("Test").ToString) If con.State = ConnectionState.Closed Then con.Open() Dim com As New SqlCommand("select * from tb_emp", con) Dim da As New SqlDataAdapter(com) da.Fill(ds, "emp") ds.Tables("emp").PrimaryKey = New DataColumn() {ds.Tables("emp").Columns("emp_no")} GridView1.DataMember = "emp" GridView1.DataSource = ds GridView1.DataBind() End Sub End Class
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)