Загрузка данных на SQLServer

Я делаю макрос для загрузки данных на SQLServer, я хочу эту таблицу и каждый раз, когда вы запускаете макрос

  1. Хотите работать с Recordset Добавить Последний добавленный ряд

Sub GetData() Call RecordsetFromSheet(prueba) End Sub 

 Public Function RecordsetFromSheet(ByVal tableName As String) Dim cn As Object Dim rs As Object Dim strCon As String Dim strSQL, strInput As String Dim cmd As Object 

Открытие соединения с SQL Server

 Set cn = CreateObject("ADODB.Connection") cn.ConnectionString = OleDbConnectionString("xxxxx", "xxxx", "xx", "xxxxxxx") cn.Open 

Закрытие соединения

 If CBool(cn.State And adStateOpen) = True Then cn.Close Set cn = Nothing End If End Function 

Функция для StringConnection

 Function OleDbConnectionString(ByVal Server As String, ByVal Database As String, _ ByVal UserName As String, ByVal Password As String) As String If UserName = "" Then OleDbConnectionString = "Provider=SQLOLEDB.1;Data Source=" & Server _ & ";Initial Catalog=" & Database _ & ";Integrated Security=SSPI;Persist Security Info=False;" Else OleDbConnectionString = "Provider=SQLOLEDB.1;Data Source=" & Server _ & ";Initial Catalog=" & Database _ & ";User ID=" & UserName & ";Password=" & Password & ";" End If End Function 

  • Управление сеткой, которое можно разместить на пользовательской форме?
  • Неверный запрос SQL; 'DELETE', 'INSERT',
  • Excel VBA - диапазон поиска и подключенные наборы SQL ADODB для сопоставления записей Resultset в столбце
  • VBA: импорт таблицы из Excel в SQL
  • Как отправить большой запрос в MySQL из VBA
  • Несколько одновременных соединений от excel vba до Access DB
  • Новое подключение к базе данных VBA
  • Ошибка Excel .xlsx VBA ADODB при открытии файла из sharepoint
  • Возможно ли узнать, сколько соединений Oracle открыто в Excel VBA?
  • Запрос OLEDB для выбора первого и последнего времени для идентификатора
  • Предварительная загрузка Vba Excel ADODB в наборе данных наличных данных для быстрого запроса большого набора данных доступа 500000 строк
  • Interesting Posts

    Экспорт в Excel с использованием JSF 2 и XSLT

    Группировка различных элементов внутри категорий и количество выборок для каждой категории.

    Позднее привязка UDT в модуле формы для передачи в качестве параметра

    экспортировать данные с SQL Server 2000 в Excel

    Проблема с расширенным обновлением RTD надстройки

    Пакет SSIS работает с SSMS, но не с работы агента

    Диапазон разделения и вставка подмножества на новый рабочий лист

    Переполнение Excel 2013 из-за отсутствия оптимизации VBA

    vba – макрос создает неправильные результаты при запуске, но при правильном входе в результаты

    Как сохранить данные Excel с пулями в одной строке

    Скользящий средний расчет для пустых точек в excel

    Как добавить апостроф в каждую ячейку в конкретном столбце в excel без потери начальных нулей

    Как я могу использовать VBA для добавления подключения (к внешнему источнику данных) в Excel и сохранить его в списке электронных таблиц Excel в Connections

    Excel / Magento. CSV

    Могу ли я автоматически экспортировать данные из отчета Cognos в базу данных?

    Давайте будем гением компьютера.