连接指定服务器上Oracle数据库的语句

百岁新手

单位的财务软件是用友NC，数据库是oracle。想与数据库建立连接，把序时账表的数据完整地导出到EXCEL。
请问ADO对象和SQL语句能做到吗？如果能，代码该怎么写呢？
请高手赐招呵，非常感谢！

minjiwei

搜一下，很多。

minjiwei

ORACLE数据库查询用类模块。
有使用ORACLE数据库的朋友可以用用看，很方便的。

Option Explicit
Public OraDynaset As Object 'RecordSet
Private OraSession As Object 'Declare variables as OLE Objects
Private OraDatabase As Object

Public Sub RunSQL (ByVal strSQL As String)
Application.StatusBar = "Searching DataBase ..."
Set OraDynaset = OraDatabase.DbCreateDynaset (strSQL, 0&)
DoEvents
Application.StatusBar = ""
End Sub

Public Sub Connect ()
Set OraSession = CreateObject ("OracleInProcServer.XOraSession")
Set OraDatabase = OraSession.DbOpenDatabase("服务器名", "接入字串", 0&)
End Sub

Public Sub DisConnect ()
Set OraDatabase = Nothing
Set OraSession = Nothing
End Sub

百岁新手

多谢楼主！学习一下。