Illarion_me
@Illarion_me
Кратко обо мне

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

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
  • Вопрос задан
  • 8344 просмотра
Пригласить эксперта
Ответы на вопрос 1
@Dronablo
Oracle performance geek
Очевидно, нужно установить Oracle OLEDB провайдер. Имейте ввиду, что если дергаете его из 32-битного Excel/Word, то вам нужна именно 32-битная версия.
Ответ написан
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы