Major changes to the Rico 3 server control for SimpleGrids - much improved control...

[infodrom/rico3] / examples / dotnet / dbConnect.ascx

diff --git a/examples/dotnet/dbConnect.ascx b/examples/dotnet/dbConnect.ascx
index 8caa58a..1a2340c 100644 (file)
--- a/examples/dotnet/dbConnect.ascx
+++ b/examples/dotnet/dbConnect.ascx
@@ -3,23 +3,24 @@
 <%@ Import Namespace="System.Data.OleDb" %>\r
 <%@ Import Namespace="System.Data.SqlClient" %>\r
 <%@ Import Namespace="System.Data.Odbc" %>\r
+<%@ Import Namespace="Rico" %>\r
 \r
 <script runat="server">\r
 \r
 Public dbConnection as object, accessRights as string\r
 Public LastErrorMsg as String\r
 Public defaultDB as String = "Northwind"\r
-Public const dbDialect     = "Access"   ' What kind of database are we connecting to?\r
+Public dbDialect as dbDialects = dbDialects.Access\r
 \r
 \r
 Public Function OpenDB()\r
   try\r
     select case dbDialect\r
-      case "Access": dbConnection = new OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("../data/" & defaultDB & ".mdb") & ";User ID=;Password=;")\r
-      case "TSQL":   dbConnection = new SqlConnection("Data Source=MATTSPROBOOK\SQLEXPRESS;User ID=userid;Password=password;Initial Catalog=" & defaultDB & ";")\r
-      case "Oracle": dbConnection = new OleDbConnection("Provider=OraOLEDB.Oracle;Data Source=XE;User ID=" & defaultDB & ";Password=Password;")\r
-      case "MySQL":  dbConnection = new OdbcConnection("DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=" & defaultDB & ";USER=userid;PASSWORD=password;")\r
-      case "DB2":    dbConnection = new OleDbConnection("Provider=IBMDADB2;Data Source=NORTHWND;Protocol=local;CurrentSchema=SCHEMA;User ID=userid;Password=password;")\r
+      case dbDialects.Access: dbConnection = new OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("../data/" & defaultDB & ".mdb") & ";User ID=;Password=;")\r
+      case dbDialects.TSQL:   dbConnection = new SqlConnection("Data Source=MATTSPROBOOK\SQLEXPRESS;User ID=userid;Password=password;Initial Catalog=" & defaultDB & ";")\r
+      case dbDialects.Oracle: dbConnection = new OleDbConnection("Provider=OraOLEDB.Oracle;Data Source=XE;User ID=" & defaultDB & ";Password=Password;")\r
+      case dbDialects.MySQL:  dbConnection = new OdbcConnection("DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=" & defaultDB & ";USER=userid;PASSWORD=password;")\r
+      case dbDialects.DB2:    dbConnection = new OleDbConnection("Provider=IBMDADB2;Data Source=NORTHWND;Protocol=local;CurrentSchema=SCHEMA;User ID=userid;Password=password;")\r
     end select\r
     dbConnection.Open()\r
     OpenDB=true\r
@@ -42,7 +43,7 @@ Public function OpenApp()
 end function\r
 \r
 \r
-Public function OpenGrid(oLiveGrid as object, optional menuevent as string = "click")\r
+Public function OpenGrid(oLiveGrid as object, optional menuevent as menuEvents = menuEvents.click)\r
   OpenGrid=false\r
   if not OpenApp() then\r
     response.write("ERROR: " & LastErrorMsg)\r
@@ -54,7 +55,7 @@ Public function OpenGrid(oLiveGrid as object, optional menuevent as string = "cl
 end function\r
 \r
 \r
-Public sub SetGridOptions(oLiveGrid as object, optional menuevent as string = "click")\r
+Public sub SetGridOptions(oLiveGrid as object, optional menuevent as menuEvents = menuEvents.click)\r
   oLiveGrid.dbConnection=Me.dbConnection\r
   oLiveGrid.dbDialect=Me.dbDialect\r
 \r