Связь Excel и Access

[Top]

Привет всем участникам форума

Прошу Вас помочь мне в следующем вопросе.
Есть задача получать различные отчёты, используя данные из базы данных Access.
Если можно подскажите, пожалуйста, подробнее как это делается на VBA.

Заранее благодарю всех

[winfacks]

точно знаю что если ее (базу аццесс) подключить через Вкладку "Данные", "Подключения", то вы получите возможность выгрузки ее в ексель и обновление в вариантах: Сводная таблица, таблица данных.
Мне счас более интересно как обратных процесс сделать

[Юнлинг]

Сообщение от Top

Привет всем участникам форума

Прошу Вас помочь мне в следующем вопросе.
Есть задача получать различные отчёты, используя данные из базы данных Access.
Если можно подскажите, пожалуйста, подробнее как это делается на VBA.

Заранее благодарю всех

Чтение данных из базы Access мало чем отличается от чтения данных из любых внешних данных.
Я использую следующий код для чтения из Access/

private sub чтение()
Dim Conn As ADODB.Connection
Dim oRes As ADODB.Recordset
Dim oCmd As ADODB.Command
....

Set Conn = New ADODB.Connection
With Conn
   .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0"
   .Open 'имя_файла_Access 
End With
st = "Select * FROM 'имя_базы' WHERE 'условия' ORDER BY 'поле_сортировки'
Set oCmd = New ADODB.Command
Set oCmd.ActiveConnection = Conn
With oCmd
   .CommandText = st
   .CommandType = adCmdText
   .Execute
End With
Set oRes = New ADODB.Recordset
Set oRes.ActiveConnection = Conn
oRes.Open oCmd

.....
end sub

[Юнлинг]

Сообщение от winfacks

точно знаю что если ее (базу аццесс) подключить через Вкладку "Данные", "Подключения", то вы получите возможность выгрузки ее в ексель и обновление в вариантах: Сводная таблица, таблица данных.
Мне счас более интересно как обратных процесс сделать

Это тоже можно зделать используя такуюже процедуру что ивверху за исключением некоторых моментов.не обходимо в описании присоединения заменить слово SELECT на INSERT т.е.

st = "INSERT INTO 'имя_базы' VALUE 'приравнивание переменных'
set ADODB.Command
Set oCmd.ActiveConnection = Conn
With oCmd
   .CommandText = st
   .CommandType = adCmdText
   .Execute
End With

Вообще добавить легко. Но если база многопользовательская то возникает небольшая проблема, особенно если у базы есть автоматический ключ. Перед добавлением необходимо стать на последную запись прочитать ключ (SQL командой SELECT и командой чтения записи oRes.movelast), после чего сделать обновление (SQL команда UPDATE) - захват следующей за последней записи, и только после этого данную процедурку.