workspaces.append-26

workspaces.Append object
======================================================
e1:
Dim wrk As DAO.Workspace
Set wrk = DBEngine.CreateWorkspace("w1", "admin", "")
DBEngine.Workspaces.Append wrk
Debug.Print DBEngine.Workspaces(1).Name //w1
Debug.Print DBEngine.Workspaces("w1").Name //w1
Debug.Print DBEngine.Workspaces![w1].Name //w1
========================================================
e2:Workspace进出集合。。。。
Dim wrk As DAO.Workspace
Dim wrk1 As DAO.Workspace
Dim db As DAO.Database
Dim db1 As DAO.Database
Set wrk = DBEngine.CreateWorkspace("w1", "admin", "")
For i = 0 To DBEngine.Workspaces.Count - 1
Debug.Print DBEngine.Workspaces(i).Name
Next
//
#Default Workspace#
//
Debug.Print "---------------1---------------"
DBEngine.Workspaces.Append wrk
For i = 0 To DBEngine.Workspaces.Count - 1
Debug.Print DBEngine.Workspaces(i).Name
Next
//
#Default Workspace#
w1
//
Set wrk1 = DBEngine.CreateWorkspace("w2", "admin", "")
Debug.Print "----------------2---------------"
For i = 0 To DBEngine.Workspaces.Count - 1
Debug.Print DBEngine.Workspaces(i).Name
Next
//
#Default Workspace#
w1
//
Debug.Print "----------------3---------------"
DBEngine.Workspaces.Append wrk1
For i = 0 To DBEngine.Workspaces.Count - 1
Debug.Print DBEngine.Workspaces(i).Name
Next
//
#Default Workspace#
w1
w2
//
wrk.Close
Debug.Print "----------------4---------------"
For i = 0 To DBEngine.Workspaces.Count - 1
Debug.Print DBEngine.Workspaces(i).Name
Next
//
#Default Workspace#
w2
//
========================================================

第1页