1 <%@ Control Language="vb" %>
\r
2 <%@ Import Namespace="System.Data" %>
\r
3 <%@ Import Namespace="System.Data.OleDb" %>
\r
4 <%@ Import Namespace="System.Data.SqlClient" %>
\r
5 <%@ Import Namespace="System.Data.Odbc" %>
\r
6 <%@ Import Namespace="Rico" %>
\r
8 <script runat="server">
\r
10 Public dbConnection as object, accessRights as string
\r
11 Public LastErrorMsg as String
\r
12 Public defaultDB as String = "Northwind"
\r
13 Public dbDialect as dbDialects = dbDialects.Access
\r
16 Public Function OpenDB()
\r
18 select case dbDialect
\r
19 case dbDialects.Access: dbConnection = new OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("../data/" & defaultDB & ".mdb") & ";User ID=;Password=;")
\r
20 case dbDialects.TSQL: dbConnection = new SqlConnection("Data Source=MATTSPROBOOK\SQLEXPRESS;User ID=userid;Password=password;Initial Catalog=" & defaultDB & ";")
\r
21 case dbDialects.Oracle: dbConnection = new OleDbConnection("Provider=OraOLEDB.Oracle;Data Source=XE;User ID=" & defaultDB & ";Password=Password;")
\r
22 case dbDialects.MySQL: dbConnection = new OdbcConnection("DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=" & defaultDB & ";USER=userid;PASSWORD=password;")
\r
23 case dbDialects.DB2: dbConnection = new OleDbConnection("Provider=IBMDADB2;Data Source=NORTHWND;Protocol=local;CurrentSchema=SCHEMA;User ID=userid;Password=password;")
\r
27 Catch ex As Exception
\r
29 LastErrorMsg=ex.Message
\r
34 Public function OpenApp()
\r
36 if not OpenDB then exit function
\r
37 accessRights="rw" ' CHECK APPLICATION SECURITY HERE (in this example, "r" gives read-only access and "rw" gives read/write access)
\r
38 if IsNothing(accessRights) OrElse left(accessRights,1)<>"r" then
\r
39 LastErrorMsg="You do not have permission to access this application"
\r
46 Public function OpenGrid(oLiveGrid as object, optional menuevent as menuEvents = menuEvents.click)
\r
48 if not OpenApp() then
\r
49 response.write("ERROR: " & LastErrorMsg)
\r
53 SetGridOptions(oLiveGrid,menuevent)
\r
58 Public sub SetGridOptions(oLiveGrid as object, optional menuevent as menuEvents = menuEvents.click)
\r
59 oLiveGrid.dbConnection=Me.dbConnection
\r
60 oLiveGrid.dbDialect=Me.dbDialect
\r
62 '-------------------------------
\r
63 ' set application-wide defaults
\r
64 '-------------------------------
\r
65 oLiveGrid.highlightElem="menuRow"
\r
66 oLiveGrid.menuEvent=menuevent
\r
71 Public function OpenGridForm(oLiveGrid as object)
\r
73 if not OpenGrid(oLiveGrid) then exit function
\r
75 '-------------------------------
\r
76 ' set security rights
\r
77 '-------------------------------
\r
78 dim CanModify as Boolean=CBool(accessRights="rw")
\r
79 oLiveGrid.canAdd=CanModify
\r
80 oLiveGrid.canEdit=CanModify
\r
81 oLiveGrid.canDelete=CanModify
\r
87 Public sub CloseApp()
\r
88 if IsNothing(dbConnection) then exit sub
\r
89 dbConnection.Close()
\r
90 dbConnection = Nothing
\r
94 Sub Page_Unload(Sender As object, e As EventArgs)
\r