ByteScout Barcode Suite - VB.NET - Import from dataset with spreadsheet sdk - ByteScout

ByteScout Barcode Suite – VB.NET – Import from dataset with spreadsheet sdk

  • Home
  • /
  • Articles
  • /
  • ByteScout Barcode Suite – VB.NET – Import from dataset with spreadsheet sdk

How to import from dataset with spreadsheet sdk in VB.NET and ByteScout Barcode Suite

If you want to learn more then this tutorial will show how to import from dataset with spreadsheet sdk in VB.NET

An easy to understand guide on how to import from dataset with spreadsheet sdk in VB.NET with this source code sample. What is ByteScout Barcode Suite? It 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 help you to import from dataset with spreadsheet sdk in your VB.NET application.

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 import from dataset with spreadsheet sdk below and use it in your application. 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. This basic programming language sample code for VB.NET will do the whole work for you to import from dataset with spreadsheet sdk.

You can download free trial version of ByteScout Barcode Suite from our website to see and try many others 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 System.IO Module Module1 Sub Main() Const fileName As String = "VBNetImportFromDataSet.xls" 'Create a new spreadsheet Dim spreadsheet As Bytescout.Spreadsheet.Spreadsheet = New Bytescout.Spreadsheet.Spreadsheet 'Get the data from the 2D array that we want to import Dim dataset = GetDataSet() 'Import data into spreadheet spreadsheet.ImportFromDataSet(dataset) 'Insert row with column captions For i As Integer = 0 To dataset.Tables.Count - 1 Dim dataTable As DataTable = dataset.Tables(i) Dim worksheet As Worksheet = spreadsheet.Worksheets(i) worksheet.Rows.Insert(0) For colIndex As Integer = 0 To dataTable.Columns.Count - 1 worksheet.Cell(0, colIndex).Value = dataTable.Columns(colIndex).Caption Next Next 'Save the spreadsheet If (File.Exists(fileName)) Then File.Delete(fileName) End If spreadsheet.SaveAs(fileName) 'Close spreadsheet spreadsheet.Close() 'Open the spreadsheet Process.Start(fileName) End Sub ''' <summary> ''' Returns a dataset containing 2 tables ''' </summary> ''' <returns>Dataset containing 2 tables</returns> Function GetDataSet() As DataSet Dim dataSet = New DataSet dataSet.Tables.Add(GetDataTableOfElements()) dataSet.Tables.Add(GetDataTableOfScientists()) Return dataSet End Function ''' <summary> ''' Creates a data table of the periodic table of elements ''' </summary> ''' <returns>A data table of the periodic table of elements</returns> Function GetDataTableOfElements() As DataTable Dim periodicTable = New DataTable("PeriodicTable") Dim dr As DataRow periodicTable.Columns.Add("Name", GetType(String)) periodicTable.Columns.Add("Symbol", GetType(String)) periodicTable.Columns.Add("AtomicNumber", GetType(Integer)) dr = periodicTable.Rows.Add() dr(0) = "Hydrogen" dr(1) = "H" dr(2) = "1" dr = periodicTable.Rows.Add() dr(0) = "Helium" dr(1) = "He" dr(2) = "2" dr = periodicTable.Rows.Add() dr(0) = "Lithium" dr(1) = "Li" dr(2) = "3" dr = periodicTable.Rows.Add() dr(0) = "Beryllium" dr(1) = "Be" dr(2) = "4" dr = periodicTable.Rows.Add() dr(0) = "Boron" dr(1) = "B" dr(2) = "5" dr = periodicTable.Rows.Add() dr(0) = "Carbon" dr(1) = "C" dr(2) = "6" Return periodicTable End Function ''' <summary> ''' Creates a data table of scientists ''' </summary> ''' <returns>A datatable of scientists</returns> ''' <remarks></remarks> Function GetDataTableOfScientists() As DataTable Dim scientistsTable = New DataTable("Scientists") Dim dr As DataRow scientistsTable.Columns.Add("Name", GetType(String)) dr = scientistsTable.Rows.Add() dr(0) = "Antoine Lavoisier" dr = scientistsTable.Rows.Add() dr(0) = "Julius Lothar Meyer " dr = scientistsTable.Rows.Add() dr(0) = "Dmitri Ivanovich Mendeleev" Return scientistsTable End Function End Module

ON-PREMISE OFFLINE SDK

60 Day Free Trial or Visit ByteScout Barcode Suite Home Page

Explore ByteScout Barcode Suite Documentation

Explore Samples

Sign Up for ByteScout Barcode Suite Online Training

ON-DEMAND REST WEB API

Get Your API Key

Explore Web API Docs

Explore Web API Samples

VIDEO

ON-PREMISE OFFLINE SDK

60 Day Free Trial or Visit ByteScout Barcode Suite Home Page

Explore ByteScout Barcode Suite Documentation

Explore Samples

Sign Up for ByteScout Barcode Suite Online Training

ON-DEMAND REST WEB API

Get Your API Key

Explore Web API Docs

Explore Web API Samples

Tutorials:

prev
next