ByteScout BarCode Generator SDK – VB.NET – Generate Barcodes from Database

Home
/
Articles
/
ByteScout BarCode Generator SDK – VB.NET – Generate Barcodes from Database

printable version:
ByteScout-Barcode-SDK-VB-NET-Generate-Barcodes-from-Database.pdf

How to generate barcodes from database in VB.NET using ByteScout Barcode SDK

Tutorial on how to generate barcodes from database in VB.NET

We made thousands of pre-made source code pieces for easy implementation in your own programming projects. ByteScout Barcode SDK can generate barcodes from database. It can be used from VB.NET. ByteScout Barcode SDK is the robost SDK that generates high quality barcode images and pdf. Can generate all popular types of barcodes from QR Code, Code 39, Code 128, UPC, GS1, GS-128, PDF417, Datamatrix to more exotic barcode types. Fully customizable fonts, colors, print sizes. Includes special functions to ensure output quality, and tools for adding barcodes to new or existing pdf files and images.

This rich sample source code in VB.NET for ByteScout Barcode SDK includes the number of functions and options you should do calling the API to generate barcodes from database. In your VB.NET project or application you may simply copy & paste the code and then run your app! Test VB.NET sample code examples whether they respond your needs and requirements for the project.

Free trial version of ByteScout Barcode SDK is available for download from our website. Get it to try other 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)

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