<%@ Page Language="VB" ResponseEncoding="iso-8859-1" Debug="true" %>\r
<%@ Import Namespace="System.Data" %>\r
+<%@ Import Namespace="Rico" %>\r
<%@ Register TagPrefix="My" TagName="dbLib" Src="dbConnect.ascx" %>\r
<My:dbLib id='app' runat='server' />\r
\r
if app.OpenDB() then\r
\r
select case app.dbDialect\r
- case "Access": restrictions(3)="TABLE"\r
- case else: restrictions(3)="BASE TABLE"\r
+ case dbDialects.Access: restrictions(3)="TABLE"\r
+ case else: restrictions(3)="BASE TABLE"\r
end select\r
\r
TableList.DataSource = app.dbConnection.GetSchema ("Tables", restrictions)\r