当前位置：如何创建GeoDataBase文件：
本例要实现的是如何创建一个GeoDataBase文件。
l 要点
定义IWorkspaceFactory接口对象，并用esriCore. AccessWorkspaceFactory类来实现，再调用IWorkspaceFactory.Create方法创建一个GeoDataBase文件。
主要用到了IWorkspaceFactory接口。
l 程序说明
函数CreateAccessWorkspace根据要创建的GeoDataBase文件所在路径sFilePath和文件名sFileName创建GeoDataBase文件。
l 代码
|
Private Function CreateAccessWorkspace(sFilePath As String, sFileName As String) Dim pWorkspaceFactory As IWorkspaceFactory Dim sDir As String On Error GoTo ErrorHandler:
sDir = Dir(sFilePath & sFileName & ".mdb") If (sDir <> "") Then MsgBox ("文件已存在") Exit Function End If
'create the Access Workspace factory Set pWorkspaceFactory = New esriCore.AccessWorkspaceFactory pWorkspaceFactory.Create sFilePath, sFileName, Nothing, 0
sDir = Dir(sFilePath & sFileName & ".mdb") If (sDir <> "") Then MsgBox ("Build Success") Else MsgBox ("Build Fail") End If
Exit Function ErrorHandler: MsgBox Err.Description End Function
Private Sub UIButtonControl1_Click() Dim pVBProject As VBProject
On Error GoTo ErrorHandler: Set pVBProject = ThisDocument.VBProject
'Dont include .mdb extension CreateAccessWorkspace pVBProject.FileName & "\..\..\..\.." & "\data\", "MyGEODataFile" Exit Sub ErrorHandler: MsgBox Err.Description End Sub |
