ByteScout Spreadsheet SDK - VB.NET - Import From DataSet - ByteScout

ByteScout Spreadsheet SDK – VB.NET – Import From DataSet

  • Home
  • /
  • Articles
  • /
  • ByteScout Spreadsheet SDK – VB.NET – Import From DataSet

How to import from dataset in VB.NET using ByteScout Spreadsheet SDK

This code in VB.NET shows how to import from dataset with this how to tutorial

The coding tutorials are designed to help you test the features without need to write your own code. ByteScout Spreadsheet SDK is the SDK to create, read, modify and calculate spreadsheets. Formula calculations are supported, import and export to and from JSON, CSV, XML, databases, arrays and you can use it to import from dataset with VB.NET.

Fast application programming interfaces of ByteScout Spreadsheet SDK for VB.NET plus the instruction and the code below will help you quickly learn how to import from dataset. Just copy and paste the code into your VB.NET application’s code and follow the instruction. Detailed tutorials and documentation are available along with installed ByteScout Spreadsheet SDK if you’d like to dive deeper into the topic and the details of the API.

You can download free trial version of ByteScout Spreadsheet SDK 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 Spreadsheet SDK Home Page

Explore ByteScout Spreadsheet SDK Documentation

Explore Samples

Sign Up for ByteScout Spreadsheet SDK 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 Spreadsheet SDK Home Page

Explore ByteScout Spreadsheet SDK Documentation

Explore Samples

Sign Up for ByteScout Spreadsheet SDK Online Training

ON-DEMAND REST WEB API

Get Your API Key

Explore Web API Docs

Explore Web API Samples

Tutorials:

prev
next