Sub Page_Load(Sender As object, e As EventArgs)\r
Dim restrictions() As String = New String(2) {}\r
Dim ColumnInfo As DataTable\r
- Dim columnlist as String\r
\r
TableName = trim(request.querystring("id"))\r
- if app.OpenDB() then\r
+ if app.OpenGrid(dbViewer) then\r
\r
restrictions(2)=TableName\r
ColumnInfo = app.dbConnection.GetSchema ("Columns", restrictions)\r
datatype=colinfo("DATA_TYPE").ToString\r
if IsNothing(colname0) then colname0=colname\r
if IsNumeric(datatype) then datatype=ADOColType(datatype)\r
- if not IsNothing(columnlist) then\r
- columnlist=columnlist & ","\r
- end if\r
+\r
+ Dim ColumnObj as New Rico.Column()\r
if InStr(1,datatype,"binary",1) > 0 or left(datatype,3)="???" or datatype="image" then\r
- columnlist=columnlist & "'?'"\r
+ ColumnObj.Formula = "'?'"\r
else\r
- columnlist=columnlist & colname\r
+ ColumnObj.ColName = colname\r
end if\r
- Dim ColumnObj as New Rico.Column()\r
ColumnObj.Heading=colname\r
ColumnObj.width=100\r
if InStr(1,datatype,"DATETIME",1) > 0 then ColumnObj.DataType="datetime"\r
dbViewer.AddColumn(ColumnObj)\r
Next\r
- dbViewer.sqlQuery="select " & columnlist & " from [" & TableName & "] order by " & colname0\r
-\r
+ dbViewer.DefaultSort = colname0\r
+ dbViewer.TableName = "[" & TableName & "]"\r
+ \r
end if\r
End Sub\r
\r
<body>\r
\r
<p><strong><%=TableName%></strong>\r
-<Rico:LiveGrid runat='server' id='dbViewer' highlightElem='cursorRow' menuEvent='click' >\r
-<GridColumns>\r
-</GridColumns>\r
-</Rico:LiveGrid>\r
+<Rico:LiveGrid runat='server' id='dbViewer' highlightElem='cursorRow' menuEvent='click' />\r
\r
</body>\r
</html>\r