Private Sub BCP()
Using bcp As SqlClient.SqlBulkCopy = New SqlClient.SqlBulkCopy("ConnectionString")
AddHandler bcp.SqlRowsCopied, AddressOf bcp_SqlRowsCopied
bcp.BatchSize = 100 'เอาครั้งละ 100 ระเบียน (Commit Change)
bcp.NotifyAfter = 100 'See More bcp_SqlRowsCopied
bcp.DestinationTableName = "targetTable"
bcp.WriteToServer(New DataSet().Tables(0))
End Using
End Sub
Private Sub bcp_SqlRowsCopied(sender As Object, e As SqlRowsCopiedEventArgs)
'MsgBox(String.Format("{0:N2}", e.RowsCopied))
End Sub
Imports System.Threading
Imports System.IO
Imports System.IO.Ports
Public Class frmThreadDelegate02
'*****
'เตรียมเผื่อเอาไว้ คอมพิวเตอ ร์ 1 เครื่องคุมเครื่องพิมพ์หลายตัว (Table Design Printers Setting)
Dim dicOnePCControlMorePrinter As New Dictionary(Of String, SerialPort)
'*****
Private Delegate Sub SetTextCallBack(ByVal s As String)
Public WithEvents m_SerialPort As New SerialPort()
Private recievedData As New Queue(Of Byte)()
'...
'...
'...
#Region " Manual Thread"
...
...
...