如何使用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（“adodb.connection”）con.open“DSN =''”
4. 执行查询

---

1. 检查ODBC驱动程序是否可用。
2. 如果无法执行DSN，请转到环境变量，然后设置路径=“”
3. 使用代码：Set con = createobject（“adodb.connection”）或Set con = createobject（“oledb.connection”）con.open“Driver = {Microsoft ODBC for Oracle}; Server =; Uid = your_username; Pwd = your_password ;”
4. 执行查询

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