<%@ Import Namespace="System.Data"%>
<%@ Import Namespace="System.Data.OleDb"%>
<%@ Page Language="VB" %>
<script runat="server">
Dim objConn As OleDbConnection
Dim objCmd As OleDbCommand
Dim strGalleryID As String = 3
Sub Page_Load(sender As Object, e As EventArgs)
Dim strConnString As String
strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("database/mydatabase.mdb")&";"
objConn = New OleDbConnection(strConnString)
objConn.Open()
BindData()
End Sub
Sub BindData()
Dim strSQL As String
strSQL = "SELECT * FROM gallery WHERE GalleryID = "& strGalleryID
Dim dtReader As OleDbDataReader
objCmd = New OleDbCommand(strSQL, objConn)
dtReader = objCmd.ExecuteReader()
'*** BindData to FormView ***'
myFormView.DataSource = dtReader
myFormView.DataBind()
dtReader.Close()
dtReader = Nothing
End Sub
Sub Page_UnLoad()
objConn.Close()
objConn = Nothing
End Sub
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
</script>
<html>
<head>
<title>ThaiCreate.Com ASP.NET - FormView</title>
</head>
<body>
<form id="form1" runat="server">
<asp:FormView id="myFormView" runat="server"
OnDataBound="myFormView_DataBound">
<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>