最新文章專題視頻專題問答1問答10問答100問答1000問答2000關(guān)鍵字專題1關(guān)鍵字專題50關(guān)鍵字專題500關(guān)鍵字專題1500TAG最新視頻文章視頻文章20視頻文章30視頻文章40視頻文章50視頻文章60 視頻文章70視頻文章80視頻文章90視頻文章100視頻文章120視頻文章140 視頻2關(guān)鍵字專題關(guān)鍵字專題tag2tag3文章專題文章專題2文章索引1文章索引2文章索引3文章索引4文章索引5123456789101112131415文章專題3
當前位置： 首頁 - 科技 - 知識百科 - 正文

ExcelVBA連接并操作Oracle

來源：懂視網(wǎng) 責編：小采 時間：2020-11-09 09:24:51
文檔

ExcelVBA連接并操作Oracle

ExcelVBA連接并操作Oracle:Excel通過ADO方式連接到Oracle并操作Oracle給我們這些編程能力不強的人帶來很大的福音，結(jié)合著Excel的數(shù)據(jù)處理與圖表制作，就能很輕松地處理一些常規(guī)工作。 以下是通過Excel 的VBA連接Oracle并操作Oracle相關(guān)數(shù)據(jù)的示例Excel 通過VBA連接數(shù)據(jù)庫需要
推薦度：
導讀ExcelVBA連接并操作Oracle:Excel通過ADO方式連接到Oracle并操作Oracle給我們這些編程能力不強的人帶來很大的福音，結(jié)合著Excel的數(shù)據(jù)處理與圖表制作，就能很輕松地處理一些常規(guī)工作。 以下是通過Excel 的VBA連接Oracle并操作Oracle相關(guān)數(shù)據(jù)的示例Excel 通過VBA連接數(shù)據(jù)庫需要

Excel通過ADO方式連接到Oracle并操作Oracle給我們這些編程能力不強的人帶來很大的福音，結(jié)合著Excel的數(shù)據(jù)處理與圖表制作，就能很輕松地處理一些常規(guī)工作。

以下是通過Excel 的VBA連接Oracle并操作Oracle相關(guān)數(shù)據(jù)的示例
Excel 通過VBA連接數(shù)據(jù)庫需要安裝相應(yīng)的Oracle客戶端工具并引用ADO的相關(guān)組件，引用ADO相關(guān)組件可按如下步驟操作：
　　1、打開VBA編輯器，在菜單中點選“工具”，“引用”；
　　2、確?！癕icrosoft 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數(shù)據(jù)庫的相關(guān)配置 
OraUsr="user" 
OraPwd="password" 
ConnStr = "Provider = MSDAORA.1;Password=" & OraPwd & _ 
";User ID=" & OraUsr & _ 
";Data Source=" & OraID & _ 
";Persist Security Info=True" 
ConnDB.CursorLocation = adUseServer 
ConnDB.Open ConnStr 
OraOpen = True '成功執(zhí)行后，數(shù)據(jù)庫即被打開 
'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數(shù)據(jù)庫的相關(guān)配置 
OraUsr="user" 
OraPwd="password" 
ConnStr = "Provider = MSDAORA.1;Password=" & OraPwd & _ 
";User ID=" & OraUsr & _ 
";Data Source=" & OraID & _ 
";Persist Security Info=True" 
ConnDB.CursorLocation = adUseServer 
ConnDB.Open ConnStr 
OraOpen = True '成功執(zhí)行后，數(shù)據(jù)庫即被打開 
'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 
 
可以根據(jù)需要調(diào)整SQL語句，獲取相關(guān)數(shù)據(jù)，并
輸出到Excel完成數(shù)據(jù)處理
上述代碼在Windows XP SP3/2003 SP2 + Office2003下測試通過.

聲明：本網(wǎng)頁內(nèi)容旨在傳播知識，若有侵權(quán)等問題請及時與本網(wǎng)聯(lián)系，我們將在第一時間刪除處理。TEL:177 7030 7066 E-MAIL:11247931@qq.com

文檔

ExcelVBA連接并操作Oracle

ExcelVBA連接并操作Oracle:Excel通過ADO方式連接到Oracle并操作Oracle給我們這些編程能力不強的人帶來很大的福音，結(jié)合著Excel的數(shù)據(jù)處理與圖表制作，就能很輕松地處理一些常規(guī)工作。 以下是通過Excel 的VBA連接Oracle并操作Oracle相關(guān)數(shù)據(jù)的示例Excel 通過VBA連接數(shù)據(jù)庫需要
推薦度：
標簽： 連接 excel oracle
  • 熱門焦點

最新推薦

猜你喜歡

熱門推薦

專題
Top