Admin
19th September 2006, 04:36 PM
My Grid View control in Aspx file
<asp:GridView ID="GridView1" runat="server" AllowSorting="false" AllowPaging="True" AutoGenerateColumns="False" width="100%"
GridLines=None CellSpacing=0 Cellpadding=3 EnableViewState="false"
PagerSettings-Position="TopAndBottom" PagerSettings-Mode="NextPreviousFirstLast" PagerSettings-FirstPageText="<< First"
PagerSettings-PreviousPageText="< Prev" PagerSettings-NextPageText="Next >" PagerSettings-LastPageText="Last >>"
PagerStyle-BackColor="#FFFFFF" PagerStyle-HorizontalAlign="Right" PagerStyle-Font-Size="XX-Small">
<HeaderStyle Font-Bold="True" BackColor="#E5ECF4" Font-Size="Small"></HeaderStyle>
<AlternatingRowStyle Font-Size="Small" Font-Names="Verdana"></AlternatingRowStyle>
<RowStyle Font-Size=small Font-Names="Verdana" />
<EmptyDataTemplate>
<div align="center"><br /><font size="4" face="Verdana" color=red >No Scraps</font></div><br />
</EmptyDataTemplate>
<Columns>
<%--<asp:BoundField DataField="PicPath" />--%>
<asp:ImageField DataImageUrlField="PicPath" DataImageUrlFormatString="{0}"
alternatetext="Photo" headertext="Photo" ControlStyle-Width="75" ControlStyle-Height="75" ></asp:ImageField>
<%--<asp:BoundField DataField="frmUserNick" />--%>
<asp:Hyperlinkfield DataTextField="FrmUserNick" HeaderText="From" DataNavigateUrlFields="FromUserSrNo" DataNavigateUrlFormatString="UserProfile.aspx?uid={0}" />
<asp:BoundField DataField="ScrapText" />
<asp:BoundField DataField="ScrapDate" />
</Columns>
</asp:GridView>
Protected Function LoadScrapBook() As DataTable
Dim strSQL As String = String.Empty
Dim dt As DataTable
strSQL = " select a.UserSrNo + '|' + cast(a.Srno as nvarchar) as ID, a.UserSrNo, a.FromUserSrNo, dbo.fr_GetNickName(a.UserSrNo) as NickName, dbo.fr_GetNickName(a.FromUserSrNo) as FrmUserNick, dbo.fr_GetPicPath(a.FromUserSrNo) as PicPath, ScrapText, ScrapDate " & _
" from fr_scrapbook a, fr_userphotos b" & _
" where a.UserSrNo *= b.UserSrNo " & _
" and b.IsDisplayPic=1 and a.UserSrNo = " & CommonLogic.SQuote(ForUser.ToString) & _
" order by SrNo Desc"
'Response.Write(">>>" & strSQL & "<<< ")
dt = DB.GetDS(strSQL, True).Tables(0).Copy
'Response.Write("%%%%" & dt.Rows.Count & "%%%%")
Return dt
'Return ds
End Function
Protected Sub btnSubmit_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles btnSubmit.Click
Dim sql As StringBuilder = New StringBuilder(2500)
'Dim rs As IDataReader
Dim isInserted As Boolean = False
Page.Validate()
If Page.IsValid Then
If Not isInserted Then
'sql.Append("Insert into fr_ScrapBook")
Dim cn As SqlConnection = New SqlConnection(DB.GetDBConn())
Dim cmd As SqlCommand = New SqlCommand()
cn.Open()
cmd.Connection = cn
cmd.CommandText = "fr_ScrapEntry"
cmd.CommandType = CommandType.StoredProcedure
cmd.Parameters.Add(New SqlParameter("@UserSrNo", SqlDbType.NVarChar, 50))
cmd.Parameters.Add(New SqlParameter("@ByUserSrNo", SqlDbType.NVarChar, 50))
cmd.Parameters.Add(New SqlParameter("@ScrapMsg", SqlDbType.NVarChar, 1024))
cmd.Parameters("@UserSrNo").Value = ForUser.ToString
cmd.Parameters("@ByUserSrNo").Value = ByUser.ToString
cmd.Parameters("@ScrapMsg").Value = BBCode.CodeParser.MakeHtml("", txtScrap.Text.ToString, True)
Try
cmd.ExecuteNonQuery()
Catch ex As Exception
lblErrorMsg.ForeColor = Drawing.Color.Red
lblErrorMsg.Font.Bold = True
lblErrorMsg.Text = "<br /> Some errors occured trying to Post your Scrap.<br />" & Err.Description & "<br /> " & Err.Source
Finally
If Err.Number = 0 Then txtScrap.Text = String.Empty
cn.Close()
cmd.Dispose()
cn.Dispose()
'Response.Write("B4 Paging..............................")
doPaging()
End Try
isInserted = True
End If
Else
lblErrorMsg.ForeColor = Drawing.Color.Red
lblErrorMsg.Font.Bold = True
lblErrorMsg.Text = "<br /> Some errors occured trying to Post your Scrap. Please correct them and try again.<br />"
For Each aValidator As IValidator In Me.Validators
If (Not aValidator.IsValid) Then
lblErrorMsg.Text &= "• " & aValidator.ErrorMessage & "<br />"
End If
Next aValidator
lblErrorMsg.Text &= "<br />"
End If
End Sub
Sub doPaging()
'pagedData = New PagedDataSource()
'pagedData.DataSource = LoadScrapBook().DefaultView
'pagedData.AllowPaging = True
'pagedData.PageSize = PageSize
'Try
' pagedData.CurrentPageIndex = Int32.Parse(Request.QueryString("Page")).ToString()
'Catch ex As Exception
' pagedData.CurrentPageIndex = 0
'End Try
'PreviousLink.Enabled = (Not pagedData.IsFirstPage)
'NextLink.Enabled = (Not pagedData.IsLastPage)
'FirstLink.Enabled = (Not pagedData.IsFirstPage)
'LastLink.Enabled = (Not pagedData.IsLastPage)
'ScrapList.DataSource = pagedData
'ScrapList.DataBind()
GridView1.DataSource = LoadScrapBook().DefaultView
GridView1.DataBind()
'Response.Write("::::::" & ScrapList.Items.Count.ToString & "::::::")
End Sub
<asp:GridView ID="GridView1" runat="server" AllowSorting="false" AllowPaging="True" AutoGenerateColumns="False" width="100%"
GridLines=None CellSpacing=0 Cellpadding=3 EnableViewState="false"
PagerSettings-Position="TopAndBottom" PagerSettings-Mode="NextPreviousFirstLast" PagerSettings-FirstPageText="<< First"
PagerSettings-PreviousPageText="< Prev" PagerSettings-NextPageText="Next >" PagerSettings-LastPageText="Last >>"
PagerStyle-BackColor="#FFFFFF" PagerStyle-HorizontalAlign="Right" PagerStyle-Font-Size="XX-Small">
<HeaderStyle Font-Bold="True" BackColor="#E5ECF4" Font-Size="Small"></HeaderStyle>
<AlternatingRowStyle Font-Size="Small" Font-Names="Verdana"></AlternatingRowStyle>
<RowStyle Font-Size=small Font-Names="Verdana" />
<EmptyDataTemplate>
<div align="center"><br /><font size="4" face="Verdana" color=red >No Scraps</font></div><br />
</EmptyDataTemplate>
<Columns>
<%--<asp:BoundField DataField="PicPath" />--%>
<asp:ImageField DataImageUrlField="PicPath" DataImageUrlFormatString="{0}"
alternatetext="Photo" headertext="Photo" ControlStyle-Width="75" ControlStyle-Height="75" ></asp:ImageField>
<%--<asp:BoundField DataField="frmUserNick" />--%>
<asp:Hyperlinkfield DataTextField="FrmUserNick" HeaderText="From" DataNavigateUrlFields="FromUserSrNo" DataNavigateUrlFormatString="UserProfile.aspx?uid={0}" />
<asp:BoundField DataField="ScrapText" />
<asp:BoundField DataField="ScrapDate" />
</Columns>
</asp:GridView>
Protected Function LoadScrapBook() As DataTable
Dim strSQL As String = String.Empty
Dim dt As DataTable
strSQL = " select a.UserSrNo + '|' + cast(a.Srno as nvarchar) as ID, a.UserSrNo, a.FromUserSrNo, dbo.fr_GetNickName(a.UserSrNo) as NickName, dbo.fr_GetNickName(a.FromUserSrNo) as FrmUserNick, dbo.fr_GetPicPath(a.FromUserSrNo) as PicPath, ScrapText, ScrapDate " & _
" from fr_scrapbook a, fr_userphotos b" & _
" where a.UserSrNo *= b.UserSrNo " & _
" and b.IsDisplayPic=1 and a.UserSrNo = " & CommonLogic.SQuote(ForUser.ToString) & _
" order by SrNo Desc"
'Response.Write(">>>" & strSQL & "<<< ")
dt = DB.GetDS(strSQL, True).Tables(0).Copy
'Response.Write("%%%%" & dt.Rows.Count & "%%%%")
Return dt
'Return ds
End Function
Protected Sub btnSubmit_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles btnSubmit.Click
Dim sql As StringBuilder = New StringBuilder(2500)
'Dim rs As IDataReader
Dim isInserted As Boolean = False
Page.Validate()
If Page.IsValid Then
If Not isInserted Then
'sql.Append("Insert into fr_ScrapBook")
Dim cn As SqlConnection = New SqlConnection(DB.GetDBConn())
Dim cmd As SqlCommand = New SqlCommand()
cn.Open()
cmd.Connection = cn
cmd.CommandText = "fr_ScrapEntry"
cmd.CommandType = CommandType.StoredProcedure
cmd.Parameters.Add(New SqlParameter("@UserSrNo", SqlDbType.NVarChar, 50))
cmd.Parameters.Add(New SqlParameter("@ByUserSrNo", SqlDbType.NVarChar, 50))
cmd.Parameters.Add(New SqlParameter("@ScrapMsg", SqlDbType.NVarChar, 1024))
cmd.Parameters("@UserSrNo").Value = ForUser.ToString
cmd.Parameters("@ByUserSrNo").Value = ByUser.ToString
cmd.Parameters("@ScrapMsg").Value = BBCode.CodeParser.MakeHtml("", txtScrap.Text.ToString, True)
Try
cmd.ExecuteNonQuery()
Catch ex As Exception
lblErrorMsg.ForeColor = Drawing.Color.Red
lblErrorMsg.Font.Bold = True
lblErrorMsg.Text = "<br /> Some errors occured trying to Post your Scrap.<br />" & Err.Description & "<br /> " & Err.Source
Finally
If Err.Number = 0 Then txtScrap.Text = String.Empty
cn.Close()
cmd.Dispose()
cn.Dispose()
'Response.Write("B4 Paging..............................")
doPaging()
End Try
isInserted = True
End If
Else
lblErrorMsg.ForeColor = Drawing.Color.Red
lblErrorMsg.Font.Bold = True
lblErrorMsg.Text = "<br /> Some errors occured trying to Post your Scrap. Please correct them and try again.<br />"
For Each aValidator As IValidator In Me.Validators
If (Not aValidator.IsValid) Then
lblErrorMsg.Text &= "• " & aValidator.ErrorMessage & "<br />"
End If
Next aValidator
lblErrorMsg.Text &= "<br />"
End If
End Sub
Sub doPaging()
'pagedData = New PagedDataSource()
'pagedData.DataSource = LoadScrapBook().DefaultView
'pagedData.AllowPaging = True
'pagedData.PageSize = PageSize
'Try
' pagedData.CurrentPageIndex = Int32.Parse(Request.QueryString("Page")).ToString()
'Catch ex As Exception
' pagedData.CurrentPageIndex = 0
'End Try
'PreviousLink.Enabled = (Not pagedData.IsFirstPage)
'NextLink.Enabled = (Not pagedData.IsLastPage)
'FirstLink.Enabled = (Not pagedData.IsFirstPage)
'LastLink.Enabled = (Not pagedData.IsLastPage)
'ScrapList.DataSource = pagedData
'ScrapList.DataBind()
GridView1.DataSource = LoadScrapBook().DefaultView
GridView1.DataBind()
'Response.Write("::::::" & ScrapList.Items.Count.ToString & "::::::")
End Sub