到目前为止,我有以下代码
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
发布于 2015-09-24 07:03:49
这是供您参考的,如果我错了,请纠正我:
连接数据库的方式:
query
希望这能有所帮助。如果我哪里错了,请纠正我,因为我还在学习。
https://stackoverflow.com/questions/25733257
复制相似问题