VBA - [решено] ошибка при выполнение SQL запроса на удаление к текущей книге

Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета.

Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен

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

С уважением, ваш призрачный админ, BigMac...

VBA - [решено] ошибка при выполнение SQL запроса на удаление к текущей книге

artemu88

Пользователь

Сообщения: 105
Благодарности: 0

Профиль | Отправить PM | Цитировать

Вложения


	пример.rar
(12.5 Kb, 18 просмотров)

Добрый день!

Написал макрос для удаления записей из таблицы Excel.
Но при выполнения запроса на удаление (см. код ниже) выскакивает ошибка "Удаление данных в присоединенной таблице не поддерживается драйвером ISAM"

Можно ли как-то обойти эту ошибку? Что не так делаю?

Заранее всем спасибо!

код:

Код:

Sub SQL()
Dim myConnect, mySQL As String, myRecord As Object
Dim Data As String, strAddress As String
    Set myRecord = CreateObject("ADODB.Recordset")
 '   Set myConnect = CreateObject("ADODB.Connection")
    strAddress = Replace(ThisWorkbook.Sheets(1).Cells(1, 1).CurrentRegion.Address, "$", "")
    
    Data = "[" & ThisWorkbook.Sheets(1).Name & "$" & strAddress & "]"
'        myConnect.open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
'           "Data Source=" & ThisWorkbook.FullName & ";" & _
'           "Extended Properties=""Excel 12.0;HDR=NO"""
        myConnect = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
           "Data Source=" & ThisWorkbook.FullName & ";" & _
           "Extended Properties=""Excel 12.0;HDR=NO"""

    mySQL = "DELETE * FROM " & Data & ""
'    myConnect.Execute mySQL
    myRecord.Open mySQL, myConnect

End Sub

Отправлено: 11:12, 15-12-2021