AO中一些打开数据的代码(VB6)

 '----------------------------------------------------------------
'函数功能：从本地文件打开一个FeatureClass
'----------------------------------------------------------------
Public Function OpenFC(sPath As String, sName As String) As

IFeatureClass
Dim pWSF As IWorkspaceFactory
Dim pFCWS As IFeatureWorkspace
Dim pFC As IFeatureClass
Set pWSF = New ShapefileWorkspaceFactory
Set pFCWS = pWSF.OpenFromFile(sPath, 0)
Set pFC = pFCWS.OpenFeatureClass(sName)
Set OpenFC = pFC
Set pFC = Nothing
End Function

'--------------------------------------------------------
'函数功能：从本地文件打开一个dbase表
'--------------------------------------------------------
Public Function OpenTable(sFilePath As String, sTableName As String) As

ITable
Dim pWorkspace As IWorkspace
Dim pFact As IWorkspaceFactory
Set pFact = New ShapefileWorkspaceFactory
Set pWorkspace = pFact.OpenFromFile(sFilePath, 0)
Dim pFWorkspace As IFeatureWorkspace
Set pFWorkspace = pWorkspace
Dim pTable As ITable
Set pTable = pFWorkspace.OpenTable(sTableName)
Set OpenTable = pTable
Set pTable = Nothing
End Function

'---------------------------------------------
'函数功能：打开本地的栅格影像
'---------------------------------------------
Public Function OpenRasterDataset(sDir As String, sFile As String) As

IRasterDataset
'Open the raster dataset with the given name.
'sDir is the directory the file resides
'sFile is the filename
Dim pWsFact As IWorkspaceFactory
Dim pWS As IRasterWorkspace
Dim pRasterDataset As IRasterDataset
'Open the workspace
Set pWsFact = New RasterWorkspaceFactory
Set pWS = pWsFact.OpenFromFile(sDir, 0)
'Open the raster dataset
Set pRasterDataset = pWS.OpenRasterDataset(sFile)
'Return
Set OpenRasterDataset = pRasterDataset
Set pWsFact = Nothing
Set pWS = Nothing
Set pRasterDataset = Nothing
End Function

'----------------------------
'打开一个workspace
'----------------------------
Public Function OpenWS(sPathName As String) As IWorkspace
Dim pWSF As IWorkspaceFactory
Dim pWS As IWorkspace
Set pWSF = New ShapefileWorkspaceFactory
Set pWS = pWSF.OpenFromFile(sPathName, 0)
Set OpenWS = pWS
Set pWS = Nothing
End Function