Dim ERwinWorkspace As Workspace Dim ERwinDatabase As Database Dim ERwinTableDef As TableDef Dim ERwinQueryDef As QueryDef Dim ERwinIndex As Index Dim ERwinField As Field Dim ERwinRelation As Relation Set ERwinWorkspace = DBEngine.WorkSpaces(0) Set ERwinDatabase = ERwinWorkspace.OpenDatabase("sERwinDatabase") ' CREATE TABLE App Set ERwinTableDef = ERwinDatabase.CreateTableDef("App") Set ERwinField = ERwinTableDef.CreateField("Id_app", DB_TEXT, 255) ERwinField.Required = True ERwinTableDef.Fields.Append ERwinField Set ERwinField = ERwinTableDef.CreateField("type_app", DB_TEXT, 255) ERwinTableDef.Fields.Append ERwinField Set ERwinField = ERwinTableDef.CreateField("vid_app", DB_TEXT, 255) ERwinTableDef.Fields.Append ERwinField ERwinDatabase.TableDefs.Append ERwinTableDef Set ERwinField = ERwinTableDef.Fields("Id_app") Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Id_app:") Set ERwinField = ERwinTableDef.Fields("type_app") Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "type_app:") Set ERwinField = ERwinTableDef.Fields("vid_app") Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "vid_app:") ' CREATE INDEX XPKApp Set ERwinTableDef = ERwinDatabase.TableDefs("App") Set ERwinIndex = ERwinTableDef.CreateIndex("XPKApp") Set ERwinField = ERwinIndex.CreateField("Id_app") ERwinIndex.Fields.Append ERwinField ERwinIndex.Primary = True ERwinTableDef.Indexes.Append ERwinIndex ' CREATE TABLE Language Set ERwinTableDef = ERwinDatabase.CreateTableDef("Language") Set ERwinField = ERwinTableDef.CreateField("id_Language", DB_TEXT, 18) ERwinField.Required = True ERwinTableDef.Fields.Append ERwinField Set ERwinField = ERwinTableDef.CreateField("Name_LN", DB_TEXT, 18) ERwinTableDef.Fields.Append ERwinField Set ERwinField = ERwinTableDef.CreateField("type_LN", DB_TEXT, 18) ERwinTableDef.Fields.Append ERwinField Set ERwinField = ERwinTableDef.CreateField("diff_LN", DB_TEXT, 18) ERwinTableDef.Fields.Append ERwinField ERwinDatabase.TableDefs.Append ERwinTableDef Set ERwinField = ERwinTableDef.Fields("id_Language") Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "id_Language:") Set ERwinField = ERwinTableDef.Fields("Name_LN") Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Name_LN:") Set ERwinField = ERwinTableDef.Fields("type_LN") Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "type_LN:") Set ERwinField = ERwinTableDef.Fields("diff_LN") Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "diff_LN:") ' CREATE INDEX XPKLanguage Set ERwinTableDef = ERwinDatabase.TableDefs("Language") Set ERwinIndex = ERwinTableDef.CreateIndex("XPKLanguage") Set ERwinField = ERwinIndex.CreateField("id_Language") ERwinIndex.Fields.Append ERwinField ERwinIndex.Primary = True ERwinTableDef.Indexes.Append ERwinIndex ' CREATE TABLE Order Set ERwinTableDef = ERwinDatabase.CreateTableDef("Order") Set ERwinField = ERwinTableDef.CreateField("id_Order", DB_TEXT, 18) ERwinField.Required = True ERwinTableDef.Fields.Append ERwinField Set ERwinField = ERwinTableDef.CreateField("Id_workers", DB_TEXT, 255) ERwinTableDef.Fields.Append ERwinField Set ERwinField = ERwinTableDef.CreateField("id_Cus", DB_TEXT, 255) ERwinField.Required = True ERwinTableDef.Fields.Append ERwinField ERwinDatabase.TableDefs.Append ERwinTableDef Set ERwinField = ERwinTableDef.Fields("id_Order") Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "id_Order:") Set ERwinField = ERwinTableDef.Fields("Id_workers") Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Id_workers:") Set ERwinField = ERwinTableDef.Fields("id_Cus") Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "id_Cus:") ' CREATE INDEX XPKOrder Set ERwinTableDef = ERwinDatabase.TableDefs("Order") Set ERwinIndex = ERwinTableDef.CreateIndex("XPKOrder") Set ERwinField = ERwinIndex.CreateField("id_Order") ERwinIndex.Fields.Append ERwinField Set ERwinField = ERwinIndex.CreateField("id_Cus") ERwinIndex.Fields.Append ERwinField ERwinIndex.Primary = True ERwinIndex.Clustered = True ERwinTableDef.Indexes.Append ERwinIndex ' CREATE TABLE OS Set ERwinTableDef = ERwinDatabase.CreateTableDef("OS") Set ERwinField = ERwinTableDef.CreateField("id_OS", DB_TEXT, 18) ERwinField.Required = True ERwinTableDef.Fields.Append ERwinField Set ERwinField = ERwinTableDef.CreateField("Name_OS", DB_TEXT, 255) ERwinTableDef.Fields.Append ERwinField Set ERwinField = ERwinTableDef.CreateField("type_OS", DB_TEXT, 255) ERwinTableDef.Fields.Append ERwinField ERwinDatabase.TableDefs.Append ERwinTableDef Set ERwinField = ERwinTableDef.Fields("id_OS") Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "id_OS:") Set ERwinField = ERwinTableDef.Fields("Name_OS") Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Name_OS:") Set ERwinField = ERwinTableDef.Fields("type_OS") Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "type_OS:") ' CREATE INDEX XPKOS Set ERwinTableDef = ERwinDatabase.TableDefs("OS") Set ERwinIndex = ERwinTableDef.CreateIndex("XPKOS") Set ERwinField = ERwinIndex.CreateField("id_OS") ERwinIndex.Fields.Append ERwinField ERwinIndex.Primary = True ERwinTableDef.Indexes.Append ERwinIndex ' CREATE TABLE OS/Language Set ERwinTableDef = ERwinDatabase.CreateTableDef("OS/Language") Set ERwinField = ERwinTableDef.CreateField("id_OS", DB_TEXT, 18) ERwinField.Required = True ERwinTableDef.Fields.Append ERwinField Set ERwinField = ERwinTableDef.CreateField("id_Language", DB_TEXT, 18) ERwinField.Required = True ERwinTableDef.Fields.Append ERwinField ERwinDatabase.TableDefs.Append ERwinTableDef Set ERwinField = ERwinTableDef.Fields("id_OS") Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "id_OS:") Set ERwinField = ERwinTableDef.Fields("id_Language") Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "id_Language:") ' CREATE INDEX XPKOS/Language Set ERwinTableDef = ERwinDatabase.TableDefs("OS/Language") Set ERwinIndex = ERwinTableDef.CreateIndex("XPKOS/Language") Set ERwinField = ERwinIndex.CreateField("id_OS") ERwinIndex.Fields.Append ERwinField Set ERwinField = ERwinIndex.CreateField("id_Language") ERwinIndex.Fields.Append ERwinField ERwinIndex.Primary = True ERwinTableDef.Indexes.Append ERwinIndex ' CREATE TABLE Service Set ERwinTableDef = ERwinDatabase.CreateTableDef("Service") Set ERwinField = ERwinTableDef.CreateField("id_service", DB_TEXT, 255) ERwinField.Required = True ERwinTableDef.Fields.Append ERwinField Set ERwinField = ERwinTableDef.CreateField("vid_ser", DB_TEXT, 255) ERwinTableDef.Fields.Append ERwinField Set ERwinField = ERwinTableDef.CreateField("type_ser", DB_TEXT, 255) ERwinTableDef.Fields.Append ERwinField Set ERwinField = ERwinTableDef.CreateField("diff_ser", DB_TEXT, 255) ERwinTableDef.Fields.Append ERwinField ERwinDatabase.TableDefs.Append ERwinTableDef Set ERwinField = ERwinTableDef.Fields("id_service") Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "id_service:") Set ERwinField = ERwinTableDef.Fields("vid_ser") Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "vid_ser:") Set ERwinField = ERwinTableDef.Fields("type_ser") Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "type_ser:") Set ERwinField = ERwinTableDef.Fields("diff_ser") Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "diff_ser:") ' CREATE INDEX XPKService Set ERwinTableDef = ERwinDatabase.TableDefs("Service") Set ERwinIndex = ERwinTableDef.CreateIndex("XPKService") Set ERwinField = ERwinIndex.CreateField("id_service") ERwinIndex.Fields.Append ERwinField ERwinIndex.Primary = True ERwinTableDef.Indexes.Append ERwinIndex ' CREATE TABLE Summ Set ERwinTableDef = ERwinDatabase.CreateTableDef("Summ") Set ERwinField = ERwinTableDef.CreateField("Id_app", DB_TEXT, 255) ERwinField.Required = True ERwinTableDef.Fields.Append ERwinField Set ERwinField = ERwinTableDef.CreateField("id_service", DB_TEXT, 255) ERwinField.Required = True ERwinTableDef.Fields.Append ERwinField Set ERwinField = ERwinTableDef.CreateField("Price", DB_LONG) ERwinTableDef.Fields.Append ERwinField Set ERwinField = ERwinTableDef.CreateField("id_Summ", DB_TEXT, 255) ERwinField.Required = True ERwinTableDef.Fields.Append ERwinField Set ERwinField = ERwinTableDef.CreateField("id_Order", DB_TEXT, 18) ERwinField.Required = True ERwinTableDef.Fields.Append ERwinField Set ERwinField = ERwinTableDef.CreateField("id_Cus", DB_TEXT, 255) ERwinField.Required = True ERwinTableDef.Fields.Append ERwinField Set ERwinField = ERwinTableDef.CreateField("id_OS", DB_TEXT, 18) ERwinField.Required = True ERwinTableDef.Fields.Append ERwinField Set ERwinField = ERwinTableDef.CreateField("id_Language", DB_TEXT, 18) ERwinField.Required = True ERwinTableDef.Fields.Append ERwinField ERwinDatabase.TableDefs.Append ERwinTableDef Set ERwinField = ERwinTableDef.Fields("Id_app") Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Id_app:") Set ERwinField = ERwinTableDef.Fields("id_service") Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "id_service:") Set ERwinField = ERwinTableDef.Fields("Price") Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Price:") Set ERwinField = ERwinTableDef.Fields("id_Summ") Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "id_Summ:") Set ERwinField = ERwinTableDef.Fields("id_Order") Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "id_Order:") Set ERwinField = ERwinTableDef.Fields("id_Cus") Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "id_Cus:") Set ERwinField = ERwinTableDef.Fields("id_OS") Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "id_OS:") Set ERwinField = ERwinTableDef.Fields("id_Language") Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "id_Language:") ' CREATE INDEX XPKSumm Set ERwinTableDef = ERwinDatabase.TableDefs("Summ") Set ERwinIndex = ERwinTableDef.CreateIndex("XPKSumm") Set ERwinField = ERwinIndex.CreateField("Id_app") ERwinIndex.Fields.Append ERwinField Set ERwinField = ERwinIndex.CreateField("id_service") ERwinIndex.Fields.Append ERwinField Set ERwinField = ERwinIndex.CreateField("id_Summ") ERwinIndex.Fields.Append ERwinField Set ERwinField = ERwinIndex.CreateField("id_Order") ERwinIndex.Fields.Append ERwinField Set ERwinField = ERwinIndex.CreateField("id_Cus") ERwinIndex.Fields.Append ERwinField Set ERwinField = ERwinIndex.CreateField("id_OS") ERwinIndex.Fields.Append ERwinField Set ERwinField = ERwinIndex.CreateField("id_Language") ERwinIndex.Fields.Append ERwinField ERwinIndex.Primary = True ERwinIndex.Clustered = True ERwinTableDef.Indexes.Append ERwinIndex ' CREATE TABLE Workers Set ERwinTableDef = ERwinDatabase.CreateTableDef("Workers") Set ERwinField = ERwinTableDef.CreateField("Id_workers", DB_TEXT, 255) ERwinField.Required = True ERwinTableDef.Fields.Append ERwinField Set ERwinField = ERwinTableDef.CreateField("W_Name", DB_TEXT, 255) ERwinTableDef.Fields.Append ERwinField Set ERwinField = ERwinTableDef.CreateField("W_SecondName", DB_TEXT, 255) ERwinTableDef.Fields.Append ERwinField Set ERwinField = ERwinTableDef.CreateField("W_LastName", DB_TEXT, 255) ERwinTableDef.Fields.Append ERwinField Set ERwinField = ERwinTableDef.CreateField("W_Birth", DB_TEXT, 11) ERwinTableDef.Fields.Append ERwinField Set ERwinField = ERwinTableDef.CreateField("W_State", DB_TEXT, 255) ERwinTableDef.Fields.Append ERwinField ERwinDatabase.TableDefs.Append ERwinTableDef Set ERwinField = ERwinTableDef.Fields("Id_workers") Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Id_workers:") Set ERwinField = ERwinTableDef.Fields("W_Name") Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "W_Name:") Set ERwinField = ERwinTableDef.Fields("W_SecondName") Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "W_SecondName:") Set ERwinField = ERwinTableDef.Fields("W_LastName") Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "W_LastName:") Set ERwinField = ERwinTableDef.Fields("W_Birth") Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "W_Birth:") Set ERwinField = ERwinTableDef.Fields("W_State") Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "W_State:") ' CREATE INDEX XPKWorkers Set ERwinTableDef = ERwinDatabase.TableDefs("Workers") Set ERwinIndex = ERwinTableDef.CreateIndex("XPKWorkers") Set ERwinField = ERwinIndex.CreateField("Id_workers") ERwinIndex.Fields.Append ERwinField ERwinIndex.Primary = True ERwinTableDef.Indexes.Append ERwinIndex ' CREATE TABLE Сustomer Set ERwinTableDef = ERwinDatabase.CreateTableDef("Сustomer") Set ERwinField = ERwinTableDef.CreateField("id_Cus", DB_TEXT, 255) ERwinField.Required = True ERwinTableDef.Fields.Append ERwinField Set ERwinField = ERwinTableDef.CreateField("Cus_Name", DB_TEXT, 255) ERwinTableDef.Fields.Append ERwinField Set ERwinField = ERwinTableDef.CreateField("Cus_SecondName", DB_TEXT, 255) ERwinTableDef.Fields.Append ERwinField Set ERwinField = ERwinTableDef.CreateField("Cus_LastName", DB_TEXT, 255) ERwinTableDef.Fields.Append ERwinField ERwinDatabase.TableDefs.Append ERwinTableDef Set ERwinField = ERwinTableDef.Fields("id_Cus") Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "id_Cus:") Set ERwinField = ERwinTableDef.Fields("Cus_Name") Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Cus_Name:") Set ERwinField = ERwinTableDef.Fields("Cus_SecondName") Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Cus_SecondName:") Set ERwinField = ERwinTableDef.Fields("Cus_LastName") Call SetFieldProp(ERwinField, "Caption", DB_TEXT , "Cus_LastName:") ' CREATE INDEX XPKСustomer Set ERwinTableDef = ERwinDatabase.TableDefs("Сustomer") Set ERwinIndex = ERwinTableDef.CreateIndex("XPKСustomer") Set ERwinField = ERwinIndex.CreateField("id_Cus") ERwinIndex.Fields.Append ERwinField ERwinIndex.Primary = True ERwinTableDef.Indexes.Append ERwinIndex ' CREATE RELATIONSHIP R/47 Set ERwinRelation = ERwinDatabase.CreateRelation(R/47, Workers, Order) Set ERwinField = ERwinRelation.CreateField( "Id_workers" ) ERwinField.ForeignName = Id_workers ERwinRelation.Fields.Append ERwinField ERwinDatabase.Relations.Append ERwinRelation ' CREATE RELATIONSHIP R/48 Set ERwinRelation = ERwinDatabase.CreateRelation(R/48, Сustomer, Order) Set ERwinField = ERwinRelation.CreateField( "id_Cus" ) ERwinField.ForeignName = id_Cus ERwinRelation.Fields.Append ERwinField ERwinDatabase.Relations.Append ERwinRelation ' CREATE RELATIONSHIP R/55 Set ERwinRelation = ERwinDatabase.CreateRelation(R/55, OS, OS/Language) Set ERwinField = ERwinRelation.CreateField( "id_OS" ) ERwinField.ForeignName = id_OS ERwinRelation.Fields.Append ERwinField ERwinDatabase.Relations.Append ERwinRelation ' CREATE RELATIONSHIP R/56 Set ERwinRelation = ERwinDatabase.CreateRelation(R/56, Language, OS/Language) Set ERwinField = ERwinRelation.CreateField( "id_Language" ) ERwinField.ForeignName = id_Language ERwinRelation.Fields.Append ERwinField ERwinDatabase.Relations.Append ERwinRelation ' CREATE RELATIONSHIP R/38 Set ERwinRelation = ERwinDatabase.CreateRelation(R/38, App, Summ) Set ERwinField = ERwinRelation.CreateField( "Id_app" ) ERwinField.ForeignName = Id_app ERwinRelation.Fields.Append ERwinField ERwinDatabase.Relations.Append ERwinRelation ' CREATE RELATIONSHIP R/39 Set ERwinRelation = ERwinDatabase.CreateRelation(R/39, Service, Summ) Set ERwinField = ERwinRelation.CreateField( "id_service" ) ERwinField.ForeignName = id_service ERwinRelation.Fields.Append ERwinField ERwinDatabase.Relations.Append ERwinRelation ' CREATE RELATIONSHIP R/54 Set ERwinRelation = ERwinDatabase.CreateRelation(R/54, Order, Summ) Set ERwinField = ERwinRelation.CreateField( "id_Order" ) ERwinField.ForeignName = id_Order ERwinRelation.Fields.Append ERwinField Set ERwinField = ERwinRelation.CreateField( "id_Cus" ) ERwinField.ForeignName = id_Cus ERwinRelation.Fields.Append ERwinField ERwinDatabase.Relations.Append ERwinRelation ' CREATE RELATIONSHIP R/57 Set ERwinRelation = ERwinDatabase.CreateRelation(R/57, OS/Language, Summ) Set ERwinField = ERwinRelation.CreateField( "id_OS" ) ERwinField.ForeignName = id_OS ERwinRelation.Fields.Append ERwinField Set ERwinField = ERwinRelation.CreateField( "id_Language" ) ERwinField.ForeignName = id_Language ERwinRelation.Fields.Append ERwinField ERwinDatabase.Relations.Append ERwinRelation ERwinDatabase.Close ERwinWorkspace.Close ' Terminating Access Basic DAO Session...
Write, Run & Share MySQL queries online using OneCompiler's MySQL online editor and compiler for free. It's one of the robust, feature-rich online editor and compiler for MySQL. Getting started with the OneCompiler's MySQL editor is really simple and pretty fast. The editor shows sample boilerplate code when you choose language as 'MySQL' and start writing queries to learn and test online without worrying about tedious process of installation.
MySQL is a open-source, free and very popular relational database management system which is developed, distributed and supported by Oracle corporation.
CREATE TABLE table_name (
column1 datatype,
column2 datatype,
....);
CREATE TABLE EMPLOYEE (
empId INTEGER PRIMARY KEY,
name TEXT NOT NULL,
dept TEXT NOT NULL
);
ALTER TABLE Table_name ADD column_name datatype;
INSERT INTO EMPLOYEE VALUES (0001, 'Dave', 'Sales');
TRUNCATE table table_name;
DROP TABLE table_name;
RENAME TABLE table_name1 to new_table_name1;
--Line1;
/* Line1,
Line2 */
INSERT INTO table_name (column1, column2, column3, ...) VALUES (value1, value2, value3, ...);
Note: Column names are optional.
INSERT INTO EMPLOYEE VALUES (0001, 'Ava', 'Sales');
SELECT column1, column2, ...
FROM table_name
[where condition];
SELECT * FROM EMPLOYEE where dept ='sales';
UPDATE table_name
SET column1 = value1, column2 = value2, ...
WHERE condition;
UPDATE EMPLOYEE SET dept = 'Sales' WHERE empId='0001';
DELETE FROM table_name where condition;
DELETE from EMPLOYEE where empId='0001';
CREATE INDEX index_name on table_name(column_name);
CREATE UNIQUE INDEX index_name on table_name(column_name);
DROP INDEX index_name ON table_name;
Creating a View:
CREATE VIEW View_name AS
Query;
SELECT * FROM View_name;
ALTER View View_name AS
Query;
DROP VIEW View_name;
CREATE TRIGGER trigger_name trigger_time trigger_event
ON tbl_name FOR EACH ROW [trigger_order] trigger_body
/* where
trigger_time: { BEFORE | AFTER }
trigger_event: { INSERT | UPDATE | DELETE }
trigger_order: { FOLLOWS | PRECEDES } */
DROP TRIGGER [IF EXISTS] trigger_name;
CREATE PROCEDURE sp_name(p1 datatype)
BEGIN
/*Stored procedure code*/
END;
CALL sp_name;
DROP PROCEDURE sp_name;
SELECT * FROM TABLE1 INNER JOIN TABLE2 where condition;
SELECT * FROM TABLE1 LEFT JOIN TABLE2 ON condition;
SELECT * FROM TABLE1 RIGHT JOIN TABLE2 ON condition;
SELECT select_list from TABLE1 CROSS JOIN TABLE2;