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

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

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

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

Step-by-step tutorial on how to convert ods to sql server with spreadsheet sdk in VB.NET

An easy to understand sample source code to learn how to convert ods to sql server with spreadsheet sdk in VB.NET ByteScout Data Extraction Suite is the set that includes 3 SDK products for data extraction from PDF, scans, images and from spreadsheets: PDF Extractor SDK, Data Extraction SDK, Barcode Reader SDK. It can convert ods to sql server with spreadsheet sdk in VB.NET.

This prolific sample source code in VB.NET for ByteScout Data Extraction Suite contains various functions and other necessary options you should do calling the API to convert ods to sql server with spreadsheet sdk. 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. Complete and detailed tutorials and documentation are available along with installed ByteScout Data Extraction Suite if you’d like to learn more about the topic and the details of the API.

ByteScout provides the free trial version of ByteScout Data Extraction Suite along with the documentation and source code samples.

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 ('OdsTests') IS NOT NULL DROP DATABASE OdsTests")
                ' Create empty database
                ExecuteQueryWithoutResult(connection, "CREATE DATABASE OdsTests")
                ' Switch to created database
                ExecuteQueryWithoutResult(connection, "USE OdsTests")
                ' Create a table for ODS data
                ExecuteQueryWithoutResult(connection, "CREATE TABLE OdsTest (Name VARCHAR(40), FullName VARCHAR(255))")

                ' Load ODS document
                Using document As New Spreadsheet()
                    document.LoadFromFile("sample.ods")
                    Dim worksheet As Worksheet = document.Workbook.Worksheets(0)

                    For row As Integer = 0 To worksheet.UsedRangeRowMax
                        Dim insertCommand As [String] = String.Format("INSERT OdsTest 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 OdsTest", connection)
                    Dim reader As SqlDataReader = command.ExecuteReader()

                    If reader IsNot Nothing Then
                        Console.WriteLine()
                        Console.WriteLine("Exported ODS 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