Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Удаление данных из Access с формы Excel - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Access » Удаление данных из Access с формы Excel
Удаление данных из Access с формы Excel
rtv206 Дата: Среда, 10.06.2020, 20:35 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 99
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - rtv206
Дата добавления - 10.06.2020 в 20:35
anvg Дата: Четверг, 11.06.2020, 14:50 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 543
Репутация: 246 ±
Замечаний: 0% ±

2016, 365
Доброе время суток.
Так код для удаления такой же, как и для вставки, меняется только SQL запрос
[vba]
Код
DELETE FROM [table] WHERE [SERIAL ID] =  'xxxx';
[/vba]
Где xxxx текст выбранного в ListBox значения.
 
Ответить
СообщениеДоброе время суток.
Так код для удаления такой же, как и для вставки, меняется только SQL запрос
[vba]
Код
DELETE FROM [table] WHERE [SERIAL ID] =  'xxxx';
[/vba]
Где xxxx текст выбранного в ListBox значения.

Автор - anvg
Дата добавления - 11.06.2020 в 14:50
rtv206 Дата: Пятница, 12.06.2020, 17:22 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 99
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
anvg, Благодарю за помощь.
Буду пробовать)!
 
Ответить
Сообщениеanvg, Благодарю за помощь.
Буду пробовать)!

Автор - rtv206
Дата добавления - 12.06.2020 в 17:22
rtv206 Дата: Пятница, 12.06.2020, 17:55 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 99
Репутация: 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]
 
Ответить
Сообщение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]

Автор - rtv206
Дата добавления - 12.06.2020 в 17:55
anvg Дата: Суббота, 13.06.2020, 09:54 | Сообщение № 5
Группа: Друзья
Ранг: Ветеран
Сообщений: 543
Репутация: 246 ±
Замечаний: 0% ±

2016, 365
Не глядя в файл
[vba]
Код

sSQL = "DELETE FROM [table] WHERE [SERIAL ID] =  '" & Me.ListBox1.List(I) & "';"
[/vba]
 
Ответить
СообщениеНе глядя в файл
[vba]
Код

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

Автор - anvg
Дата добавления - 13.06.2020 в 09:54
rtv206 Дата: Вторник, 16.06.2020, 14:50 | Сообщение № 6
Группа: Пользователи
Ранг: Участник
Сообщений: 99
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
anvg, благодарю за помощь)
 
Ответить
Сообщениеanvg, благодарю за помощь)

Автор - rtv206
Дата добавления - 16.06.2020 в 14:50
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Access » Удаление данных из Access с формы Excel
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2020 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!