SQL Server 2000 Meta Data Services 是一套以知識庫為基礎的元資料管理技術,允許開發人員將資料庫架構(資料表、關聯性、條件約束等)封裝、版本化、凍結,並在不同專案、環境(開發/測試/訓練)間重複使用,無需重複手工建立。
| 組件 | 功能 |
|---|---|
| 知識庫引擎 | 在 SQL Server 資料庫中儲存、合併、檢索元資料物件模型 |
| Repository API (COM 介面) | 程式化存取知識庫,支援 VB、C++、Script 等語言 |
| 開放資訊模型 (OIM) | 標準化元資料模型定義,支援 UML、CWM 等業界標準 |
| XML 編碼 | 元資料匯入/匯出為 XML,支援 XSLT 轉換 |
| Meta Data Browser (MMC 管理單元) | 圖形化瀏覽、編輯已註冊的知識庫 |
' 參考:Microsoft SQL Server 2000 Meta Data Services Type Library
Dim rep As New Repository
rep.Open "Provider=SQLOLEDB;Data Source=.;Initial Catalog=MetaDB;Integrated Security=SSPI", "", ""
' 建立資料庫套件
Dim dbPkg As RepositoryObject
Set dbPkg = rep.CreateObject("DatabasePackage", "HR_Schema_v1")
' 新增資料表
Dim tbl As RepositoryObject
Set tbl = dbPkg.CreateObject("Table", "Employees")
tbl.Properties("Description") = "員工主檔"
' 新增欄位
Dim col As RepositoryObject
Set col = tbl.CreateObject("Column", "EmpID")
col.Properties("DataType") = "int"
col.Properties("Nullable") = False
col.Properties("Identity") = True
' ... 繼續建立其他欄位、索引、外鍵 ...
' 匯出 XML
Dim xmlDoc As New MSXML2.DOMDocument
rep.ExportXML xmlDoc, dbPkg
xmlDoc.Save "HR_Schema_v1.xml"
' 套用 XSLT 產生文件
Dim xslt As New MSXML2.DOMDocument
xslt.Load "SchemaToDoc.xsl"
Dim htmlDoc As New MSXML2.DOMDocument
xmlDoc.transformNodeToObject xslt, htmlDoc
htmlDoc.Save "HR_Schema_v1.html"
.dacpac(資料層應用程式封裝)+ Git 版控 + CI/CD Pipeline 自動部署驗證。