Scribd
Upload
36 views2 pages

Imports System Excel To SQL

This code sample demonstrates how to export data from an Excel spreadsheet into a SQL database table. It opens an Excel file, reads the data from the first worksheet, and inserts each row into a database table. It then queries the table to verify the data was exported correctly and displays the results. The code connects to a SQL Server database, creates a test database and table if they don't exist, loads the Excel file, inserts each row into the table, and outputs the exported data.

Uploaded by

Aung Tike
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
36 views2 pages

Imports System Excel To SQL

This code sample demonstrates how to export data from an Excel spreadsheet into a SQL database table. It opens an Excel file, reads the data from the first worksheet, and inserts each row into a database table. It then queries the table to verify the data was exported correctly and displays the results. The code connects to a SQL Server database, creates a test database and table if they don't exist, loads the Excel file, inserts each row into the table, and outputs the exported data.

Uploaded by

Aung Tike
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd

Imports System.

IO
Imports [Link]
Imports [Link]
 
Class Program
Friend Shared Sub Main(args As String())
Try
' MODIFY THE CONNECTION STRING WITH YOUR CREDENTIALS!!!
Dim connectionString As String = "Data Source=localhost;Initial
Catalog=master;Integrated Security=true;"
 
Using connection As New SqlConnection(connectionString)
[Link]()
 
' Drop test database if exists
ExecuteQueryWithoutResult(connection, "IF DB_ID ('XlsTests') IS NOT NULL
DROP DATABASE XlsTests")
' Create empty database
ExecuteQueryWithoutResult(connection, "CREATE DATABASE XlsTests")
' Switch to created database
ExecuteQueryWithoutResult(connection, "USE XlsTests")
' Create a table for XLS data
ExecuteQueryWithoutResult(connection, "CREATE TABLE XlsTest (Name
VARCHAR(40), FullName VARCHAR(255))")
 
' Load XLS document
Using document As New Spreadsheet()
[Link]("[Link]")
Dim worksheet As Worksheet = [Link](0)
 
For row As Integer = 0 To [Link]
Dim insertCommand As [String] = [Link]("INSERT XlsTest
VALUES('{0}','{1}')", [Link](row, 0).Value, [Link](row,
1).Value)
ExecuteQueryWithoutResult(connection, insertCommand)
Next
End Using
 
' Check the data successfully exported
Using command As New SqlCommand("SELECT * from XlsTest", connection)
Dim reader As SqlDataReader = [Link]()
 
If reader IsNot Nothing Then
[Link]()
[Link]("Exported XLS data:")
[Link]()
 
While [Link]()
[Link]([String].Format("{0} | {1}", reader(0),
reader(1)))
End While
End If
End Using
 
[Link]()
[Link]("Press any key.")
[Link]()
End Using
Catch ex As Exception
[Link]("Error: " & [Link])
[Link]()
End Try
End Sub
 
Private Shared Sub ExecuteQueryWithoutResult(connection As SqlConnection,
query As String)
Using command As New SqlCommand(query, connection)
[Link]()
End Using
End Sub
End Class

You might also like