昨天做了個程序，是將一個本地SHP文件和一個SDE上的表進行匹配比較，然后生成一個新的SDE要素類。其中涉級到使用AO連接ORACLE數(shù)據(jù)庫的問題和如何從數(shù)據(jù)庫中取出一個表的操作，代碼貼下來給大家看看：

連接數(shù)據(jù)庫，首先需要了解AO操作數(shù)據(jù)的基本流程：AO的geodatabase數(shù)據(jù)模型具有獨立性，與具體的存儲介質(zhì)無關(guān)，即無論是數(shù)據(jù)庫管理還是文件存儲數(shù)據(jù)，AO都是使用相同的操作方式來管理數(shù)據(jù)的。在geodatabase中，workspace相當于一個數(shù)據(jù)庫，這個數(shù)據(jù)庫存儲的東西很多，如要素數(shù)據(jù)集、要素類，柵格數(shù)據(jù)集，表等等。(具體的可看OMD圖)

1.使用AO連接到SDE+ORACLE數(shù)據(jù)庫

Private Sub getSDETable()

使用SDE的工作空間工廠，不同類型的數(shù)據(jù)庫連接的時侯使用不同的工廠對象

Dim pWorkspaceFactory As IWorkspaceFactory

pWorkspaceFactory = New SdeWorkspaceFactory

Dim pPropertySet As IPropertySet

pPropertySet = New PropertySet

With pPropertySet

.SetProperty("Server", "data") 服務(wù)器

.SetProperty("Instance", "5151/tcp") 實例

.SetProperty("user", "sde") SDE數(shù)據(jù)表空間的用戶名

.SetProperty("password", "sde")

.SetProperty("version", "sde.DEFAULT") 默認版本

End With

定義要素工作空間

Dim pSdeWorkspace As IFeatureWorkspace

Try

pSdeWorkspace = pWorkspaceFactory.Open(pPropertySet, 0)

Catch ex As Exception

MessageBox.Show("SDE Cann't Connection")

End Try

取出一個表

Dim pTable As ITable

pTable = pSdeWorkspace.OpenTable("NHGTWEB.WEB_YQLJ")

If pTable Is Nothing Then

MessageBox.Show("Connection Error")

Else

看取出每條記錄的方法

Dim pCursor As ICursor

pCursor = pTable.Search(Nothing, False)

Dim pRow As IRow

pRow = pCursor.NextRow

Do While Not pRow Is Nothing

取出表中的每一條記錄，加到一個COMBOBOX中去

UiComboBox1.Items.Add(pRow.Value(2))

pRow = pCursor.NextRow

Loop

End If

End Sub

如果要去要素類很多幫助里面都可以看到，可是取一個table就沒看到過例子，我其實對于取一個表要通過ifeatureworkspace接口也是很迷惑，因為在OMD圖中，featureclass是table的子類，這樣在workspace里面應(yīng)該有專門管理table的接口，但是沒有哦。

2.使用AO連接普通的ORACLE數(shù)據(jù)庫

Private Sub getORACLE()

Dim pWorkspaceFactory As IWorkspaceFactory

pWorkspaceFactory = New OLEDBWorkspaceFactory

Dim pPropertySet As IPropertySet

pPropertySet = New PropertySet

pPropertySet.SetProperty("CONNECTSTRING",

"Provider=oraoledb.oracle;Data Source=nhgtfc;User

Id=nhgtfc;Password=nhgtfc")

Dim pWorkspace As IFeatureWorkspace

pWorkspace = pWorkspaceFactory.Open(pPropertySet, 0)

If pWorkspace Is Nothing Then

MessageBox.Show("connect error!")

Else

pTable = pWorkspace.OpenTable("NHGTZYJ_TDJBXX")

End If

End Sub

這里打開工作空間使用的是另一種工作空間工廠，但是打開后使用的方法是一樣的。其實無論是那里的表，其管理方法都是一致的。

總結(jié)

以上是生活随笔為你收集整理的ao能连接oracle吗,[转载]使用AO连接ORACLE数据库的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。