how can I export ALL datagrid rows to excel?

[The Colonel]

I'm only getting current page. I've tried playing with the
PageSize and AllowPaging = False before exporting, but no luck. Here's
my code:

<snip>
Public Sub btnExport_OnCli ck(ByVal sender As Object, ByVal e As
EventArgs)
Response.Conten tType = "applicatio n/vnd.ms-excel"
Response.AddHea der("Content-Disposition", "inline;filenam e=" &
gstrTableName & ".xls")
Response.Charse t = ""
Me.EnableViewSt ate = False
ClearControls(d gParent)
Dim tw As New System.IO.Strin gWriter
Dim hw As New System.Web.UI.H tmlTextWriter(t w)
' Get the HTML for the control.
dgParent.PageSi ze =
gobjDataSet.Tab les(gstrTableNa me).Rows.Count
dgParent.Render Control(hw)
' Write the HTML back to the browser.
Response.Write( tw.ToString())
' End the response.
Response.End()
End Sub
Private Sub ClearControls(B yVal control As Control)
Dim i As Integer
For i = control.Control s.Count - 1 To 0 Step -1
ClearControls(c ontrol.Controls (i))
Next
If Not TypeOf control Is TableCell Then
If Not (control.GetTyp e().GetProperty ("SelectedItem" ) Is
Nothing) Then
Dim literal As New LiteralControl
control.Parent. Controls.Add(li teral)
Try
literal.Text =
CStr(control.Ge tType().GetProp erty("SelectedI tem").GetValue( control,
Nothing))
Catch
End Try
control.Parent. Controls.Remove (control)
Else
If Not (control.GetTyp e().GetProperty ("Text") Is
Nothing) Then
Dim literal As New LiteralControl
control.Parent. Controls.Add(li teral)
literal.Text =
CStr(control.Ge tType().GetProp erty("Text").Ge tValue(control, Nothing))
control.Parent. Controls.Remove (control)
End If
End If
End If
End Sub
</snip>

[Mr Newbie]

I guess Im too tired to really give much here, but the the first question is
why you are not using the object to which the DataGrid is bound to export
from, rather than the grid itself ?
Regards - Mr N ( Who is off to sleep now )


"The Colonel" <co**********@b udweiser.com> wrote in message
news:11******** **************@ o13g2000cwo.goo glegroups.com.. .

I'm only getting current page. I've tried playing with the
PageSize and AllowPaging = False before exporting, but no luck. Here's
my code:

<snip>
Public Sub btnExport_OnCli ck(ByVal sender As Object, ByVal e As
EventArgs)
Response.Conten tType = "applicatio n/vnd.ms-excel"
Response.AddHea der("Content-Disposition", "inline;filenam e=" &
gstrTableName & ".xls")
Response.Charse t = ""
Me.EnableViewSt ate = False
ClearControls(d gParent)
Dim tw As New System.IO.Strin gWriter
Dim hw As New System.Web.UI.H tmlTextWriter(t w)
' Get the HTML for the control.
dgParent.PageSi ze =
gobjDataSet.Tab les(gstrTableNa me).Rows.Count
dgParent.Render Control(hw)
' Write the HTML back to the browser.
Response.Write( tw.ToString())
' End the response.
Response.End()
End Sub
Private Sub ClearControls(B yVal control As Control)
Dim i As Integer
For i = control.Control s.Count - 1 To 0 Step -1
ClearControls(c ontrol.Controls (i))
Next
If Not TypeOf control Is TableCell Then
If Not (control.GetTyp e().GetProperty ("SelectedItem" ) Is
Nothing) Then
Dim literal As New LiteralControl
control.Parent. Controls.Add(li teral)
Try
literal.Text =
CStr(control.Ge tType().GetProp erty("SelectedI tem").GetValue( control,
Nothing))
Catch
End Try
control.Parent. Controls.Remove (control)
Else
If Not (control.GetTyp e().GetProperty ("Text") Is
Nothing) Then
Dim literal As New LiteralControl
control.Parent. Controls.Add(li teral)
literal.Text =
CStr(control.Ge tType().GetProp erty("Text").Ge tValue(control, Nothing))
control.Parent. Controls.Remove (control)
End If
End If
End If
End Sub
</snip>

[S. Justin Gengo]

I have an example of this on my website, www.aboutfortunate.com, (your code
is very close). Click on the "Code Library" link at the top of the page and
then click on the datagrid row "Ouput a datagrid as an excel spreadsheet
page".

--
Sincerely,

S. Justin Gengo, MCP
Web Developer / Programmer

www.aboutfortunate.com

"Out of chaos comes order."
Nietzsche
"The Colonel" <co**********@b udweiser.com> wrote in message
news:11******** **************@ o13g2000cwo.goo glegroups.com.. .

I'm only getting current page. I've tried playing with the
PageSize and AllowPaging = False before exporting, but no luck. Here's
my code:

<snip>
Public Sub btnExport_OnCli ck(ByVal sender As Object, ByVal e As
EventArgs)
Response.Conten tType = "applicatio n/vnd.ms-excel"
Response.AddHea der("Content-Disposition", "inline;filenam e=" &
gstrTableName & ".xls")
Response.Charse t = ""
Me.EnableViewSt ate = False
ClearControls(d gParent)
Dim tw As New System.IO.Strin gWriter
Dim hw As New System.Web.UI.H tmlTextWriter(t w)
' Get the HTML for the control.
dgParent.PageSi ze =
gobjDataSet.Tab les(gstrTableNa me).Rows.Count
dgParent.Render Control(hw)
' Write the HTML back to the browser.
Response.Write( tw.ToString())
' End the response.
Response.End()
End Sub
Private Sub ClearControls(B yVal control As Control)
Dim i As Integer
For i = control.Control s.Count - 1 To 0 Step -1
ClearControls(c ontrol.Controls (i))
Next
If Not TypeOf control Is TableCell Then
If Not (control.GetTyp e().GetProperty ("SelectedItem" ) Is
Nothing) Then
Dim literal As New LiteralControl
control.Parent. Controls.Add(li teral)
Try
literal.Text =
CStr(control.Ge tType().GetProp erty("SelectedI tem").GetValue( control,
Nothing))
Catch
End Try
control.Parent. Controls.Remove (control)
Else
If Not (control.GetTyp e().GetProperty ("Text") Is
Nothing) Then
Dim literal As New LiteralControl
control.Parent. Controls.Add(li teral)
literal.Text =
CStr(control.Ge tType().GetProp erty("Text").Ge tValue(control, Nothing))
control.Parent. Controls.Remove (control)
End If
End If
End If
End Sub
</snip>

[The Colonel]

Thanks Mr N. - what would that look like?

[The Colonel]

Thanks, Justin. It is very close - I guess the only difference is that
I'm displaying the grid with an export button, so the export is
actually taking place in an OnClick sub. I'll probably have to go a
different route.

[The Colonel]

Got it - I was turning off AllowPaging, but I needed to rebind after
that!