git.infodrom.org Git - infodrom/rico3/blob - examples/dotnet/RicoDbViewer.aspx

   1 <%@ Page Language="VB" ResponseEncoding="iso-8859-1" Debug="true" %>\r
   2 <%@ Import Namespace="System.Data" %>\r
   3 <%@ Import Namespace="Rico" %>\r
   4 <%@ Register TagPrefix="My" TagName="dbLib" Src="dbConnect.ascx" %>\r
   5 <My:dbLib id='app' runat='server' />\r
   6 \r
   7 <script runat="server">\r
   8 \r
   9 Sub Page_Load(Sender As object, e As EventArgs)\r
  10   Dim restrictions() As String = New String(3) {}\r
  11   if app.OpenDB() then\r
  12     \r
  13     select case app.dbDialect\r
  14       case dbDialects.Access: restrictions(3)="TABLE"\r
  15       case else:              restrictions(3)="BASE TABLE"\r
  16     end select\r
  17     \r
  18     TableList.DataSource = app.dbConnection.GetSchema ("Tables", restrictions)\r
  19     TableList.DataBind()\r
  20     restrictions(3)="VIEW"\r
  21     ViewList.DataSource = app.dbConnection.GetSchema ("Tables", restrictions)\r
  22     ViewList.DataBind()\r
  23   end if\r
  24 End Sub\r
  25 \r
  26 </script>\r
  27 \r
  28 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">\r
  29 <html>\r
  30 <head>\r
  31 <title>Rico-Table List</title>\r
  32 \r
  33 <link href="../demo.css" type="text/css" rel="stylesheet" />\r
  34 \r
  35 <style type="text/css">\r
  36 html, body {\r
  37   height:97%;\r
  38   margin: 0px;\r
  39   padding: 0px;\r
  40   border: none;\r
  41 }\r
  42 \r
  43 #tablist {\r
  44   height:100%;\r
  45   width:25%;\r
  46   overflow:auto;\r
  47   float:left;\r
  48   border: 1px solid #EEE;\r
  49   font-size:smaller;\r
  50 }\r
  51 \r
  52 #detail {\r
  53   height:100%;\r
  54   width:70%;\r
  55   float:left;\r
  56   border: 1px solid #EEE;\r
  57 }\r
  58 </style>\r
  59 </head>\r
  60 \r
  61 <body>\r
  62 \r
  63 <div id='tablist'>\r
  64 \r
  65 <p><strong>Rico Raw Data Viewer</strong>\r
  66 \r
  67 <p><strong>TABLES</strong>\r
  68 \r
  69 <ul>\r
  70 <asp:Repeater ID="TableList" Runat="server">\r
  71 <ItemTemplate>\r
  72 <li>\r
  73 <asp:HyperLink runat="server" NavigateUrl='<%# "RicoDbViewerDetail.aspx?tabid=" & DataBinder.Eval(Container.DataItem, "TABLE_NAME") & "&" & request.servervariables("QUERY_STRING") %>' Text='<%#DataBinder.Eval(Container.DataItem, "TABLE_NAME")%>' Target="detail" />\r
  74 </li>\r
  75 </ItemTemplate>\r
  76 </asp:Repeater>\r
  77 </ul>\r
  78 \r
  79 <p><strong>VIEWS</strong>\r
  80 \r
  81 <ul>\r
  82 <asp:Repeater ID="ViewList" Runat="server">\r
  83 <ItemTemplate>\r
  84 <li>\r
  85 <asp:HyperLink runat="server" NavigateUrl='<%# "RicoDbViewerDetail.aspx?tabid=" & DataBinder.Eval(Container.DataItem, "TABLE_NAME") & "&" & request.servervariables("QUERY_STRING") %>' Text='<%#DataBinder.Eval(Container.DataItem, "TABLE_NAME")%>' Target="detail" />\r
  86 </li>\r
  87 </ItemTemplate>\r
  88 </asp:Repeater>\r
  89 </ul>\r
  90 \r
  91 </div>\r
  92 \r
  93 <iframe id='detail' name='detail'>\r
  94 \r
  95 </body>\r
  96 </html>\r