Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
0 / 0 / 0
Регистрация: 25.11.2015
Сообщений: 4

Не удается найти указанный поставщик. Вероятно он установлен неправильно

25.11.2015, 21:33. Показов 7201. Ответов 0
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Эта программа у меня работала, но после замены материнской платы и процессора и новой установке Windows7, при запуске происходит ошибка:
Run-time error ‘3706’:
Не удается найти указанный поставщик. Вероятно он установлен неправильно.
Подскажите, пожалуйста, что надо сделать?
Microsoft ActiveX Data Objects 2.8 Library: установлен.
Office 2010
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
 Private Sub Form_Activate()
Label2 = Date
Dim conn As New ADODB.Connection
 Dim rs As New ADODB.Recordset
Dim PAT
    Set conn = Nothing
     PAT = App.Path & "\Event_db.accdb"
    Set conn = New ADODB.Connection
    conn = "Provider = Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\User\Desktop\Nap5\Event_db.accdb;Persist Security Info=False;"
    conn.Open
    
    Set rs = New ADODB.Recordset
    SQL = "SELECT * FROM Event_tbl  WHERE [Event_tbl.Da_te] =#" + Format$(Date, "mm\/dd\/yyyy") + "#"
     rs.Open SQL, conn, 3, 3
 
Label2 = Date
 
If Not rs.EOF Then
        Список = ""
        rs.MoveLast
        rs.MoveFirst
        For i = 0 To rs.RecordCount - 1
            S = ""
                S = rs("Event") & "  " & rs("Da_te2") & "  " & rs("Ti_me") & "  " & rs("Enterprise") & "  " & rs("Phone") & "  " & rs("Location")
                Список = Список & vbCrLf & S
        rs.MoveNext
        Next i
Else
  Список.Font.Name = "Cambria"
  Список.Font.Italic = True
  Список.FontSize = 24
  Список = "Сегодня нет событий"
End If
rs.Close
conn.Close
 
End Sub
 
Private Sub Label4_Click()
End
End Sub
' отображение текущего времени
Sub ShowTime()
Label3.Caption = CStr(Time)
End Sub
 
' инициализация формы
Private Sub Form_Load()
' настройка и запуск таймера
Timer1.Interval = 1000 ' период сигналов таймера - 1 с
Timer1.Enabled = True ' запуск таймера
 
End Sub
' обработка сигнала таймера
Private Sub Timer1_Timer()
Call ShowTime ' отображение времени
End Sub
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
25.11.2015, 21:33
Ответы с готовыми решениями:

Не удается найти указанный поставщик ADODB
Не могу понять в чём дело, всё работало, а через месяц все перестало работать, выдает ошибку, что неверно указан поставщик. В чем дело?...

Microsoft Text ODBC Driver, ошибка "Не удается найти указанный поставщик"
Скажите, пожалуйста, какая ошибка в макросе. Ошибка возникает в строке 20. Полный текст ошибки: Run-time Error '3706' Не удается найти...

Не удается запустить программу. Не удается найти указанный файл. Microsoft visual studio
Добрый день. Начал работу с программой, написал первую программу. текст приложу ниже. Программа наотрез отказывается выполняться. Выдает...

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
25.11.2015, 21:33
Помогаю со студенческими работами здесь

Не удается запустить программу. Не удается найти указанный файл
Так ругается при нажатии F5. Что это? Построение прошло успешно. Добавлено через 1 час 26 минут Говорят, что визуал студия 2010...

Не удается запустить программу (не удается найти указанный файл)
Здравствуйте. Не знаю, в чем проблема. Я чего-то не знаю, надеюсь на помощь. Создаю новый проект Консольное приложение win32. Пишу...

Не удается запустить программу, не удается найти указанный файл
Здравствуйте! Ранее пользовался Visual Studio 2010 и 2015, все правильно написанные коды работали, но теперь, абсолютно по непонятным для...

Ошибка: "Не удается запустить программу: Не удается найти указанный файл"
Написал вот такую вот мини програмку ( я только начинаю учиться) #include <iostream> #include <string> using namespace std; ...

Не удается запустить программу в VS2010: "Не удается найти указанный файл"
П.5.18.Правил Запрещено размещать задания и решения в виде картинок и других файлов с их текстом. Неужели это титанический труд...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Новые блоги и статьи
Доступность команды формы по условию
Maks 07.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .
Уведомление о неверно выбранном значении справочника
Maks 06.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt
8Observer8 05.04.2026
Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .
AkelPad-скрипты, структуры, и немного лирики..
testuser2 05.04.2026
Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .
Отображение реквизитов в документе по условию и контроль их заполнения
Maks 04.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II
kumehtar 04.04.2026
Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён
Maks 04.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .
Программный контроль заполнения реквизитов табличной части документа
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru