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

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

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

How to generate barcodes from database with barcode sdk in VB.NET and ByteScout Barcode Suite

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

The sample source codes on this page shows how to generate barcodes from database with barcode sdk in VB.NET. 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). It can be applied to generate barcodes from database with barcode sdk using VB.NET.

Want to save time? You will save a lot of time on writing and testing code as you may just take the VB.NET code from ByteScout Barcode Suite for generate barcodes from database with barcode sdk below and use it in your application. 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.

ByteScout provides the free trial version of ByteScout Barcode 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)

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