Export Fields and Columns

#ProductIDProductNameSupplierIDCategoryIDQuantityPerUnitUnitPrice
1 My ID is - 132 aaaa 0.0000
2 My ID is - 133 2225 0.0000
3 My ID is - 134 MIcKE 0.0000
4 My ID is - 135 myold 0.0000
5 My ID is - 138 mydb 0.0000
6 My ID is - 139 trams 0.0000
7 My ID is - 140 trems 0.0000
8 My ID is - 141 greams 0.0000
9 My ID is - 142 geitost 0.0000
10 My ID is - 143 mese 0.0000

bottom next goreload

[1 - 10 : 104]

Export Fields 0, 1, 2 & 3 (Row)
132aaaa

Export Columns 4 and 5
0.0000
0.0000
0.0000
0.0000
0.0000
0.0000
0.0000
0.0000
0.0000
0.0000

Export Fields and Columns
<script language="VB" runat="server">
Sub Page_Load(Src As Object, E As EventArgs)
   Dim GD As New Tornado.Getdata()
   Dim Export As New Tornado.Z()
   With Export
      .dbQP = "U=13| S=13| M=ty=G!sysindex=t| Gdf=0,1,2,3,4,5| Ps=10|D=Nwind.mdb|Q=Products|Th=Tit=Export Fields and Columns"
      .dbGridMagicCell = "field=0|macro=My ID is - #0#"
      .dbExportFlds = "(0),1,2,3"             'Export Fields
      .dbExportCols = "4,(5)"                  'Export Columns
      .ASPdbNET()
   End With

'------ User Code to process Exported data --------

   Response.Write("<Center><P><table class=ts cellspacing='1'><tr><td class=gh COLSPAN=4>Export Fields 0, 1, 2 & 3 (Row)</td><tr>")
   Dim c As Integer
   Dim r As Long
   Dim arr() As String = GD.Get_Fexport
   For c = 0 To UBound(arr)
      Response.Write("<td class=nr align=center>" & arr(c) & "</td>")
   Next c
   Response.Write("</tr></table>")
   Response.Write("<Center><P><table class=ts cellspacing='1'><tr><td class=gh COLSPAN=2>Export Columns 4 and 5</td>")
   Dim Carr(,) As String = GD.Get_Cexport
   For r = 0 To UBound(Carr, 2)
      Response.Write("<tr>")
      For c = 0 To UBound(Carr, 1)
         Response.Write("<td class=nr align=center>" & Carr(c,r) & "</td>")
      Next c
      Response.Write("</tr>")
   Next r
   Response.Write("</table></center>")
End Sub
</script>
Example form Special Features - Data Export

Send comments on this topic.
Copyright (c) 1998-2006 ASP-db