GridView Içinde Hyperlink Kullanımı

Bu makalemizde GridView nesnemizin içinde Hyperlink kullanacağız. Hyperlink e tıkladığınız zaman veritabanından ilgili personelin bilgilerini getirecek. Makalenin en altındaki Şekilleri inceleyin.
İlk önce Gridview nesneniz seçili iken Edit Colums a tıklayın(Şekil 1).

Şekil 1

Daha sonra HyperLinkField kısmına gidip, HeaderText kısmına konu başlığı, Hydertext kısmınada link açıklamasını yazın.(Şekil 2)

Şekil 2
Daha sora yine HyperLink Field alanından Data kısmına gidiniz. Burada DataNavigateUrlField alanına veritabanınızdaki bağlanılacak alanı yazan. Bu örnekte id kısmını aldık.
DataNavigateUrlFormatString kısmına gideceğiniz sayfayı yazın. Biz bu örnekte default.aspx sayfasında yani aynı sayfada dataları göstereceğiz.(Şekil 3)

Şekil 1

Ör:default.aspx?no={0} (Bu şekilde yapın)

Aşağıdaki kodları yazarak veritabanına bağlanın. (Şekil 4)

Şekil 4

HyperLink linklerinden hangisine basarsanız basın o satırdaki personele ait bilgiler gelecektir. (Şekil 5)...Bahadirsa

Şekil 5

Forma yazılacak kodlar:

Imports System.Data.OleDb
Imports System.Data.OleDb.OleDbDataReader
Partial Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim baglan As Data.OleDb.OleDbConnection = New Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & Server.MapPath("~/App_Data/veri.mdb") & ";")

        Dim adp As New Data.OleDb.OleDbDataAdapter
        adp.SelectCommand = New Data.OleDb.OleDbCommand("Select * From Personel", baglan)
        Dim CB As Data.OleDb.OleDbCommandBuilder = New Data.OleDb.OleDbCommandBuilder(adp)

        baglan.Open()
        Dim ds As New Data.DataSet()
        adp.Fill(ds)

        GridView1.DataSource = ds.Tables(0)
        GridView1.DataBind()

        baglan.Close()

        Dim pno As String
        pno = Val(Request.QueryString("no"))

        Dim str As String
        str = "Select * From Personel Where id = ‘" & pno & "‘"
        Dim baglan2 As Data.OleDb.OleDbConnection = New Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & Server.MapPath("~/App_Data/veri.mdb") & ";")
        Dim adp2 As New Data.OleDb.OleDbDataAdapter()
        adp2.SelectCommand = New Data.OleDb.OleDbCommand(str, baglan2)
        Dim CB2 As Data.OleDb.OleDbCommandBuilder = New Data.OleDb.OleDbCommandBuilder(adp2)
        Dim cmd As New Data.OleDb.OleDbCommand(str, baglan2)

        baglan2.Open()
        Dim ds2 As New Data.DataSet()
        Dim dr As Data.OleDb.OleDbDataReader
        adp2.Fill(ds2)

        dr = cmd.ExecuteReader

        While dr.Read
            Label2.Text = dr.GetString(0)
            Label3.Text = dr.GetString(1)
            Label4.Text = dr.GetString(2)
            Label5.Text = dr.GetString(3)
            Label6.Text = dr.GetString(4)

        End While

        dr.Close()

        baglan2.Close()

        Label1.Text = "id=" & pno & " no‘lu Personel Bilgileri :"

    End Sub

    End Class

‘Makalemizin faydalı olması dileğiyle. Bir sonraki makalede buluşmak üzere...Bahadirsa