Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Форма с кнопкой для загрузки данных из Excel в SQL Server / 8 сообщений из 8, страница 1 из 1
23.12.2014, 15:16
    #38840695
saari
saari
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Форма с кнопкой для загрузки данных из Excel в SQL Server
Добрый день! Получил задание от разработать форму на Excel для автоматической загрузки данных из Excel в таблицу SQL Server 2008. С кнопкой. В таблице 4 столбца.
К сожалению, с VBA практически не сталкивался, похожих примеров не нашел. Может уже есть готовый шаблон для такого задания?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.12.2014, 15:32
    #38840725
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Форма с кнопкой для загрузки данных из Excel в SQL Server
Пакетная загрузка средствами самого SQL не рассматривается?
Какое количество записей в таблице?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.12.2014, 15:40
    #38840732
saari
saari
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Форма с кнопкой для загрузки данных из Excel в SQL Server
Shocker.Pro, записей будет от нескольких десятков до нескольких тысяч. Смысл в том, чтобы пользователь вставил данные в таблицу Excel, нажал на кнопку и эти данные загрузились в таблицу на SQL Server
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.12.2014, 15:59
    #38840757
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Форма с кнопкой для загрузки данных из Excel в SQL Server
Просто несколько тысяч записей по одной будут загружаться.... небыстро, полминуты-минуту
Быстрее затягивать средствами самого sql

Если время не так критично - вопрос, каким образом будет доступ к sql - прямой INSERT в таблицу, хранимка?
С состоянии ли вы написать запрос на вставку?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.12.2014, 16:16
    #38840793
saari
saari
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Форма с кнопкой для загрузки данных из Excel в SQL Server
Shocker.Pro, я так понял, что всё должно быть на VBA, т.е. будет вставляться инсертом. Тысяч записей не будет, я уточнил, максимум пара сотен, время процедуры не критично
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.12.2014, 16:46
    #38840850
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Форма с кнопкой для загрузки данных из Excel в SQL Server
как-то так
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
Dim cn As Object
Set cn = CreateObject("ADODB.Connection")
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + ThisWorkbook.FullName + ";Extended Properties='Excel 8.0'"

'тут в цикле:
cn.Execute "INSERT......"

cn.Close: Set cn = Nothing



 
Если вы используете для подключения OLE DB и параметр HDR=Yes, то обращаться к полям нужно по именам, оказавшимся в первой строке диапазона-источника. Можете выставить HDR=No, тогда имена полей будут F1, F2, F3 и т.д.
Не забывайте, что при использовании параметра IMEX=1 все данные преобразуются в текст!

http://support.microsoft.com/kb/257819/en
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.12.2014, 16:47
    #38840857
saari
saari
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Форма с кнопкой для загрузки данных из Excel в SQL Server
Shocker.Pro, спасибо огромное! Буду пробовать!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.12.2014, 13:02
    #38841606
saari
saari
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Форма с кнопкой для загрузки данных из Excel в SQL Server
получилось, наконец!
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
Sub Кнопка1_Щелчок()

Dim cn As ADODB.Connection
With ActiveWorkbook.ActiveSheet

Set cn = New ADODB.Connection
cn.connectionstring = "DATABASE=Analitics;DRIVER=SQL Server;SERVER=NAV-BACKUP;"
cn.Open

i_row = 2
Do While Cells(i_row, 1).Value <> ""
cn.Execute "INSERT INTO tbl_dbv_RNaO VALUES('" & .Cells(i_row, 1) & "', '" & Format(.Cells(i_row, 2).Value, "YYYY-MM-DD hh:mm:ss") & "', '" & .Cells(i_row, 3) & "')"
i_row = i_row + 1
Loop

cn.Close
Set cn = Nothing

End With

End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Форма с кнопкой для загрузки данных из Excel в SQL Server / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 377ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2156083]:
 0ms
get settings:
 11ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 45ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 50ms
get tp. blocked users:
 2ms
others: 232ms
total:  377ms
x
x
Закрыть


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