vba连接oracle数据库

'结果集
Dim DBRst As ADODB.Recordset
Set DBRst = New ADODB.Recordset

Dim SQLRst As String

Dim OraOpen As Boolean

OraOpen = False

'Oracle数据库的相关配置
OraID = "Orcl"
OraUsr = "***"
OraPwd = "***"

ConnStr = "Provider = MSDAORA.1;Password=" & OraPwd & ";User ID=" & OraUsr & ";Data Source=" & OraID & ";Persist Security Info=True"
'ConnStr = "Provider=MSDAORA.1;Data Source=orcl;User ID=wyh;Password=wyh;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 uname From usertype"
DBRst.Open SQLRst, ConnDB, adOpenStatic, adLockBatchOptimistic

DBRst.MoveFirst

'在excel上显示数据
Dim i As Integer
i = 1
While Not DBRst.EOF
  Worksheets("sheet2").Cells(i, 1) = DBRst![uname]
 
  DBRst.MoveNext
  i = i + 1
Wend

End Sub