導讀:1建站知識Excel通過ADO方式連接到Oracle并操作Oracle給我們這些編程能力不強的人帶來很大的福音，結合著Excel的數據處理與圖表制網站建設制作seo網站排名優化軟件。

以下是通過Excel 的VBA連接Oracle并操作Oracle相關數據的示例Excel 通過VBA連接數據庫需要安裝相應的Oracle客戶端工具并引用ADO的相關組件，引用ADO相關組件可按如下步驟操作： 　　1、打開VBA編輯器，在菜單中點選“工具”，“引用”； 　　2、確保“Microsoft ActiviteX Data Objects 2.8 Library”和“Microsoft ActiviteX Data ObjectS Recordset 2.8 Library”被勾選上。 　　建立連接過程，代碼如下：

復制代碼 代碼如下:

Public Sub ConOra() On Error GoTo ErrMsg: Dim ConnDB As ADODB.Connection Set ConnDB = New ADODB.Connection Dim ConnStr As String Dim DBRst As ADODB.Recordset Set DBRst = New ADODB.Recordset Dim SQLRst As String Dim OraOpen As Boolean OraOpen = False OraID="Orcl" 'Oracle數據庫的相關配置 OraUsr="user" OraPwd="password" ConnStr = "Provider = MSDAORA.1;Password=seo網站排名優化軟件" & OraPwd & _ ";User;Data Source=" & OraID & _ ";Persist Security Info=True" ConnDB.CursorLocation = adUseServer ConnDB.Open ConnStr OraOpen = True '成功執行后，數據庫即被打開 'MsgBox "Connect to the oracle database Successful!", vbInformation, "Connect Successful" DBRst.ActiveConnection = ConnDB DBRst.CursorLocation = adUseServer DBRst.LockType = adLockBatchOptimistic SQLRst = "Select * From TstTab" DBRst.Open SQLRst, ConnDB, adOpenStatic, adLockBatchOptimistic DBRst.MoveFirst Exit Function ErrMsg: OraOpen = False MsgBox "Connect to the oracle database fail ,please check!", vbCritical, "Connect fail!" End Function Public Sub ConOra() On Error GoTo ErrMsg: Dim ConnDB As ADODB.Connection Set ConnDB = New ADODB.Connection Dim ConnStr As String Dim DBRst As ADODB公司網站建設.Recordset Set DBRst = New ADODB.Recordset Dim SQLRst As String Dim OraOpen As Boolean OraOpen = False OraID="Orcl" 'Oracle數據庫的相關配置 OraUsr="user" OraPwd="password" ConnStr = "Provider = MSDAORA.1;Password=" & OraPwd & _ ";User;Data Source=" & OraID & _ ";Persist Security Info=True" ConnDB.CursorLocation = adUseServer ConnDB.Open ConnStr OraOpen = True '成功執行后，數據庫即被打開 'MsgBox "Connect to the oracle database Successful!", vbInfseo網站優化軟件ormation, "Connect Successful" DBRst.ActiveConnection = ConnDB DBRst.CursorLocation = adUseServer DBRst.LockType = adLockBatchOptimistic SQLRst = "Select * From TstTab" DBRst.Open SQLRst, ConnDB, adOpenStatic, adLockBatchOptimistic DBRst.MoveFirst Exit Function ErrMsg: OraOpen = False MsgBox "Connect to the oracle database fail ,please check!", vbCritical, "Connect fail!" End Function

可以根據需要調整SQL語句，獲取相關數據，并輸出到Excel完成數據處理 上述代碼在Windows XP SP3/2003 SP2 + Office2003下測試通過.相關網站建設制作seo網站排名優化軟件。

關鍵詞標簽: 操作 標簽