如何创建GeoDataBase文件附代码

qiang · 发表于 2009-12-15 09:04

如何创建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