Ado.net ile datagrid 1
Kod:
Data.aspx dosyasynda dikkat çeken nokta <asp:datagrid> etiketi içerisindeki geli?mi? ve fonksiyonel etiketlerdir.Bu etiketler sayesinde olu?turdu?umuz datagrid’in özelliklerini , boyunu, yazy rengini ve tipini gibi birçok özelli?i de?i?tirebiliyoruz.Bir sonraki makalemde bu özelliklerin kullanyly?yny, verileri syralama methodlaryny anlatycam.Yyi çaly?malar...
-----data.aspx ------
<%@ Page Language="vb" AutoEventWireup="false" src="data.aspx.vb" Inherits="data" %>
<HTML>
<HEAD>
<title>DataGrid</title>
</HEAD>
<body >
<form id="Form1" method="post" runat="server">
<ASP:DataGrid
id="listtalepler"
runat="server"
Width="90%"
BorderColor="black"
CellPadding=3
CellSpacing="0"
Font-Name="Trebuchet MS"
Font-Size="10pt"
ForeColor="Black"
BackColor="Beige"
HeaderStyle-BackColor="Burlywood"
HeaderStyle-Font-Bold="True"
AutoGenerateColumns="False">
<Columns>
<asp:BoundColumn
HeaderText="AD"
DataField="ad"
/>
<asp:BoundColumn
HeaderText="Soyad"
DataField="soyad"
/>
</Columns>
</asp:DataGrid>
</form>
</body>
</HTML>
-----data.aspx.vb-------
Imports System.Data
Imports System.Data.OleDb
Public Class data
Inherits System.Web.UI.Page
Protected WithEvents listtalepler As System.Web.UI.WebControls.DataGrid
#Region " Web Form Designer Generated Code "
'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Not IsPostBack Then
Dim DBConn As OleDbConnection
Dim DBCommand As OleDbDataAdapter
Dim DSPageData As New DataSet()
DBConn = New OleDbConnection("provider=" _
& "Microsoft.Jet.OLEDB.4.0;" _
& "DATA SOURCE=" _
& Server.MapPath("db/veritabanim.mdb;"))
DBCommand = New OleDbDataAdapter _
("Select * From tbltalep " _
& " order by ad" , DBConn)
DBCommand.Fill(DSPageData, _
"talepler")
listtalepler.DataSource = _
DSPageData.Tables("talepler").DefaultView
listtalepler.DataBind()
End If
End Sub
End Class