ByteScout Premium Suite – VB.NET – Generate barcodes from excel with barcode sdk

Home
/
Articles
/
ByteScout Premium Suite – VB.NET – Generate barcodes from excel with barcode sdk

printable version:
ByteScout-Premium-Suite-VB-NET-Generate-barcodes-from-excel-with-barcode-sdk.pdf

How to generate barcodes from excel with barcode sdk in VB.NET with ByteScout Premium Suite

How to write a robust code in VB.NET to generate barcodes from excel with barcode sdk with this step-by-step tutorial

The sample shows instructions and algorithm of how to generate barcodes from excel with barcode sdk and how to make it run in your VB.NET application. ByteScout Premium Suite is the set that includes 12 SDK products from ByteScout including tools and components for PDF, barcodes, spreadsheets, screen video recording and you can use it to generate barcodes from excel with barcode sdk with VB.NET.

This prolific sample source code in VB.NET for ByteScout Premium Suite contains various functions and other necessary options you should do calling the API to generate barcodes from excel with barcode 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. If you want to use these VB.NET sample examples in one or many applications then they can be used easily.

Our website gives trial version of ByteScout Premium Suite for free. It also includes 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)

Module1.vb

      Imports Bytescout.BarCode
Imports System.Data.OleDb

Module Module1

    Sub Main()

        Dim barcode As Barcode = New Barcode()

        barcode.Symbology = SymbologyType.Code128

        Dim connection As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=Book1.xlsx;Extended Properties='Excel 8.0;HDR=Yes'")
        connection.Open()

        Dim command As OleDbCommand = connection.CreateCommand()
        command.CommandText = "SELECT * FROM [Sheet1$]"

        Dim dataReader As OleDbDataReader = command.ExecuteReader()

        Dim i As Integer

        While dataReader.Read()
            barcode.Value = Convert.ToString(dataReader.GetValue(0))
            barcode.SaveImage(barcode.Value & ".png")
            i = i + 1
        End While

        dataReader.Dispose()
        connection.Dispose()
        barcode.Dispose()

    End Sub

End Module