Почему ошибка «не удается найти указанный поставщик. вероятно он установлен неправильно»?

Question

[Илларион Лабахуа]

Attribute VB_Name = "NewMacros"

Sub REPORT_FOR_COUNTING()
Dim Conn As New ADODB.Connection, Cmd As ADODB.Command, rsOra As ADODB.Recordset
Conn.Open "PROVIDER=OraOLEDB.Oracle.1;DATA SOURCE=SVBO;USER ID=ADMIN_ILLARION;PASSWORD=M1l2w3"
Set Cmd = New ADODB.Command
Cmd.ActiveConnection = Conn
Cmd.CommandType = adCmdText
Set rsOra = New ADODB.Recordset
rsOra.CursorLocation = adUseServer

rsOra.Open "select POS_COUNT from REPORT_FOR_COUNTING where INST_ID='9001'", Conn, adOpenForwardOnly
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "ГаграПос"
.Replacement.Text = rsOra.Fields.Item(0).Value
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.TypeText Text:=rsOra.Fields.Item(0).Value
rsOra.Close

End Sub

Answer 1

[Андрей]

Очевидно, нужно установить Oracle OLEDB провайдер. Имейте ввиду, что если дергаете его из 32-битного Excel/Word, то вам нужна именно 32-битная версия.

Comments

[Илларион Лабахуа]

Спасибо большое.

Но не до конца понятно, кого именно загружать из этих трёх?

ODP.NET_Managed_ODAC122cR1.zip
ODAC122010Xcopy_x64.zip
ODAC122010_x64.zip

[Андрей]

Xcopy.