home *** CD-ROM | disk | FTP | other *** search
/ Java 1.2 How-To / JavaHowTo.iso / 3rdParty / jbuilder / TRIAL / JBUILDER / JSAMPLES.Z / CreateProcedures.java < prev    next >
Encoding:
Java Source  |  1998-05-08  |  3.8 KB  |  93 lines
  1. /*
  2.  * Copyright (c) 1997-1998 Borland International, Inc. All Rights Reserved.
  3.  * 
  4.  * This SOURCE CODE FILE, which has been provided by Borland as part
  5.  * of a Borland product for use ONLY by licensed users of the product,
  6.  * includes CONFIDENTIAL and PROPRIETARY information of Borland.  
  7.  *
  8.  * USE OF THIS SOFTWARE IS GOVERNED BY THE TERMS AND CONDITIONS 
  9.  * OF THE LICENSE STATEMENT AND LIMITED WARRANTY FURNISHED WITH
  10.  * THE PRODUCT.
  11.  *
  12.  * IN PARTICULAR, YOU WILL INDEMNIFY AND HOLD BORLAND, ITS RELATED
  13.  * COMPANIES AND ITS SUPPLIERS, HARMLESS FROM AND AGAINST ANY CLAIMS
  14.  * OR LIABILITIES ARISING OUT OF THE USE, REPRODUCTION, OR DISTRIBUTION
  15.  * OF YOUR PROGRAMS, INCLUDING ANY CLAIMS OR LIABILITIES ARISING OUT OF
  16.  * OR RESULTING FROM THE USE, MODIFICATION, OR DISTRIBUTION OF PROGRAMS
  17.  * OR FILES CREATED FROM, BASED ON, AND/OR DERIVED FROM THIS SOURCE
  18.  * CODE FILE.
  19.  */
  20. package borland.samples.tutorial.dataset.storproc.procsetup;
  21.  
  22. import borland.jbcl.dataset.*;
  23. import borland.sql.dataset.*;
  24. import java.sql.*;
  25.  
  26. public class CreateProcedures {
  27.  
  28.   public static void main(String[] args) throws DataSetException {
  29.     Database database1 = new Database();
  30.     database1.setConnection(new ConnectionDescriptor("jdbc:odbc:dataset tutorial", "sysdba", "masterkey", false, "sun.jdbc.odbc.JdbcOdbcDriver"));
  31.     try { database1.executeStatement("DROP PROCEDURE GET_COUNTRIES"); } catch (Exception ex) {};
  32.     try { database1.executeStatement("DROP PROCEDURE UPDATE_COUNTRY"); } catch (Exception ex) {};
  33.     try { database1.executeStatement("DROP PROCEDURE INSERT_COUNTRY"); } catch (Exception ex) {};
  34.     try { database1.executeStatement("DROP PROCEDURE DELETE_COUNTRY"); } catch (Exception ex) {};
  35.     database1.executeStatement(getCountriesProc);
  36.     database1.executeStatement(updateProc);
  37.     database1.executeStatement(deleteProc);
  38.     database1.executeStatement(insertProc);
  39.     database1.closeConnection();
  40.   }                                            
  41.  
  42.   static final String getCountriesProc = 
  43.   
  44. "CREATE PROCEDURE GET_COUNTRIES RETURNS (     \r\n"+
  45. "  COUNTRY VARCHAR(15),                       \r\n"+
  46. "  CURRENCY VARCHAR(10) ) AS                  \r\n"+
  47. "BEGIN                                        \r\n"+
  48. " FOR SELECT c.country, c.currency            \r\n"+
  49. "  FROM country c                             \r\n"+
  50. "  INTO :COUNTRY,:CURRENCY                    \r\n"+
  51. " DO                                          \r\n"+
  52. " BEGIN                                       \r\n"+
  53. "  SUSPEND;                                   \r\n"+
  54. " END                                         \r\n"+
  55. "END;";
  56.  
  57.  
  58.   
  59.   static final String updateProc = 
  60.   
  61. "CREATE PROCEDURE UPDATE_COUNTRY(             \r\n"+
  62. "  OLD_COUNTRY VARCHAR(15),                   \r\n"+
  63. "  NEW_COUNTRY VARCHAR(15),                   \r\n"+
  64. "  NEW_CURRENCY VARCHAR(20) ) AS              \r\n"+
  65. "BEGIN                                        \r\n"+
  66. "  UPDATE country                             \r\n"+
  67. "    SET country = :NEW_COUNTRY               \r\n"+
  68. "    WHERE country = :OLD_COUNTRY;            \r\n"+
  69. "END;";
  70.  
  71.  
  72.  
  73.   static final String insertProc = 
  74.   
  75. "CREATE PROCEDURE INSERT_COUNTRY(             \r\n"+
  76. "  NEW_COUNTRY VARCHAR(15),                   \r\n"+
  77. "  NEW_CURRENCY VARCHAR(20) ) AS              \r\n"+
  78. "BEGIN                                        \r\n"+
  79. "  INSERT INTO country(country,currency)      \r\n"+
  80. "    VALUES (:NEW_COUNTRY,:NEW_CURRENCY);     \r\n"+
  81. "END;";
  82.  
  83.  
  84.   static final String deleteProc = 
  85.   
  86. "CREATE PROCEDURE DELETE_COUNTRY(             \r\n"+
  87. "  OLD_COUNTRY VARCHAR(15) ) AS               \r\n"+
  88. "BEGIN                                        \r\n"+
  89. "  DELETE FROM country                        \r\n"+
  90. "    WHERE country = :OLD_COUNTRY;            \r\n"+
  91. "END;";
  92. }                           
  93.