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

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

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

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

Step-by-step tutorial on how to generate barcodes from database with barcode sdk in VB.NET

These source code samples are assembled by their programming language and functions they apply. ByteScout Premium Suite is the set that includes 12 SDK products from ByteScout including tools and components for PDF, barcodes, spreadsheets, screen video recording. It can be applied to generate barcodes from database with barcode sdk using VB.NET.

The SDK samples given below describe how to quickly make your application do generate barcodes from database with barcode sdk in VB.NET with the help of ByteScout Premium Suite. This VB.NET sample code is all you need for your app. Just copy and paste the code, add references (if needs to) and you are all set! Check VB.NET sample code samples to see if they respond to your needs and requirements for the project.

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.QRCode

        Dim connection As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=demodb.mdb;User Id=admin;Password=;")
        connection.Open()

        Dim command As OleDbCommand = connection.CreateCommand()
        command.CommandText = "SELECT title FROM Books"

        Dim dataReader As OleDbDataReader = command.ExecuteReader()

        Dim i As Integer

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

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

    End Sub

End Module