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

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

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

Private Sub getSDETable()

使用SDE的工作空間工廠(chǎng)，不同類(lèi)型的數(shù)據(jù)庫(kù)連接的時(shí)侯使用不同的工廠(chǎng)對(duì)象

Dim pWorkspaceFactory As IWorkspaceFactory

pWorkspaceFactory = New SdeWorkspaceFactory

Dim pPropertySet As IPropertySet

pPropertySet = New PropertySet

With pPropertySet

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

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

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

.SetProperty("password", "sde")

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

End With

定義要素工作空間

Dim pSdeWorkspace As IFeatureWorkspace

Try

pSdeWorkspace = pWorkspaceFactory.Open(pPropertySet, 0)

Catch ex As Exception

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

End Try

取出一個(gè)表

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

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

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

pRow = pCursor.NextRow

Loop

End If

End Sub

如果要去要素類(lèi)很多幫助里面都可以看到，可是取一個(gè)table就沒(méi)看到過(guò)例子，我其實(shí)對(duì)于取一個(gè)表要通過(guò)ifeatureworkspace接口也是很迷惑，因?yàn)樵贠MD圖中，featureclass是table的子類(lèi)，這樣在workspace里面應(yīng)該有專(zhuān)門(mén)管理table的接口，但是沒(méi)有哦。

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

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

這里打開(kāi)工作空間使用的是另一種工作空間工廠(chǎng)，但是打開(kāi)后使用的方法是一樣的。其實(shí)無(wú)論是那里的表，其管理方法都是一致的。

總結(jié)

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

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