使用vbscript为Oracle设置ODBC数据源

我正在尝试从excel连接到oracle数据库。当我手动创建DSN时，这工作正常，但现在我想使用VB编程创建DSN。请帮助我，我是VBScript新手。

以下是一些示例代码：

Dim objConn
Set objConn = CreateObject("ADODB.Connection")

Dim connString
connString = "YOUR ORACLE CONNECTION STRING HERE!"

objConn.Open connString

Dim objRS
Dim strSQL
strSQL = "SELECT * FROM YourTable"

Set objRS = objConn.Execute(strSQL)
If objRS.EOF Then
    ' No Records Returned
Else
    Do
             ' Do what you want with your output
        objRS.MoveNext
    Loop Until objRS.EOF
End If
End With

objRS.Close
Set objRS = Nothing


objConn.Close
Set objConn = Nothing

使用页面查找连接字符串。这是VBScript，对于VB，您可能需要进行一些更改，例如定义变量类型

Dim strSQL As String

---

下面是一个示例，说明如何将Oracle对象用于Excel的OLE自动化：

上面链接中的示例：

... 
' Declare variables 
Dim OraSession As OraSession 
Dim OraDatabase As OraDatabase 
Dim OraDynaset As OraDynaset 
Dim OraFields As OraFields

' Create the OraSession Object. The argument to CreateObject is the 
' name by which the OraSession object is known to the OLE system. 
Set OraSession = CreateObject("OracleInProcServer.XOraSession") 

' Create the OraDatabase Object by opening a connection to Oracle.
Set OraDatabase = OraSession.OpenDatabase("ExampleDb", "scott/tiger", 0&) 

' Create the OraDynaset Object. 
Set OraDynaset = OraDatabase.CreateDynaset("select * from emp", 0&) 

' You can now display or manipulate the data in the dynaset. For example: 
Set OraFields = OraDynaset.fields 
OraDynaset.movefirst 
Do While Not OraDynaset.EOF 
    gMsgBox OraFields("ename").Value 
    OraDynaset.movenext 
Loop