有SDE数据库操作的的代码吗？

有SDE数据库操作的的代码吗？我最近想把图用SDE的方式加载到Mapcontrol里，不知道怎么写？

<P>你这个方法是不是根据要素层的名字，一个一个的加载进去的，是吗？</P>
<P>有一次性打开所有的方法吗？</P>

<P>连接上后，定义个工作空间等同SDE工作空间</P>
<P>Dim pWorkSpaceSDE As IWorkspace <BR>Set pWorkSpaceSDE = pFactSDE.Open(pPropset, Me.hWnd) <BR>然后就是用你的定义的工作空间去打开指定的要素层了</P>

<P>我和SQL Server连接的，请问连接成功以后怎么样将所有的图层都加载到Mapcontrol中去</P>

<PRE>'Example of how to use a property set to open an SDE workspace.

Dim pPropset As IPropertySet
Set pPropset = New PropertySet
With pPropset
.SetProperty "Server", m_SDEServerName
.SetProperty "Instance", m_SDEServerInst
.SetProperty "user", m_SDEServerUserName
.SetProperty "password", m_SDEServerPass
.SetProperty "Database", m_SDEDatabaseName
.SetProperty "version" , m_SDEVersionName
End With

Dim pFactSDE As IWorkspaceFactory
Set pFactSDE = New SdeWorkspaceFactory

Dim pWorkSpaceSDE As IWorkspace
Set pWorkSpaceSDE = pFactSDE.Open(pPropset, Me.hWnd)

'Example of how to use a property set to open a Personal Geodatabase workspace.

Dim pPropset As IPropertySet
Set pPropset = New PropertySet

pPropset.SetProperty "DATABASE", "d:\\data\\Access Data\\First.mdb"

Dim pFactAccess As IWorkspaceFactory
Set pFactAccess = New AccessWorkspaceFactory

Dim pWorkSpaceAccess As IWorkspace
Set pWorkSpaceAccess = pFactAccess.Open(pPropset, Me.hWnd) </PRE>