.NET Tutorials, Forums, Interview Questions And Answers
Welcome :Guest
 
Sign In
Register
 
Win Surprise Gifts!!!
Congratulations!!!


Top 5 Contributors of the Month
david stephan

Home >> Code Snippets >> ASP.NET Controls >> Post New Resource Bookmark and Share   

 Subscribe to Code Snippets

Bind data with DataList control

Posted By:satyapriyanayak       Posted Date: April 01, 2013    Points: 40    Category: ASP.NET Controls    URL: http://www.dotnetspark.com  

Bind data with DataList control
 

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
    <title>Untitled Page</title>
</head>
<body>
    <form id="form1" runat="server">
    <div>
    
    </div>
    <asp:DataList ID="DataList1" BackColor="#FFFFCC" runat="server">
    <HeaderTemplate>
    
     <table width="600" align="center" cellpadding="0" cellspacing="0">
     <tr>
                                
       <td height="30">
        <b>Id</b>
        </td>
        <td>
        <b>Name</b>
         </td>
        <td>
         <b>Address</b>
        </td>
         <td>
          <b>Marks</b>
        </td>
       
       </tr>
           </HeaderTemplate>
 
        <HeaderStyle BackColor="#FF6666" />
 
       <ItemTemplate>
      <tr>
      <td height="40">
      <%#Eval("sid")%>
       </td>
      <td>
    <%#Eval("sname")%>
    </td>
    <td>
     <%#Eval("saddress")%>
   </td>
      <td>
    <%#Eval("smarks")%>
      </td>
    </ItemTemplate>
    </asp:DataList>
    </form>
</body>
</html>


Imports System.Data.SqlClient
Imports System.Data
Partial Class _Default
    Inherits System.Web.UI.Page
    Dim strConnString As String = System.Configuration.ConfigurationManager.ConnectionStrings.Item("ConnectionString").ToString()
    Dim con As New SqlConnection(strConnString)
    Dim sqlda As SqlDataAdapter
    Dim com As SqlCommand
    Dim ds As DataSet
    Dim str As String
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        bindlist()
    End Sub
    Sub bindlist()
        Try
            con.Open()
            str = "select * from student"
            com = New SqlCommand(str, con)
            sqlda = New SqlDataAdapter(com)
            ds = New DataSet
            sqlda.Fill(ds, "student")
            DataList1.DataSource = ds
            DataList1.DataMember = "student"
            DataList1.DataBind()
            con.Close()
        Catch ex As Exception
            Response.Write(ex.Message)
        End Try
    End Sub
End Class


     

Further Readings:

Responses

No response found. Be the first to respond this post

Post Comment

You must Sign In To post reply
Find More code samples in C#, ASP.Net, Vb.Net and more Here

Hall of Fame    Twitter   Terms of Service    Privacy Policy    Contact Us    Archives   Tell A Friend