VB – подключение к локальному SQL-серверу и загрузка данных в таблицу из excel

Я хочу подключиться с кодом VB к локальному SQL Server и загрузить данные в таблицу из моего файла Excel. Это то, что я получил до сих пор с моим незавершенным кодом. Поле таблицы (me_table), которое я создал в базе данных SQL, – z, ad, ag, retd, to, wg, а в Excel sheet1 – столбец с данными, которые отражают поле в таблице. благодаря

пожалуйста, порекомендуйте

Imports System.Data Imports System.Data.SqlClient Module Module1 Dim myconnection As SqlConnection Dim mycommand As SqlCommand Dim dr As SqlDataReader Dim dr1 As SqlDataReader Dim ra As Integer Sub Main() Dim connectionString As String = "Server=DER7D;Database=testDB;User Id=DER7D\Der;Password=" myconnection = New SqlConnection("server=DER7D;uid=root;pwd=;database=simple") 'you need to provide password for sql server myconnection.Open() End Sub End Module 

Не принимая во внимание хороший дизайн, это то, что вам нужно. Просто обновите строку SqlConnection. Если вы решите, что хотите использовать несколько листов, просто добавьте их в переменную рабочих таблиц.

 Private Sub SaveDataFromSpreadsheet() Dim filePath = "directory\me_spreadsheet.xlsx" Dim connectionString = String.Format("Provider=Microsoft.ACE.OLEDB.12.0;Data Source={0}; Extended Properties=Excel 12.0;", filePath) Dim worksheets As New List(Of String)() From { "Sheet1" } For i As Integer = 0 To worksheets.Count - 1 Dim worksheetName As String = worksheets(i) Dim adapter = New OleDbDataAdapter(String.Format("SELECT * FROM [{0}$]", worksheetName), connectionString) Dim ds = New DataSet() adapter.Fill(ds, "me_table") Dim data As DataTable = ds.Tables("me_table") For x As Integer = 0 To data.Rows.Count - 1 Dim z As String = If(String.IsNullOrEmpty(data.Rows(x).ItemArray(0).ToString()), "", data.Rows(x).ItemArray(0).ToString()) Dim ad As String = If(String.IsNullOrEmpty(data.Rows(x).ItemArray(1).ToString()), "", data.Rows(x).ItemArray(1).ToString()) Dim ag As String = If(String.IsNullOrEmpty(data.Rows(x).ItemArray(2).ToString()), "", data.Rows(x).ItemArray(2).ToString()) Dim retd As String = If(String.IsNullOrEmpty(data.Rows(x).ItemArray(3).ToString()), "", data.Rows(x).ItemArray(3).ToString()) Dim wg As String = If(String.IsNullOrEmpty(data.Rows(x).ItemArray(4).ToString()), "", data.Rows(x).ItemArray(4).ToString()) Using myconnection As New SqlConnection("Data Source=Your-Server;Initial Catalog=me_database;Integrated Security=True") myconnection.Open() Dim mycommand As New SqlCommand("INSERT INTO me_Table(z, ad, ag, retd, wg) VALUES(@z, @ad, @ag, @retd, @wg)", myconnection) mycommand.Parameters.Add(New SqlParameter("@z", z)) mycommand.Parameters.Add(New SqlParameter("@ad", ad)) mycommand.Parameters.Add(New SqlParameter("@ag", ag)) mycommand.Parameters.Add(New SqlParameter("@retd", retd)) mycommand.Parameters.Add(New SqlParameter("@wg", wg)) mycommand.ExecuteNonQuery() myconnection.Close() End Using Next Next End Sub 
  • Вызов sql-запроса в таблице excel - объявленные переменные
  • Как скрыть повторяющиеся значения из строк в sql
  • Обновление базы данных SQL SERVER от EXCEL
  • Excel VBA SQL Join Синтаксическая ошибка
  • Распаковать таблицу Excel для использования сервера sql sql
  • Как я могу выполнить эту функцию Excel в SQL Server?
  • Как написать SQL-запрос для получения значения из файла excel на основе позиции вкладки листа
  • Строки в столбцы с строкой в ​​виде имени столбца
  • Каков лист «Внешние данные» в мастере импорта SQL Server?
  • Вывод скриптов и экспорт макросов MS Access в SQL
  • Выполнение хранимой процедуры с параметрами значения таблицы с использованием Microsoft Excel
  • Interesting Posts
    Давайте будем гением компьютера.