急急急!!VBA 连接Oracle数据库时,报错未找到提供程序,可能程序未正确安装

我是一个门外汉,搞电气自动化的,项目里有一个功能需要用到VBA连接数据库,显示产量数据,现在遇到这么一个问题,已经处理了一个月,还是没有什么进展,故到论坛请教大神指导!!

下边是我的代码:
Dim Conn As New ADODB.Connection
Dim Rec1 As New ADODB.Recordset

Dim sConn As String
Dim sRec1 As String

'On Error GoTo Error_Handle

 sDBIP = "10.67.100.27"
 sDBName = "MESPDS1"
 sDBUser = "MESPDS"
 sDBPassword = "123456"

Set oGroup = Application.CreateTagGroup(Me.AreaName, 500)
oGroup.Add "CS\ShiftTarget0"
oGroup.Add "CS\ShiftActual"
oGroup.Add "CS\CurrentPlanned"
oGroup.Add "CS\CurrentActual0"
oGroup.Add "CS\Loading"
oGroup.Add "CS\Rework"
oGroup.Add "CS\Start"
oGroup.Add "CS\End"

Set tSP = oGroup.Item("CS\ShiftTarget0")
Set tSA = oGroup.Item("CS\ShiftActual")
Set tCP = oGroup.Item("CS\CurrentPlanned")
Set tCA = oGroup.Item("CS\CurrentActual0")
Set tLD = oGroup.Item("CS\Loading")
Set tRJ = oGroup.Item("CS\Rework")

sConn = "provider=OraOLEDB.Oracle.1;User Id=MESPDS;"
sConn = sConn & "Password=123456;"
sConn = sConn & "Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=10.67.100.27)(PORT=1521)))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=MESPDS1)));"

sRec1 = "select P.SHIFT_PLAN_QUANTITY_I,P.SHIFT_ACTUAL_QUANTITY_I,P.CURRENT_PLAN_QUANTITY_I,P.ACTUAL_COMPLETE_QUANTITY_I,P.ACTUAL_START_QUANTITY_I,P.REWORK_QUANTITY_I,TO_CHAR(P.SHIFT_START_TIME_T,'HH24:mm'),TO_CHAR(P.SHIFT_END_TIME_T, 'HH24:mm') from AT_AS_MM_PMC_PRODUCTIONCOUNT P WHERE P.PLINE_NAME_S = 'I032JJ03';"

Conn.Open sConn
Rec1.Open sRec1, sConn

tSP.Value = Rec1(0)
tSA.Value = Rec1(1)
tCP.Value = Rec1(2)
tCA.Value = Rec1(3)
tLD.Value = Rec1(4)
tRJ.Value = Rec1(5)

Rec1.Close
Conn.Close
End Sub

报错截图:
图片说明
运行到Conn.OPEN,就不行了,提示未找到程序,在网上搜的各种方法以及各种连接字符串都湿了个遍,还是不行,实在是走投无路了,特来发帖,请教专业大神,望指导,在线等~~~~
oracle客户端安装了,在客户端配置了NET Manager,也通了,那些.dll文件也放在相应的位置了,就是始终报这个错,不知道还有哪些地方需要配置或者是连接字符串里的provider不对?

2个回答

点了DEBUG后
图片说明

qq_23126581
qq_23126581 你debug,看看运行到哪一步报错
接近 2 年之前 回复

估计dll没有注册。。。。。

qq_34725360
Sunnddaay 请问您知道具体需要注册哪几个dll么?哪找网上的方法,也注册了一些,但是还是不好用,有些dll注册也注册不了
接近 2 年之前 回复
Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!

相似问题