powered by simpleCommunicator - 2.0.59     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Таблица Access - сохранение изменений
3 сообщений из 3, страница 1 из 1
Таблица Access - сохранение изменений
    #32912625
Schwan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вывел в Excel таблицу Access через "Внешние связи" - но нужно не только видеть эти данные но и изменять..
Как можно сохранить внесенные изменения?
...
Рейтинг: 0 / 0
Таблица Access - сохранение изменений
    #32917914
Schwan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вообщем вывожу данные из таблицы Access в Excel слудуюшим образом:

Private Sub CommandButton1_Click()
Set cn = New ADODB.Connection
cn.Provider = "Microsoft.Jet.OLEDB.4.0"
cn.ConnectionString = "C:\Projects\Forms\aptv3.mdb"
cn.Open
Dim rs As New ADODB.Recordset
rs.Source = "SELECT * FROM Tovar"
Set rs.ActiveConnection = cn
rs.Open
Dim i As Integer
For i = 0 To rs.Fields.Count - 1
Application.ActiveSheet.Range("A5").Offset(0, 1).Value = rs.Fields(i).Name
Next
Application.ActiveSheet.Range("A5").CopyFromRecordset rs
End Sub

Как сохранить изменения внесенные в Excel обратно в таблицу Access??
...
Рейтинг: 0 / 0
Таблица Access - сохранение изменений
    #32918029
Hummer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2 Schwan
Интресно, а зачем такое половое извращение?:)
Какая религиозная конфессия мешает создать форму на основе замечательной таблицы Tovar и редактировать данные непосредственнов Аксесе?:)

Обычно из Аксеса данные выводят в Ексель для последующего анализа, отчётов и т.п.

P.S. По теме - цикл по ячейкам, коннект к Аксесу и запрос на Update/Insert:)
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Таблица Access - сохранение изменений
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]