1 <%@ Control Language="vb" debug="true"%>
\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
7 <script runat="server">
\r
9 Public dbConnection as object, accessRights as string
\r
10 Public LastErrorMsg as String
\r
11 Public defaultDB as String = "Northwind"
\r
12 Public const dbDialect = "Access" ' What kind of database are we connecting to?
\r
15 Public Function OpenDB()
\r
17 select case dbDialect
\r
18 case "Access": dbConnection = new OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("../data/" & defaultDB & ".mdb") & ";User ID=;Password=;")
\r
19 case "TSQL": dbConnection = new SqlConnection("Data Source=mbrown27;User ID=userid;Password=password;Initial Catalog=" & defaultDB & ";")
\r
20 case "Oracle": dbConnection = new OleDbConnection("Provider=OraOLEDB.Oracle;Data Source=XE;User ID=" & defaultDB & ";Password=Password;")
\r
21 case "MySQL": dbConnection = new OdbcConnection("DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=" & defaultDB & ";USER=userid;PASSWORD=password;")
\r
22 case "DB2": dbConnection = new OleDbConnection("Provider=IBMDADB2;Data Source=NORTHWND;Protocol=local;CurrentSchema=SCHEMA;User ID=userid;Password=password;")
\r
26 Catch ex As Exception
\r
28 LastErrorMsg=ex.Message
\r
33 Public function OpenApp()
\r
35 if not OpenDB then exit function
\r
36 accessRights="rw" ' CHECK APPLICATION SECURITY HERE (in this example, "r" gives read-only access and "rw" gives read/write access)
\r
37 if IsNothing(accessRights) OrElse left(accessRights,1)<>"r" then
\r
38 LastErrorMsg="You do not have permission to access this application"
\r
45 Public function OpenGridForm(oLiveGrid as object)
\r
47 if not OpenApp() then
\r
48 response.write("ERROR: " & LastErrorMsg)
\r
52 oLiveGrid.dbConnection=Me.dbConnection
\r
53 oLiveGrid.dbDialect=Me.dbDialect
\r
55 '-------------------------------
\r
56 ' set application-wide defaults
\r
57 '-------------------------------
\r
58 'oLiveGrid.dataProvider="ricoXMLquery.aspx"
\r
59 oLiveGrid.highlightElem="menuRow"
\r
60 oLiveGrid.menuEvent="click"
\r
63 '-------------------------------
\r
64 ' set security rights
\r
65 '-------------------------------
\r
66 dim CanModify as Boolean=CBool(accessRights="rw")
\r
67 oLiveGrid.canAdd=CanModify
\r
68 oLiveGrid.canEdit=CanModify
\r
69 oLiveGrid.canDelete=CanModify
\r
75 Public sub CloseApp()
\r
76 if IsNothing(dbConnection) then exit sub
\r
77 dbConnection.Close()
\r
78 dbConnection = Nothing
\r
82 Sub Page_Unload(Sender As object, e As EventArgs)
\r