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

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

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

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

Example

FormViewDataSetDataTable.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)

IF Not Page.IsPostBack() Then
BindData()
End IF

End Sub

Sub BindData()
Dim dt As DataTable

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

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

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

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

'*** BindData to FormView ***'
myFormView.DataSource = dt
myFormView.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 gallery"

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 gallery"

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 gallery"

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("GalleryID")
dt.Columns.Add("GalleryName")
dt.Columns.Add("Picture")

'*** Rows ***'
dr = dt.NewRow
dr("GalleryID") = "1"
dr("GalleryName") = "My Picture 1"
dr("Picture") = "DSC01683.jpg"
dt.Rows.Add(dr)

'*** Rows ***'
dr = dt.NewRow
dr("GalleryID") = "2"
dr("GalleryName") = "My Picture 2"
dr("Picture") = "DSC01719.jpg"
dt.Rows.Add(dr)

'*** Rows ***'
dr = dt.NewRow
dr("GalleryID") = "3"
dr("GalleryName") = "My Picture 3"
dr("Picture") = "DSC01805.jpg"
dt.Rows.Add(dr)

'*** Rows ***'
dr = dt.NewRow
dr("GalleryID") = "4"
dr("GalleryName") = "My Picture 4"
dr("Picture") = "DSC01806.jpg"
dt.Rows.Add(dr)

Return dt '*** Return DataTable ***'
End Function

Sub myFormView_DataBound(ByVal sender As Object, ByVal e As System.EventArgs)

'*** Image ***'
Dim Image1 As Image = CType(myFormView.FindControl("Image1"),Image)
IF Not IsNothing(Image1) Then
Image1.ImageUrl = "images/"&myFormView.DataItem("Picture")
Image1.Attributes.Add("OnClick", "window.open('images/"&myFormView.DataItem("Picture")&"')")
Image1.Style.Add("cursor","hand")
Image1.ToolTip = myFormView.DataItem("GalleryName")
End IF

'*** GalleryName ***'
Dim lblGalleryName As Label = CType(myFormView.FindControl("lblGalleryName"),Label)
IF Not IsNothing(lblGalleryName) Then
lblGalleryName.Text = myFormView.DataItem("GalleryName")
End IF

End Sub

Sub ShowPageCommand(s As Object, e As FormViewPageEventArgs)
myFormView.PageIndex = e.NewPageIndex
BindData()
End Sub

</script>
<html>
<head>
<title>ShotDev.Com Tutorial</title>
</head>
<body>
<form id="form1" runat="server">
<asp:FormView id="myFormView" runat="server"
OnDataBound="myFormView_DataBound"
OnPageIndexChanging="ShowPageCommand"
AllowPaging="True">
<ItemTemplate>
<table width="500" cellpadding="5" border="0">
<tr>
<td valign="top" align="center">
<asp:Image id="Image1" runat="server"/>
<br />
<h2><asp:Label id="lblGalleryName" runat="server"></asp:Label></h2>
</td>
</tr>
</table>
</ItemTemplate>
</asp:FormView>
</form>
</body>
</html>

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

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

Screenshot

.
.
.