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
7 <script runat="server">
\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
13 select case app.dbDialect
\r
14 case dbDialects.Access: restrictions(3)="TABLE"
\r
15 case else: restrictions(3)="BASE TABLE"
\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
28 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
\r
31 <title>Rico-Table List</title>
\r
33 <link href="../demo.css" type="text/css" rel="stylesheet" />
\r
35 <style type="text/css">
\r
48 border: 1px solid #EEE;
\r
56 border: 1px solid #EEE;
\r
65 <p><strong>Rico Raw Data Viewer</strong>
\r
67 <p><strong>TABLES</strong>
\r
70 <asp:Repeater ID="TableList" Runat="server">
\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
79 <p><strong>VIEWS</strong>
\r
82 <asp:Repeater ID="ViewList" Runat="server">
\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
93 <iframe id='detail' name='detail'>
\r