Runtime error 3709 невозможно использование подключения для выполнения операции

Симптомы Ошибка 3709 — Ошибка Microsoft Access 3709

Ошибки времени выполнения происходят без предупреждения. Сообщение об ошибке может появиться на экране при любом запуске %программы%. Фактически, сообщение об ошибке или другое диалоговое окно может появляться снова и снова, если не принять меры на ранней стадии.

Возможны случаи удаления файлов или появления новых файлов. Хотя этот симптом в основном связан с заражением вирусом, его можно отнести к симптомам ошибки времени выполнения, поскольку заражение вирусом является одной из причин ошибки времени выполнения. Пользователь также может столкнуться с внезапным падением скорости интернет-соединения, но, опять же, это не всегда так.

(Только для примера)

Причины Ошибка Microsoft Access 3709 — Ошибка 3709

При разработке программного обеспечения программисты составляют код, предвидя возникновение ошибок. Однако идеальных проектов не бывает, поскольку ошибки можно ожидать даже при самом лучшем дизайне программы. Глюки могут произойти во время выполнения программы, если определенная ошибка не была обнаружена и устранена во время проектирования и тестирования.

Ошибки во время выполнения обычно вызваны несовместимостью программ, запущенных в одно и то же время. Они также могут возникать из-за проблем с памятью, плохого графического драйвера или заражения вирусом. Каким бы ни был случай, проблему необходимо решить немедленно, чтобы избежать дальнейших проблем. Ниже приведены способы устранения ошибки.

Методы исправления

Ошибки времени выполнения могут быть раздражающими и постоянными, но это не совсем безнадежно, существует возможность ремонта. Вот способы сделать это.

Если метод ремонта вам подошел, пожалуйста, нажмите кнопку upvote слева от ответа, это позволит другим пользователям узнать, какой метод ремонта на данный момент работает лучше всего.

Обратите внимание: ни ErrorVault.com, ни его авторы не несут ответственности за результаты действий, предпринятых при использовании любого из методов ремонта, перечисленных на этой странице — вы выполняете эти шаги на свой страх и риск.

Sub Importfromaccess()
        Path = "C:UsersmyUserDesktopDatabase1.accdb"

        Set cn = CreateObject("ADODB.connection")

        cn.Open "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & Path & ";"

        Set rs1 = CreateObject("ADODB.recordset")

        rs1.activeconnection = cn

        Dim strSQL As New ADODB.Command

        strSQL.CommandText = "SELECT * FROM Tooling WHERE TID=BD0001"
        strSQL.CommandType = adCmdText

        Set rs1 = strSQL.Execute ' This is the line the error occurs on

        Sheets("Calc").Range("K1").CopyFromRecordset rs1
End Sub

cn.Open "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & Path & ";"

2 ответа

Лучший ответ

Dim cn As ADODB.Connection
Set cn = New ADODB.Connection

    Dim strSQL As New ADODB.Command
    strSQL.ActiveConnection = cn      '<---Insert this.
    strSQL.CommandText = "SELECT * FROM Table1"
    strSQL.CommandType = adCmdText

"SELECT * FROM Tooling WHERE TID='BD0001'"

Sub Importfromaccess()
    Dim Path As String
    Path = "C:UsersmyUserDesktopDatabase1.accdb"

    Dim cn As ADODB.Connection
    Set cn = New ADODB.Connection
    cn.Open "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & Path & ";"

    Dim query As New ADODB.Command
    query.ActiveConnection = cn
    query.CommandText = "SELECT * FROM Tooling WHERE TID='BD0001'"
    query.CommandType = adCmdText

    Dim rs1 As ADODB.Recordset
    Set rs1 = query.Execute ' This is the line the error occurs on

    Sheets("Calc").Range("K1").CopyFromRecordset rs1

    'CLEAN UP AFTER YOURSELF:
    rs1.Close
    cn.Close 
End Sub

Dim con As New ADODB.Connection
Dim rs As ADODB.Recordset
Dim cmd As New ADODB.Command

cmd.CommandText = "SELECT * FROM Tooling WHERE TID='BD0001'"
con.Open "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=C:UsersmyUserDesktopDatabase1.accdb;"

cmd.ActiveConnection = con

Set rs = cmd.Execute

Sheets("Calc").Range("K1").CopyFromRecordset rs

rs.Close
con.Close

cmd.CommandText = "SELECT * FROM Tooling WHERE TID='BD0001'"

Какую именно запись в таблице «Лекарства» вы меняете?

Тут столько проблем, я даже не знаю с чего начать.

Добавлено через 19 минут
Начну, пожалуй, со способа, которым вы заполняете Combobox.
По моему опыту, наиболее оптимальным является создание 2-х полей в Combobox (свойство ColumnCount), одно из которых делается нулевой длины (свойство ColumnWidth, которое должно при этом выглядеть примерно вот так: «0;100», т.е. первый столбец длины 0 точек, второй — длины 100 точек). Обратите при этом внимание на свойство BoundColumn, которое определяет порядковый номер столбца начиная с 1, из которого берется значение для всего Combobox. Если вы будете передавать значение в Combobox, или извлекать его, программа по умолчанию будет «смотреть» именно на этот столбец.

При этом заполнить Combobox, имеющий 2 значения, из Recordset можно следующим образом:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

Sub test()
    Dim oRS As Recordset        'Результат запроса
    Dim sSQL As String          'Текст запроса
    Dim i As Long               'Счетчик
    
    'Получаем данные из базы
    sSQL = "SELECT [Код],[Название группы] FROM Группа"
    Set oRS = Db.OpenRecordset(sSQL, dbOpenForwardOnly)
    
    'Читаем данные и записываем их в Combobox
    With UserForm2.ComboBox1
        Do Until oRS.EOF 'Обходим Recordset с первой до последней записи
            .AddItem                        'Добавляем запись в Combobox
            .Column(0, i) = oRS("Код")      'NB: в VBA нумерация колонок начиначся с 0, а не 1
            .Column(1, i) = oRS("Группа")
            i = i + 1
            oRS.MoveNext
        Loop
    End With
    
    'Закрываем запрос
    oRS.Close
    Set oRS = Nothing
End Sub

Добавлено через 18 минут
Далее, по вашему способу изменять базу данных. На мой взгляд, использование метода Edit сопряжено с такой массой проблем и ограничений, что является банально нецелесообразным. Намного разумнее использовать для изменения SQL-запросы UPDATE и INSERT.

Например, вам надо поменять некую запись в таблице «Лекарства», добавив в поле «Фармокологическая группа» значение из Combobox, соответствующее Коду записи в таблице Группа. Предположим, вы каким-то образом уже получили Код этой записи. Он у меня в коде будет представлен переменной «PharmID».
Так как мы уже выгрузили в скрытую колонку Combobox Коды соответствующих записей, нам не нужен отдельный запрос, для получения Кода нужной нам записи из БД, достаточно просто получить значение колонки 0:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

Sub Update_Pharm()
    Dim sSQL As String
    Dim lGroupID As Long
    Dim lPharmID As Long
    
    'Ïîëó÷àåì Êîä òàáëèöû Ëåêàðñòâà (íåîáõîäèìî ñàìîìó ñîçäàòü ìåõàíèçì ïîëó÷åíèÿ
    lPharmID = 0
    'Ïîëó÷àåì Êîä òàáëèöû Ãðóïïà
    lGroupID = UserForm2.ComboBox1.Column(0)
    'Ôîðìèðóåì çàïðîñ íà îáíîâëåíèå òàáëèöû Ëåêàðñòâà
    'NB: íèêîãäà íå çàáûâàéòå â çàïðîñå UPDATE ÷àñòü WHERE,
    'âûáèðàþùóþ ðåäàêòèðóåìóþ çàïèñü. Èíà÷å áóäóò îáíîâëåíû âñå çàïèñè â òàáëèöå
    sSQL = "UPDATE Ëåêàðñòâà SET [Ôàðìîêîëîãè÷åñêàÿ ãðóïïà]=" & lGroupID & " WHERE Êîä=" & lPharmID
    'Выполяем запрос
    db.Execute sSQL
End Sub

Ошибка может возникнуть при отображении всей ошибки выполнения Microsoft Visual Basic 3709. Есть несколько шагов для решения этой проблемы. Скорее всего, мы сделаем это в ближайшее время.

Рекомендуется: ASR Pro

Загрузите это программное обеспечение и почините свой компьютер за считанные минуты. г.

Ошибка 3709 Сетевое соединение не может использоваться только для нашей операции. В данном контексте он либо закрыт, либо просто недействителен. при использовании пользователями любых связанных с приложением функций.

Во-первых (и не связанных с вашей собственной ошибкой) вы должны использовать самую свежую версию Microsoft ActiveX Data Objects вместо 2.0, если вашим покупателям не требуется поддержка клиентов Windows с 2000 или более ранней версией. Если вы используете ADODB только для работы с их базой данных, вам не понадобится библиотека объектов Microsoft Access 16.0 по адресу.

Во-вторых, если вы уже получили полную базу, не создавайте новые положительные объекты, подобные этому:

<цитата>

  Установить cn = CreateObject ("ADODB. соединение") 

Если вы добавляете связующее звено и восходящее направление, тип размещается, то есть он явно рассматривается и создается с помощью New :

  Dim cn As ADODB.ConnectionОпределите cn = New ADODB.Connection 

Ваше партнерство должно быть в нужде – там, где общественность борется, вот несколько строк:

<цитата>

  Установить rs1 = CreateObject ("ADODB.recordset")    rs1.activeconnection невероятно для cn 

Запуск ADODB.Command повторит Recordset , а не наоборот. Полностью снимите 2 из этих крышек. Вместо того, чтобы обычно добавлять соединение по пути к Recordset , вы хотите помочь вам использовать его, когда вы находитесь в нашем ADODB.Command :

  Dim strSQL как новый ADODB.Command    strSQL.ActiveConnection = cn Это '<--- insert.    strSQL. подразумевает текст команды "ВЫБРАТЬ 2. ИЗ Таблицы1"    strSQL.CommandType соответствует adCmdText 

Кроме того, вы должны помочь вам избавиться от венгерской системы заметок — это чертовски сложно. Командное слово ADODB не является основной строкой , так зачем ему действительно быть strFoo ?

После этого вам нужно будет заняться уборкой вручную. Не оставляйте настройку записи на трансляцию, пока вы их все используете. Когда z закончит, сотовый телефон <код>. Закройте .

Наконец, ваш оператор SQL, скорее всего, в корне неверен — обычно вам нужно заключить TID в одинарные страховые кавычки ( '):

  "ВЫБРАТЬ * ИЗ ИНСТРУМЕНТА, ГДЕ TID = 'BD0001'" 

  Sub Importfromaccess ()    Темный след в виде каждой цепи    Путь подразумевает "C:  Users  myUser  Desktop  Database1.accdb"    Dim cn ADODB as.Подключение    Set cn New специфичен как ADODB.Connection    cn.Open "Provider = Microsoft.ACE.OLEDB.12.0; Data place =" & path ";" & Скрыть сомнения как новый ADODB.Command    request.ActiveConnection Cn = query.CommandText удовлетворяет "ВЫБРАТЬ ИЗ * Tooling, ГДЕ TID подразумевает 'BD0001'"    query.CommandType идет с adCmdText    Dim rs1 как ADODB.Recordset    Set = rs1 query.Execute 'Это еще одна строка, в которой возникает проблема    Таблицы («Расчет»). Дальность («К1»). CopyFromRecordset rs1    ОЧИСТИТЕ СЕБЯ: из-за RS1. слишком близко    сп. так же близкоКонец подводной лодки 

Эта статья относится к конкретному образу базы данных Microsoft Access Enterprise (.mdb) или конкретному файлу базы данных Microsoft Access (.accdb).

Симптомы

Если вы создаете специальную заметку в своей базе данных Microsoft Access, многие из которых содержат этот индекс, или если покупатели создают название темы, которое содержит текст, который автоматически вешается в список, вы действительно не будете возможность ввода статей длиной более 3450 знаков в строке работы. … Если кто-то попытается ввести больше текста в поле или обновить существующие данные, он получит ваше собственное сообщение об ошибке:

Ошибка выполнения

  '3709':Ключ поиска, похоже, не найден ни в каких записях. 

Разрешение

Если вам определенно нужно ввести много копий в сегмент памятки, удалите указатель из поля памятки. Для этого выполните большинство из следующих шагов:

1. 

   Откройте электронную таблицу с полем уведомлений в режиме конструктора.

2. Щелкните Index.In

   в этом меню ключевых фактов.

   Обратите внимание на Microsoft Office Access 2007, щелкните проект ежемесячного счета и теперь в определенной группе щелкните Показать / скрыть индексы.

3. Щелкните указатель заметок и свою специальность, затем удалите ее.

Статус

Microsoft подтвердила, что это почти наверняка хорошая проблема для связанных продуктов Microsoft в начале этой замечательной статьи.

Дополнительная информация

Эта проблема не возникает в версиях Microsoft Access более ранних, чем Microsoft Access 2000, потому что мемо-поля не будут индексироваться в Jet 3.5 и, следовательно, в более ранних версиях.

Действия по дублированию поведения в Access 2003

1. Создайте новую рабочую станцию ​​с большинством следующих свойств в соответствующей исходной базе данных и сохраните ее доступной как table1:

     таблица: таблица1------------------------Название поля: IDТип данных: AutoNumberОсновной ключИмя поля: MyCodeТипы данных: Примечание. 

2. Добавьте запись после в Таблицу 1 для вас:

     Id MyCode------------------------------------1 Оказывается, это важные данные тестовой памятки. 

3. Скопируйте и вставьте следующий оператор SQL в новый действительно сложный запрос в представлении SQL и часто сохраняйте запрос как Query1:

   ОБНОВИТЬ Table1 SET Table1.MyCode равен [MyCode] & «& [MyCode];

4. Создайте модуль, если он активирован, затем сохраните его Module1:

     Sub TestMemoUpdate ()    Тусклый пост как целое число    Docmd.setwarnings false    Для меня и моей семьи одинокие = до 10    Docmd.openquery "query1"    Следующий    Docmd.setwarnings trueКонец подводной лодки 

5. Сообщите своей компании, что это может быть процедура. Нажмите F5, чтобы ввести код.

• Статья
• 2 минуты на чтение.

• Применимо к:

  Access 2007, Access 2003, Access ’02

Office 365 профессиональный плюс был переименован в Microsoft 365 Apps for Enterprise. Более подробную информацию об этом изменении можно часто найти сейчас в вашей статье в блоге.

Загрузите это программное обеспечение и почините свой компьютер за считанные минуты. г.

Microsoft Visual Basic Runtime Error 3709
Errore Di Runtime Di Microsoft Visual Basic 3709
Blad Srodowiska Wykonawczego Microsoft Visual Basic 3709
Error De Tiempo De Ejecucion De Microsoft Visual Basic 3709
Microsoft Visual Basic Runtime Error 3709
Microsoft Visual Basic 런타임 오류 3709
Erro 3709 De Tempo De Execucao Do Microsoft Visual Basic
Erreur D Execution Microsoft Visual Basic 3709
Microsoft Visual Basic Laufzeitfehler 3709
г.