以下是通過excel 的vba連線oracle並操作oracle相關資料的示例
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
d程式設計客棧im oraopen as boolean
oraopen = false
oraid="orcl" 'oracle資料庫的相關配置
orausr="user"
orapwd="password"
connstr = "provider = msdaora.1;password=" & orapwd & _
";user id=" & orausr & _
";data source=" & oraid & _
";persist security nsnfyrinfo=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.recordse程式設計客棧t
dim sqlrst as string
dim oraopen as boolean
oraopen = false
oraid="orcl" 'oracle資料庫的相關配置
orausr="user"
orapwd="password"
connstr = "provider = msdaora.1;www.cppcns.compassword=" & orapwd & _
";user id=" & orausr & _
";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
可以根據需要調整sql語句,獲取相關資料,並輸出到excel完成資料處理
上述**在windows xp sp3/2003 sp2 + office2003下測試通過.
本文標題: excel vba連線並操作oracle
本文位址:
excel VBA 簡單操作
public sub ss dim sht as worksheet set sht thisworkbook.worksheets sheet1 sht.cells 1,1 now end sub public sub getrow dim rnum as integer dim sht as w...
Excel VBA檔案操作1
在我們日常使用excel的時候,不僅會用到當前excel檔案的資料,還經常需要訪問其他的資料檔案。這些資料檔案可能是excel檔案 文字檔案或資料庫檔案等。經常有朋友會問如何在vba 裡操作這些資料檔案?本文就系統地介紹一下在excel中應用vba運算元據檔案的方法。1 利用excel物件來處理檔案...
Excel VBA檔案操作2
workbooks.opentext filename,origin,startrow,datatype,textqualifier,consecutivedelimiter,tab,semicolon,comma,space,other,otherchar,fieldinfo,textvisual...