Удаление данных из Access с формы Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: _Boroda_, китин

Мир MS Excel » Вопросы и решения » Excel и другие приложения » Access » Удаление данных из Access с формы Excel

rtv206

Дата: Среда, 10.06.2020, 20:35 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 131

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Доброго времени суток!
Уважаемые программисты в очередной раз обращаюсь к Вам за помощью:
Есть база данных в Access и есть форма в Excel с ListBox, необходимо при выборе значения с ListBox найти его в базе данных в Access (колонка SERIAL ID), и удалить всю строку.
Заранее благодарен за помощь.

К сообщению приложен файл: _WinRAR-2-.rar (43.4 Kb)

Ответить

anvg

Дата: Четверг, 11.06.2020, 14:50 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 581

Репутация: 271 ±

Замечаний: 0% ±

2016, 365

Доброе время суток.
Так код для удаления такой же, как и для вставки, меняется только SQL запрос
[vba]

Код

DELETE FROM [table] WHERE [SERIAL ID] = 'xxxx';

[/vba]
Где xxxx текст выбранного в ListBox значения.

Ответить

rtv206

Дата: Пятница, 12.06.2020, 17:22 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 131

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

anvg, Благодарю за помощь.
Буду пробовать)!

Ответить

rtv206

Дата: Пятница, 12.06.2020, 17:55 | Сообщение № 4

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 131

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

anvg, Не подскажите как впихнуть значение с ListBox в запрос?
[vba]

Код

Private Sub CommandButton1_Click()
Dim CON As Object: Set CON = CreateObject("ADODB.Connection")
    Dim iRow&, iCol&, LastRow&, LastCol&
    Dim sFields$, sValues$, sSQL$

    CON.Open IIf(Val(Application.Version) < 12, "Provider='Microsoft.Jet.OLEDB.4.0'", "Provider='Microsoft.ACE.OLEDB.12.0'") & _
            "; Data Source=" & ThisWorkbook.Path & "\Data2.accdb" & ";Mode=Share Deny None; Jet OLEDB:Database;"

            sSQL = "DELETE FROM [table] WHERE [SERIAL ID] =  'Me.ListBox1.List(I)';"

            CON.Execute sSQL

    CON.Close
End Sub

[/vba]