读取oracle表结构2

用vba连接到oracle
连接oracle其实不算难，添加如下图的引用

 

然后如下的代码

Sub DBConnection()

Dim DBRst As ADODB.Recordset
Dim ConnDB As ADODB.Connection

Set DBRst = New ADODB.Recordset
Set ConnDB = New ADODB.Connection

Dim sqlrst As String
Dim OraOpen As Boolean

OralID = "ORCL"
OraUsr = "scott"
OraPwd = "*******"

ConnStr = "Provider = MSDAORA.1;Password=" & OraPwd & ";User ID=" & OraUsr & ";DataSource=" & OralID & ";Persist Security Info=True"
ConnDB.CursorLocation = adUseServer
ConnDB.Open ConnStr
OraOpen = True

DBRst.ActiveConnection = ConnDB
sqlrst = "Select sysdate from dual"

DBRst.Open sqlrst, ConnDB, 3, 4
'DBRst.Open sqlrst, ConnDB, adOpenStatic

DBRst.MoveFirst

Dim i As Integer
i = 1

While Not DBRst.EOF
    'Worksheets("sheet1").Cells(i, 1) = DBRst![sysdate]
    MsgBox DBRst![sysdate]
    DBRst.MoveNext
    i = i + 1
Wend
End Sub

运行如下