ASP.NET(vb.net) & DataList - DataSet,DataTable,TableRow

Author: admin | Posted: 06-06-2010 | Category: ASP.NET(vb.net) & DataList Control

ASP.NET(vb.net) & DataList - DataSet,DataTable,TableRow Example scripts how to use DataList control in asp.net , Binding the datasource (DataSet,DataTable,TableRow) to DataList control.

ShotDev Focus:
- ASP.NET(vb.net) & DataList - DataSet,DataTable,TableRow

Example

DataListDataSetDataTable.aspx

<%@ Import Namespace="System.Data"%>
<%@ Import Namespace="System.Data.OleDb"%>
<%@ Page Language="VB" %>
<script runat="server">
Sub Page_Load(sender As Object, e As EventArgs)
Dim dt As DataTable

'*** DataSet To DataTable ***'
'dt = CreateDsToDt()

'*** DataSet ***'
'dt = CreateDataSet.Tables(0) '*** Convert DataSet to DataTable ***'

'*** DataTable ***'
dt = CreateDataTable()

'*** TableRows ***'
'dt = DataTableRows()

'*** BindData to DataList ***'
myDataList.DataSource = dt
myDataList.DataBind()
End Sub

'*** DataTable ***'
Function CreateDataTable() As DataTable
Dim objConn As New OleDbConnection
Dim dtAdapter As OleDbDataAdapter
Dim dt As New DataTable

Dim strConnString As String
strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& _
Server.MapPath("database/mydatabase.mdb")&";"
objConn = New OleDbConnection(strConnString)
objConn.Open()

Dim strSQL As String
strSQL = "SELECT * FROM category"

dtAdapter = New OleDbDataAdapter(strSQL, objConn)
dtAdapter.Fill(dt)

dtAdapter = Nothing

objConn.Close()
objConn = Nothing

Return dt '*** Return DataTable ***'

End Function

'*** DataSet ***'
Function CreateDataSet() As DataSet
Dim objConn As New OleDbConnection
Dim objCmd As New OleDbCommand
Dim dtAdapter As New OleDbDataAdapter

Dim ds As New DataSet
Dim strConnString,strSQL As String

strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& _
Server.MapPath("database/mydatabase.mdb")&";"
strSQL = "SELECT * FROM category"

objConn.ConnectionString = strConnString
With objCmd
.Connection = objConn
.CommandText = strSQL
.CommandType = CommandType.Text
End With
dtAdapter.SelectCommand = objCmd

dtAdapter.Fill(ds)

dtAdapter = Nothing
objConn.Close()
objConn = Nothing

Return ds '*** Return DataSet ***'

End Function

'*** DataSet To DataTable ***'
Function CreateDsToDt() As DataTable
Dim objConn As New OleDbConnection
Dim objCmd As New OleDbCommand
Dim dtAdapter As New OleDbDataAdapter

Dim ds As New DataSet
Dim dt As DataTable
Dim strConnString,strSQL As String

strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& _
Server.MapPath("database/mydatabase.mdb")&";"
strSQL = "SELECT * FROM category"

objConn.ConnectionString = strConnString
With objCmd
.Connection = objConn
.CommandText = strSQL
.CommandType = CommandType.Text
End With
dtAdapter.SelectCommand = objCmd

dtAdapter.Fill(ds)
dt = ds.Tables(0)

dtAdapter = Nothing
objConn.Close()
objConn = Nothing

Return dt   '*** Return DataTable ***'

End Function

'*** TableRows (DataTable) ***'
Function DataTableRows() As DataTable
Dim dt As New DataTable
Dim dr As DataRow

'*** Column ***'
dt.Columns.Add("CategoryID")
dt.Columns.Add("CategoryName")
dt.Columns.Add("Picture")

'*** Rows ***'
dr = dt.NewRow
dr("CategoryID") = "1"
dr("CategoryName") = "Category 1"
dr("Picture") = "toy1.gif"
dt.Rows.Add(dr)

'*** Rows ***'
dr = dt.NewRow
dr("CategoryID") = "2"
dr("CategoryName") = "Category 2"
dr("Picture") = "toy2.gif"
dt.Rows.Add(dr)

'*** Rows ***'
dr = dt.NewRow
dr("CategoryID") = "3"
dr("CategoryName") = "Category 3"
dr("Picture") = "toy3.gif"
dt.Rows.Add(dr)

'*** Rows ***'
dr = dt.NewRow
dr("CategoryID") = "4"
dr("CategoryName") = "Category 4"
dr("Picture") = "toy4.gif"
dt.Rows.Add(dr)

Return dt '*** Return DataTable ***'
End Function
</script>
<html>
<head>
<title>ShotDev.Com Tutorial</title>
</head>
<body>
<form id="form1" runat="server">
<asp:DataList id="myDataList" RepeatColumns="2" runat="server">
<HeaderTemplate>
<b>My Category</b>
</HeaderTemplate>
<ItemTemplate>
<div style="width:100px" align="center">
<img src="images/<%#Container.DataItem("Picture")%>">
<br />
<%#Container.DataItem("CategoryName")%>
</div>
</ItemTemplate>
<SeparatorTemplate>
<hr />
</SeparatorTemplate>
</asp:DataList>
</form>
</body>
</html>

Create a asp.net file and save to path root-path/dotnet/

Run
http://localhost/dotnet/DataListDataSetDataTable.aspx

Screenshot

.
.
.