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 8 database NewModelName = "ShinyNewModel" DBType = 34 Set MyDiagram = DiagramManager.ActiveDiagram MyDiagram.Models.Add(NewModelName,34)
See Also