Imports System.Data
Imports System.Data.SqlClient
Module Module1
Sub Main()
Dim connectionString As String = "your_connection_string"
Dim dataTable As DataTable = GetDataTable() ' Assume this method gets your DataTable
Using connection As New SqlConnection(connectionString)
connection.Open()
Using bulkCopy As New SqlBulkCopy(connection)
bulkCopy.DestinationTableName = "YourTableName"
' Optionally, map columns
' bulkCopy.ColumnMappings.Add("SourceColumn", "DestinationColumn")
Try
' Write from the source to the destination.
bulkCopy.WriteToServer(dataTable)
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try
End Using
End Using
End Sub
' This function should be defined to get your DataTable
Function GetDataTable() As DataTable
Dim dt As New DataTable()
' Populate your DataTable here
dt.Columns.Add("Column1", GetType(String))
dt.Columns.Add("Column2", GetType(String))
dt.Columns.Add("Column3", GetType(String))
' Add some sample data
dt.Rows.Add("Value1", "Value2", "Value3")
dt.Rows.Add("Value4", "Value5", "Value6")
Return dt
End Function
End Module
