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

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

printable version:
ByteScout-Barcode-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 with ByteScout Barcode Suite

If you want to learn more then this tutorial will show how to convert xlsx to sql server with spreadsheet sdk in VB.NET

An easy to understand guide on how to convert xlsx to sql server with spreadsheet sdk in VB.NET with this source code sample. ByteScout Barcode Suite is the bundle that privides 3 SDK products to generate barcodes (Barcode SDK), read barcodes (Barcode Reaer SDK) and read and write spreadsheets (Spreadsheet SDK) and you can use it to convert xlsx to sql server with spreadsheet sdk with VB.NET.

Want to quickly learn? This fast application programming interfaces of ByteScout Barcode Suite for VB.NET plus the guidelines and the code below will help you quickly learn how to convert xlsx to sql server with spreadsheet sdk. Just copy and paste the code into your VB.NET application’s code and follow the instructions. This basic programming language sample code for VB.NET will do the whole work for you to convert xlsx to sql server with spreadsheet sdk.

You can download free trial version of ByteScout Barcode Suite from our website to see and try many others source code samples for VB.NET.

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