Using con As New SqlConnection(ConfigurationManager.ConnectionStrings("connection").ConnectionString) con.Open() Dim cmd As SqlCommand = con.CreateCommand() Using transaction As SqlTransaction = _ con.BeginTransaction() Using bulkCopy As SqlBulkCopy = New _ SqlBulkCopy(con, _ SqlBulkCopyOptions.KeepIdentity, transaction) bulkCopy.BatchSize = 10 bulkCopy.DestinationTableName = _ "trycsv" cmd.Connection = connection cmd.Transaction = transaction Try bulkCopy.WriteToServer(reader) cmd.CommandText = _"UPDATE trycsv SET level = @level where level =@updlevel" cmd.Parameters.AddWithValue("@level", "1") cmd.Parameters.AddWithValue("@updlevel", "O") cmd.ExecuteNonQuery() transaction.Commit() Catch ex As Exception transaction.Rollback() Finally con.Close() End Try End Using End Using End Using
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)