Creates a new OpenEdge database.
When you create a new database by copying an existing database provided by OpenEdge (such as the empty database, demo database, or Sports2000 database), the AVM always assigns the new database a new GUID database identifier.
This procedure prompts for the name of a database to connect. If the database does not exist, the procedure creates it.
r-credb.p
DEFINE VARIABLE dbname AS CHARACTER NO-UNDO LABEL "Database" FORMAT "x(65)".
/* Prompt the user for the name of a demo database to connect. */
SET dbname HELP "Enter the name of your database."
WITH FRAME dbname-frame SIDE-LABELS.
/* If the entered name does not have the .db suffix, add it. This is necessary
for the search function to work correctly. */
IF LENGTH(dbname) < 3 THEN
dbname = dbname + ".db".
ELSE IF SUBSTRING(dbname, LENGTH(dbname) - 2) = ".db" THEN
dbname = dbname + ".db".
/* If the database does not exist, create it from Sports2000. */
IF SEARCH(dbname) = ? THEN DO:
MESSAGE "Database does not exist. Do you want to create it?"
VIEW-AS ALERT-BOX QUESTION BUTTONS YES-NO TITLE "Connect Database"
UPDATE create-it AS LOGICAL.
IF create-it THEN DO:
CREATE DATABASE dbname FROM "Sports2000".
MESSAGE "New database created:" dbname.
END.
ELSE UNDO, RETRY.
END.
/* Connect the database. */
CONNECT VALUE(dbname) -1.
|
ALIAS function, CONNECT statement, CONNECTED function, CREATE ALIAS statement, DATASERVERS function, DBCODEPAGE function, DBCOLLATION function, DBRESTRICTIONS function, DBTYPE function, DELETE ALIAS statement, DISCONNECT statement, ERROR-STATUS system handle, FRAME-DB function, LDBNAME function, NO-ERROR option, NUM-DBS function, PDBNAME function, SDBNAME function