Легенда:
 новое сообщение
 закрытая нитка
 новое сообщение
 в закрытой нитке
 старое сообщение
|
- Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
- Новичкам также крайне полезно ознакомиться с данным документом.
Господа, будьте снисходительны, не бросайтесь сразу штрафовать за, как вам кажется, глупые вопросы - beginners на то и beginners.
Помогите пожалуйста с с копированием 04.06.04 09:50
Автор: Мила Статус: Незарегистрированный пользователь
|
|
Я только начинаю, помогите пожалуйста ! У меня есть информация в ЕXCEL, мне надо ее каждый день програмно на VBA дозаписывать в базу.mdb
|
|
По этапно: 04.06.04 11:16
Автор: Korsh <Мельников Михаил> Статус: Elderman
Отредактировано 04.06.04 11:17 Количество правок: 1
|
1.Первым делом заходишь в "Источники данных (ODBC)"
выбираешь вкладку "Пользовательский DNS"
нажимаешь кнопку "Добавить..."
выбираешь в списке:
"Microsoft Access Driver (*.mdb)"
нажимаешь "Готово"
Далее задаёшь "Имя источника данных", например Access_BD,
дальше нажимаешь кнопку "Выбрать" и указываешь путь к твое базе на Access, в которую необходимо писать данные из Excel.
Нажимаешь ок. В списке "Пользовательский DNS" должен появиться источник данных с именем Access_BD.
Нажимаешь ок.
2. Запускаешь Excel.
Тут есть много различных способов как заставить данные перейти в Аксес.
Например:
добавляешь к стандартным кнопкам, кнопки "Элементов управления"
Далее на лист (экселю) вставляешь кнопку. Два раза на ней нажимаешь и попадаешь в Редактор VBA.
В нем заходишь в меню "Tools->References..."
К уже подключиным библеотекам добавляешь:
Microsoft ActiveX Data Objects 2.1 Library
Microsoft DAO 3.6 Objects Library
вроде всё, но могут туда автоматом добавиться и некоторые другие.
Затем в редакторе код должен выглядеть примерно так:
Private Sub CommandButton1_Click() ' Это строка создаёться автоматом
Dim conn As New ADODB.Connection 'Объявляем подключение
Dim rs As New ADODB.Recordset 'Объявляем запись
conn.Open "ODBC;DATABASE=db10.mdb;UID=;PWD=;DSN=Access10" 'Открываем конект к ' базе Access
'(Access10 - то самое имя из Пользовательского DNS, db10.mdb - имя файла самой БД)
rs.Open "select * from a", conn, adOpenStatic, adLockOptimistic
'открываем необходимую таблицу (у меня она просто - a)
' ТУТ можно вставить цикл добавляющий из любых полей Excel`я любых данных в базу
' Наприме так:
rs.AddNew 'создаём новую запись в этой таблице
rs![a] = 546546 'записываю в поле "a", таблици "a" че нибуть
rs.Update 'Подтверждаю обновление
rs.Close 'Закрываю запись
conn.Close ' Закрываем соединение.
Set rs = Nothing '
End Sub
Энд. задавай вопросы, поясню темные моменты...
|
| |
забыла подключить: 05.06.04 05:13
Автор: Korsh <Мельников Михаил> Статус: Elderman
|
К уже подключиным библеотекам добавляешь:
Microsoft ActiveX Data Objects 2.1 Library
|
|
|
подробно о проекте
Анализ криптографических сетевых...
