Description

Creates a new model with the given name and database type, and then returns the new model to the caller. PARAMETERS: Name (String), DatabaseType_ID (Integer).

Syntax

Public Function Add( _
   ByVal Name As Variant, _
   ByVal DatabaseType_ID As Variant _
) As Model

Parameters

  • Name
  • DatabaseType_ID

The supported database types and their corresponding ID are:

  • 1 = Microsoft SQL Server 4.x

  • 2 = Sybase System 10.x

  • 3 = MS SQL SERVER 6.x

  • 4 = Sybase Watcom SQL

  • 6 = Informix Online

  • 7 = Informix SE

  • 8 = Oracle 7.x

  • 9 = IBM DB2 Common Server

  • 10 = Interbase

  • 11 = Sybase ASE 11.0

  • 12 = Sybase SQL Anywhere 5.x

  • 14 = Microsoft Access

  • 15 = Microsoft Access 2.0

  • 16 = Microsoft Access 95

  • 17 = Microsoft Visual FoxPro 2.x

  • 28 = Microsoft Visual FoxPro 3.x

  • 30 = Microsoft Access 97

  • 31 = Microsoft Visual FoxPro 5.x

  • 32 = IBM DB2 UDB 5.x

  • 33 = Microsoft SQL SERVER 7.x

  • 34 = Oracle 8.X

  • 35 = Sybase ASA 6.0

  • 36 = Sybase ASE 11.9

  • 37 = Sybase ASE 11.5

  • 38 = IBM DB2 UDB 6.x

  • 39 = IBM DB2 UDB for OS/390 6.x

  • 40 = IBM DB2 UDB for OS/390 5.x

  • 41 = Microsoft SQL Server 2000

  • 42 = Microsoft Access 2000

  • 43 = Sybase ASE 12.0

  • 44 = IBM DB2 UDB 7.x

  • 45 = Hitachi HiRDB

  • 46 = IBM DB2 UDB for OS/390 7.x

  • 47 = Oracle 9i

  • 48 = IBM DB2 AS/400 4.x

  • 49 = Sybase Adaptive Server IQ 12.5

  • 51 = Generic DBMS

  • 54 = Sybase ASE 12.5

  • 55 = Sybase ASA 7.0

  • 56 = Sybase ASA 8.0

  • 57 = NCR Teradata V2R4

  • 58 = MySQL 3.x

  • 59 = IBM DB2 UDB 8.x

  • 60 = MySQL 4.x

  • 61 = NCR Teradata V2R5

  • 62 = IBM DB2 AS/400 5.x

  • 64 = Sybase ASA 9.0

  • 65 = Informix 9.x

  • 66 = Oracle 10g

  • 68 = Microsoft SQL Server 2005

  • 69 = IBM DB2 UDB for OS/390 8.x

  • 70 = Generic ODBC

  • 71 = NCR Teradata V2R6

  • 72 = PostgreSQL 8.0

  • 73 = MySQL 5.x

  • 74 = IBM DB2 UDB 9.x

  • 75 = Sybase ASE 15

  • 77 = Oracle 11g

  • 78 = IBM DB2 for OS/390 9.x

  • 79 = Sybase ASA 10.0

  • 81 = InterBase 2007

  • 82 = Microsoft SQL Server 2008

  • 83 = InterBase 2009

  • 84 = Teradata 12.0

  • 85 = Netezza 4.6

  • 86 = Netezza 5.0

  • 87 = NCR Teradata 13.x

  • 88 = Netezza 6.0

  • 89 = Microsoft SQL Server 2012

  • 90 = IBM DB2 UDB for OS/390 10.x

  • 91 = PostgreSQL 9.x

  • 92 = GreenPlum 4.x

  • 93 = NCR Teradata 14.0

  • 94 = Netezza 7.0

  • 95 = IBM DB2 LUW 10.x

  • 96 = InterBase XE

  • 97 = InterBase XE3

  • 98 = Firebird 1.5

  • 99 = Firebird 2.x

  • 100 = Oracle 12c

  • 101 = Microsoft SQL Server 2014

  • 102 = Hive 0.12

  • 103 = MongoDB 2.4

  • 104 = Sybase Adaptive Server IQ 15

  • 105 = Sybase Adaptive Server IQ 16

  • 106 = Teradata v15

  • 107 = Microsoft SQL Azure

  • 108 = Microsoft SQL Server 2016

  • 109 = IBM DB2 UDB for OS/390 11.x

  • 110 = MongoDB 3.x

  • 111 = Microsoft SQL Server 2017

  • 112 = Amazon Redshift

  • 113 = PostgreSQL 10.x - 12.x

  • 114 = Snowflake

  • 115 = Oracle 18c

  • 116 = Oracle 19c

  • 117 = MySQL 8.x

  • 118 = Microsoft SQL Server 2019

  • 119 = Microsoft Azure Synapse Analytics

  • 120 = MongoDB 4.x

  • 121 = JSON Instance

  • 122 = Google BigQuery

Return Type

Creates a new model with the given name and database type, adds it to the diagram, and then returns the new model to the caller.

Example

Dim MyDiagram As Diagram
Dim NewModelName As String
Dim DBType As Integer
 
'Setting the new model name and the database type as an Oracle 12c database
 
NewModelName = "ShinyNewModel"
DBType = 100
 
Set MyDiagram = DiagramManager.ActiveDiagram
MyDiagram.Models.Add(NewModelName,100)

See Also

  • No labels