Залить данные с листов книги в таблицу Access

Суперчайник

Гость

28.02.2012 18:54:36

Добрый день

Подскажите что прописать в коде VBA Excel (не через Accees!!!) чтобы залить по строкам например два столбца "Номер" и "Дата" с 3-х листов Excel Лист1, Лист2, Лист3 (по 65500 заполненных строк на каждом) в базу с:\база.mdb в одну таблицу "Данные"???
для последующей работе с ней.

R Dmitry

Пользователь

Сообщений: 3103 Регистрация: 22.12.2012

Excel,MSSQL,Oracle,Qlik

28.02.2012 19:59:08

подключаетесь к базе и через insert into заливаете, либо открываете рекордсет нужной таблицы и заполняете его, либо заходите в access и быстренько и без проблем импортируете все что надо. :)

Спасибо
Mail: В профиле Skype: В профиле

Суперчайник Гость	#3 28.02.2012 20:03:00 подскажите, после инсерт писать from откуда??

R Dmitry

Пользователь

Сообщений: 3103 Регистрация: 22.12.2012

Excel,MSSQL,Oracle,Qlik

28.02.2012 20:15:15

какой from ???? :))
INSERT INTO ТаблицаAccess ([F1], [F2] ,[F3], [F4])" _
& " VALUES ('" & a1 & "', " & replace(a2,",",".") & ", " & DataSql(a3) & ", " & a4 & ");")
Типы данных
F1-a1 -- Text
F2-a2 -- Double
F3-a3 -- DataTime
F4-a4 -- Long
вместо Values можно использовать select, тогда скобки не нужны.

функция для дат
Function DataSql(dt_sql)
DataSql = "#" & Format(dt_sql, "mm\/dd\/yy hh\:mm\:ss") & "#"
End Function

Спасибо
Mail: В профиле Skype: В профиле

R Dmitry

Пользователь

Сообщений: 3103 Регистрация: 22.12.2012

Excel,MSSQL,Oracle,Qlik

28.02.2012 20:26:07

Да, забыл сказать, все это в цикле по одной записи в базу :) и без контроля на Null и другие не соответствия типов данных.

Спасибо
Mail: В профиле Skype: В профиле

Суперчайник Гость	#6 28.02.2012 21:25:06 Спасибо, буду ваять. с моими знаниями тока from аляска поможет)))

Читают тему