ByteScout Data Extraction Suite – VB.NET – Convert xlsx to sql server with spreadsheet sdk

Home
/
Articles
/
ByteScout Data Extraction Suite – VB.NET – Convert xlsx to sql server with spreadsheet sdk

printable version:
ByteScout-Data-Extraction-Suite-VB-NET-Convert-xlsx-to-sql-server-with-spreadsheet-sdk.pdf

How to convert xlsx to sql server with spreadsheet sdk in VB.NET using ByteScout Data Extraction Suite

How to write a robust code in VB.NET to convert xlsx to sql server with spreadsheet sdk with this step-by-step tutorial

On this page you will learn from code samples for programming in VB.NET.Writing of the code to convert xlsx to sql server with spreadsheet sdk in VB.NET can be executed by programmers of any level using ByteScout Data Extraction Suite. ByteScout Data Extraction Suite is the bundle that includes three SDK tools for data extraction from PDF, scans, images and from spreadsheets: PDF Extractor SDK, Data Extraction SDK, Barcode Reader SDK. It can convert xlsx to sql server with spreadsheet sdk in VB.NET.

The SDK samples given below describe how to quickly make your application do convert xlsx to sql server with spreadsheet sdk in VB.NET with the help of ByteScout Data Extraction Suite. IF you want to implement the functionality, just copy and paste this code for VB.NET below into your code editor with your app, compile and run your application. Applying VB.NET application mostly includes various stages of the software development so even if the functionality works please test it with your data and the production environment.

The trial version of ByteScout Data Extraction Suite can be downloaded for free from our website. It also includes source code samples for VB.NET and other programming languages.

On-demand (REST Web API) version:
Web API (on-demand version)

On-premise offline SDK for Windows:
60 Day Free Trial (on-premise)

Program.vb

      Imports Bytescout.Spreadsheet
Imports System.Data.SqlClient

Class Program
    Friend Shared Sub Main(args As String())
        Try
            ' MODIFY THE CONNECTION STRING WITH YOUR CREDENTIALS!!!
            Dim connectionString As String = "Data Source=localhost;Initial Catalog=master;Integrated Security=true;"

            Using connection As New SqlConnection(connectionString)
                connection.Open()

                ' Drop test database if exists
                ExecuteQueryWithoutResult(connection, "IF DB_ID ('XlsxTests') IS NOT NULL DROP DATABASE XlsxTests")
                ' Create empty database
                ExecuteQueryWithoutResult(connection, "CREATE DATABASE XlsxTests")
                ' Switch to created database
                ExecuteQueryWithoutResult(connection, "USE XlsxTests")
                ' Create a table for XLSX data
                ExecuteQueryWithoutResult(connection, "CREATE TABLE XlsxTest (Name VARCHAR(40), FullName VARCHAR(255))")

                ' Load XLSX document
                Using document As New Spreadsheet()
                    document.LoadFromFile("Hello_world.xlsx")
                    Dim worksheet As Worksheet = document.Workbook.Worksheets(0)

                    For row As Integer = 0 To worksheet.UsedRangeRowMax
                        Dim insertCommand As [String] = String.Format("INSERT XlsxTest VALUES('{0}','{1}')", worksheet.Cell(row, 0).Value, worksheet.Cell(row, 1).Value)
                        ExecuteQueryWithoutResult(connection, insertCommand)
                    Next
                End Using

                ' Check the data successfully exported
                Using command As New SqlCommand("SELECT * from XlsxTest", connection)
                    Dim reader As SqlDataReader = command.ExecuteReader()

                    If reader IsNot Nothing Then
                        Console.WriteLine()
                        Console.WriteLine("Exported XLSX data:")
                        Console.WriteLine()

                        While reader.Read()
                            Console.WriteLine([String].Format("{0}  |  {1}", reader(0), reader(1)))
                        End While
                    End If
                End Using

                Console.WriteLine()
                Console.WriteLine("Press any key.")
                Console.ReadKey()
            End Using
        Catch ex As Exception
            Console.WriteLine("Error: " & ex.Message)
            Console.ReadKey()
        End Try
    End Sub

    Private Shared Sub ExecuteQueryWithoutResult(connection As SqlConnection, query As String)
        Using command As New SqlCommand(query, connection)
            command.ExecuteNonQuery()
        End Using
    End Sub
End Class