如何使用VBscript连接到Oracle DB

Question

到目前为止，我有以下代码

Dim strConnect
Dim adoConnection
Dim adoRecordset
Dim strSQL
Dim strResults
strSQL = "SELECT COUNT(distinct party_id) FROM apps.per_all_people_f"
strConnect = "Provider=OraOLEDB.Oracle.1; Password=pwd; Persist Security Info=True; User      ID=user; Data Source=source; Extended Properties="""
Set adoConnection = CreateObject("ADODB.Connection")
adoConnection.Open strConnect
Set adoRecordset = CreateObject("ADODB.Recordset")
adoRecordset.ActiveConnection = adoConnection 
adoRecordset.Source = strSQL
adoRecordset.Open
Do Until adoRecordset.EOF
        strResults = adoRecordset.Fields(0).Value
        msgbox strResults
        adoRecordset.MoveNext
Loop

adoRecordset.Close
adoConnection.Close

帮助我纠正上面的代码，我需要连接到Oracle DB并根据数据处理一些步骤。

我收到以下错误消息。

参数类型错误，超出可接受范围或与另一个相冲突。第9行来源：ADODB.Connection

Answer 1

这是给你的信息，如果我错了请纠正我：

连接数据库的方式：

1. 检查ODBC驱动程序是否可用。
2. 如果是，请在控制面板中的管理工具中创建DSN（系统DSN）。
3. 使用代码： 设置con = createobject（＆＃34; adodb.connection＆＃34;） con.open＆＃34; DSN =＆＃39;＆＃39;＆＃34;
4. 执行查询
1. 检查ODBC驱动程序是否可用。
2. 如果不能做DSN那么 转到环境变量，然后设置路径=＆＃34;＆＃34;
3. 使用代码： 设置con = createobject（＆＃34; adodb.connection＆＃34;）或 设置con = createobject（＆＃34; oledb.connection＆＃34;） con.open＆＃34; Driver = {Microsoft ODBC for Oracle}; Server =; UID = your_username; PWD = your_password;＆＃34;
4. 执行查询

希望这会有所帮助。如果我在任何地方都错了，请纠正我们，因为我还在学习。