gridview datakey value in asp.net

LinkButton lbtn = sender
GridViewRow gvrow = (GridViewRow)lbtn.NamingContainer;
as LinkButton;string ss = GridView1.DataKeys[gvrow.RowIndex].Value.ToString();

clear sesson after logout

//if sesson not null

Response.ClearHeaders();
Response.AddHeader(
Response.AddHeader("Cache-Control", "no-cache, no-store, max-age=0, must-revalidate");"Pragma", "no-cache");

//logeout

sesson.clear();
sesson.abendon();

cookies in asp.net c#

int flag = 0;
       
           SqlCommand com = new SqlCommand("select * from login", con);    
      
            SqlDataReader dtr;
            dtr = com.ExecuteReader();
            while (dtr.Read())
            {
                              
                if(dtr[0].ToString().Equals(TextBox1.Text) && dtr[1].ToString().Equals(TextBox2.Text))
                {
                    flag = 1;
                    break;
                }
            }
            if (flag == 1)
            {
                HttpCookie uname = new HttpCookie("username");
              
                HttpCookie rights = new HttpCookie("rights");               
                uname.Value = TextBox1.Text;
           
                rights.Value = dtr[2].ToString();
                Response.Cookies.Add(uname);
        
                Response.Cookies.Add(rights);
                Response.Redirect("default.aspx");                    
            }

gridview edit in asp.net c#

<asp:TemplateField HeaderText="DETAIL/UPDATE" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left"><ItemTemplate><asp:LinkButton ID="LinkButton2" runat="server" ForeColor="Black" OnClick="LinkButton2_Click">SHOW</asp:LinkButton></ItemTemplate>


protected void LinkButton2_Click(object sender, EventArgs e)
    {
                    LinkButton lbtn = sender as LinkButton;
            GridViewRow gvrow = (GridViewRow)lbtn.NamingContainer;
            string ss = GridView1.DataKeys[gvrow.RowIndex].Value.ToString();
}</asp:TemplateField>

gridview edit in vb

<asp:TemplateField HeaderText="/UPDATE" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left"><ItemTemplate><asp:LinkButton ID="LinkButton2" runat="server" ForeColor="Black" OnClick="LinkButton2_Click">SHOW</asp:LinkButton></ItemTemplate>


 Protected  Sub LinkButton2_Click(ByVal sender As Object, ByVal e As EventArgs)
                    Dim lbtn As LinkButton =  sender as LinkButton

            Dim gvrow As GridViewRow = CType(lbtn.NamingContainer, GridViewRow)

            Dim ss As String =  GridView1.DataKeys(gvrow.RowIndex).Value.ToString()

End Sub<asp:LinkButton ID="LinkButton2" runat="server" ForeColor="Black" <ItemTemplate>
</asp:TemplateField>asp:TemplateField HeaderText="UPDATE" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left">

Start .vb page in vb.net

Imports System

Imports System.Collections

Imports System.Configuration

Imports System.Data

Imports System.Linq

Imports System.Xml.Linq

Imports
 Partial
Inherits System.Web.UI.Page
 Dim c1 As clsConnection = New clsConnection()Dim ds As DataSet = New DataSet()Dim tr As SqlTransactionDim con As SqlConnection = New SqlConnection("Data Source=EV001F294E678D\SQLEXPRESS;Initial Catalog=oee;Integrated Security=True")


Public Class Default4 System.Data.SqlClient

CLASS for fillRadioButtonList in vb.net

CLASS   for  fillRadioButtonList
 Dim con As SqlConnection = New SqlConnection()
    Dim com As SqlCommand = New SqlCommand()
    Dim da As SqlDataAdapter = New SqlDataAdapter()
    Dim constr As String = "Data Source=SERVER NAME \SQLEXPRESS;Initial Catalog=DBNAME;Integrated Security=True"
               
  Public Sub fillRadioButtonList(ByVal query As String, ByVal objDDL As RadioButtonList, ByVal colfield As String, ByVal valField As String)

        If con.State = ConnectionState.Closed Then
            con.ConnectionString = constr
            con.Open()
        End If
        Dim ds As DataSet = New DataSet()
        objDDL.Items.Clear()
        da = New SqlDataAdapter(query, con)
        da.Fill(ds)

        objDDL.DataSource = ds.Tables(0)
        objDDL.DataTextField = colfield
        objDDL.DataValueField = valField
        objDDL.DataBind()
    End Sub

CLASS for ExecuteNonQuery in vb.net

CLASS   for  ExecuteNonQuery
 Dim con As SqlConnection = New SqlConnection()
    Dim com As SqlCommand = New SqlCommand()
    Dim da As SqlDataAdapter = New SqlDataAdapter()
    Dim constr As String = "Data Source=SERVER NAME \SQLEXPRESS;Initial Catalog=DBNAME;Integrated Security=True"
               
 Public Sub ExecuteQuery(ByVal str As String)
        If con.State = ConnectionState.Closed Then
            con.ConnectionString = constr
            con.Open()
        End If
        com.CommandText = str
        com.Connection = con
        da.SelectCommand = com
        com.ExecuteNonQuery()
        con.Close()
    End Sub

updat In VB.NET

      Dim s As String = "UPDATE  [avail_main]  set [ideal_time_pass]='" & idealtime & "'"

          Dim com4 As SqlCommand = New SqlCommand(s, con)
       
        com4.ExecuteNonQuery()

if statement and calculation In VB.NET

            Dim l1 As Label = row.FindControl("lblfactor")        
  
            If  l1.Text = "STD. CYCLE TIME" Then

                totstandcycletiem = (totstandcycletiem + (Convert.ToDecimal(t1)))

            End If

            If  l1.Text = "SYSTEM DOWN TIME" Then

                totsystemdowntime1 = (totsystemdowntime1 + (Convert.ToDecimal(t1)))

            End If

            If  l1.Text = "PERFORMANCE DOWN TIME" Then

                totperformancedt1 = (totperformancedt1 + (Convert.ToDecimal(t1)))

            End If

ExecuteNonQuery In VB.NET

con.Open()              
                Dim savemain As String = "INSERT INTO avail_main([equip_id])VALUES('" & ddlEquipment.SelectedValue & "')"
                Dim com As SqlCommand = New SqlCommand(savemain, con)              
                com.ExecuteNonQuery()
con.close()

FOR EACH LOOP IN VB.NET

  Protected Sub SecondGridBind()
        Dim row As GridViewRow
        For Each row In GridView1.Rows
            Dim lblid As HiddenField = row.FindControl("Label2")
            Dim str As String = "select * from  fact_dtl_mst where fact_id='" & lblid.Value & "'"           
        Next
    End Sub

ExecuteScalar IB VB.NET

CLASS  
 Dim con As SqlConnection = New SqlConnection()
    Dim com As SqlCommand = New SqlCommand()
    Dim da As SqlDataAdapter = New SqlDataAdapter()
    Dim constr As String = "Data Source=SERVER NAME \SQLEXPRESS;Initial Catalog=DBNAME;Integrated Security=True"

  Public Function SelectScalar(ByVal str As String) As String
        Dim s1 As String
        If con.State = ConnectionState.Closed Then
            con.ConnectionString = constr
            con.Open()
        End If
        com.CommandText = str
        com.Connection = con
        da.SelectCommand = com
        s1 = Convert.ToString(com.ExecuteScalar())
        con.Close()
        Return s1
    End Function
  Dim c1 As clsConnection = New clsConnection()//OBJECT OF CLASS
PAGE
Dim check As String = "select count(equip_id) from TBLNAEM where equip_id='" & ddlEquipment.SelectedValue & "' "
        Dim i As Integer = (Convert.ToInt32(c1.SelectScalar(check)))

FILL DROPDOWNLIST IN VB.NET

CLASS...
    Dim con As SqlConnection = New SqlConnection()
    Dim com As SqlCommand = New SqlCommand()
    Dim da As SqlDataAdapter = New SqlDataAdapter()
    Dim constr As String = "Data Source=SERVERNAEM\SQLEXPRESS;Initial Catalog=DBNAME;Integrated Security=True"
Public Sub FillDropdownListwithvalue(ByVal query As String, ByVal objDDL As DropDownList, ByVal colfield As String, ByVal valField As String)
        If con.State = ConnectionState.Closed Then
            con.ConnectionString = constr
            con.Open()
        End If
        Dim ds As DataSet = New DataSet()
        objDDL.Items.Clear()
        da = New SqlDataAdapter(query, con)
        da.Fill(ds)
        Dim Newtbl As DataTable = New DataTable()
        Dim NewRow As DataRow = ds.Tables(0).NewRow()
        NewRow(colfield) = "-Please Select-"
        Newtbl = ds.Tables(0)
        Newtbl.Rows.InsertAt(NewRow, 0)
        Newtbl.AcceptChanges()
        Newtbl = Newtbl.Copy()
        objDDL.DataSource = ds.Tables(0)
        objDDL.DataTextField = colfield
        objDDL.DataValueField = valField
        objDDL.DataBind()
    End Sub
PAGE....
    Dim c1 As clsConnection = New clsConnection()
   Public Sub filldropdown()
        Dim s As String = "select * from TBLNAME" 
        c1.FillDropdownListwithvalue(s, ddlEquipment, "equip_desc", "equip_id")
  
    End Sub

FILL GRIDVIEW IN VB.NET

    Dim con As SqlConnection = New SqlConnection()
    Dim com As SqlCommand = New SqlCommand()
    Dim da As SqlDataAdapter = New SqlDataAdapter()
    Dim constr As String = "Data Source=SERVERNAME\SQLEXPRESS;Initial Catalog=DBNAME;Integrated Security=True"
 
    Public Function selectds(ByVal str As String) As DataSet
        Dim ds As DataSet = New DataSet()
        If con.State = ConnectionState.Closed Then
            con.ConnectionString = constr
            con.Open()
        End If
        com.CommandText = str
        com.Connection = con
        da.SelectCommand = com
        da.Fill(ds)
        con.Close()
        Return ds
    End Function
//
    Public Sub fill()
        Dim s As String = "select * from TABLE"
        ds = c1.selectds(s)
        GridView1.DataSource = ds
        GridView1.DataBind()
        SecondGridBind()
    End Sub

PAGE LOAD EVENT IN VB.NET

Sub Page_Load(ByVal Sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If Page.IsPostBack Then
        Else
            fill()
            filldropdown()
            MsgBox("Welcome")
        End If
    End Sub

HOW SET DATABASE CONNECTION IN VB.NET

  Dim con As SqlConnection = New SqlConnection("Data Source=SERVERNAME\SQLEXPRESS;Initial Catalog=DATABASENAEM;Integrated Security=True")

CLEARE FUNCATION IN VB.NET

  Public Sub clr()
        txtNOPFirstGo.Text = ""    
        ddlProduct.SelectedIndex = 0
     
    End Sub

.vb class for transaction sql

Imports System
Imports System.Data
Imports System.Configuration
Imports System.Data.SqlClient
Public Class clsConnection
    Public Sub New()
        '
        ' TODO: Add constructor logic here
        '
    End Sub
    Dim con As SqlConnection = New SqlConnection()
    Dim com As SqlCommand = New SqlCommand()
    Dim da As SqlDataAdapter = New SqlDataAdapter()
    Dim constr As String = "Data Source=servernaem\SQLEXPRESS;Initial Catalog=dbname  

    Public Function selectds(ByVal str As String) As DataSet
        Dim ds As DataSet = New DataSet()
        If con.State = ConnectionState.Closed Then
            con.ConnectionString = constr
            con.Open()
        End If
        com.CommandText = str
        com.Connection = con
        da.SelectCommand = com
        da.Fill(ds)
        con.Close()
        Return ds
    End Function

End Class

WORKING WITH VB.NET FULL EXAMPLE

Imports System
Imports System.Collections
Imports System.Configuration
Imports System.Data
Imports System.Data.SqlClient
Partial Public Class Default4
    Inherits System.Web.UI.Page

  
    Dim con As SqlConnection = New SqlConnection("Data Source=EV001F294E678D\SQLEXPRESS;Initial Catalog=oee;Integrated Security=True")
    Sub Page_Load(ByVal Sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        If Page.IsPostBack Then
        Else
            fill()
        End If
    End Sub
    Public Sub fill()
       
    End Sub

WORKING WITH VB.NET LOGIN EXAMPLE

Login Form.vb
Imports SystemImports System.CollectionsImports System.ConfigurationImports System.DataImports System.LinqImports System.WebImports System.Web.SecurityImports System.Web.UIImports System.Web.UI.HtmlControlsImports System.Web.UI.WebControlsImports System.Web.UI.WebControls.WebPartsImports System.Xml.LinqImports System.Data.SqlClientPartial




Public Class Default2Inherits System.Web.UI.PageDim c1 As clsConnection = New clsConnection()Dim ds As DataSet = New DataSet()Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)End Sub
Protected Sub btnLogin_Click(ByVal sender As Object, ByVal e As EventArgs)If txtLoginId.Text <> "" And txtPassword.Text <> "" ThenDim getAdmin As String = "select * from oee_LoginTable where signum_id='" + txtLoginId.Text + "' and Password='" + txtPassword.Text + "'"ds = c1.selectds(getAdmin)
If ds.Tables(0).Rows.Count > 0 Then
Dim utype As String = ds.Tables(0).Rows(0)("UserType").ToString()If utype = "1" ThenSession(
Response.Redirect(
"signumid") = ds.Tables(0).Rows(0)("signum_id").ToString()"User_Home.aspx")ElseEnd IfElse
End Ifclr()
ElseEnd IfEnd Sub
Response.Redirect(
Protected Sub btnBack_Click(ByVal sender As Object, ByVal e As EventArgs)"../Default.aspx")End Sub
txtLoginId.Text = Public Sub clr()""txtPassword.Text = ""
EndEnd Sub Class