Imports System.Data.SqlClient
Imports ZKLZ_SQLDataLayer

Public NotInheritable Class dbeFASTENING
   
   Private Sub New()
      'private constructor
   End Sub
   
   Private Shared strSQL As String = ""
   
   Public Shared Function GetAllDataTable(ByVal UNT_ID As Integer) As DataTable
      strSQL = "SELECT FST_ID, FST__MNF_ID, MNF_NAME, FST__UNT_ID " _
             & "FROM FASTENING JOIN MANUFACTURE ON FST__MNF_ID=MNF_ID " _
             & "WHERE FST__UNT_ID=" & UNT_ID.ToString
      Return DBExecutor.ExecuteSelectCommand(strSQL)
   End Function
   
   Public Shared Sub UpdateRows(ByVal DT As DataTable, ByVal TR As SqlTransaction)
      Dim AD As New SqlDataAdapter()
      strSQL = "INSERT INTO FASTENING (FST__MNF_ID, FST__UNT_ID) VALUES (@MNF_ID, @UNT_ID)"
      AD.InsertCommand = New SqlCommand(strSQL, DBExecutor.CNN, TR)
      AD.InsertCommand.Parameters.Add("@MNF_ID", SqlDbType.Int,  10 , "FST__MNF_ID")
      AD.InsertCommand.Parameters.Add("@UNT_ID", SqlDbType.Int,  10 , "FST__UNT_ID")
      strSQL = "UPDATE FASTENING SET FST__MNF_ID=@MNF_ID, FST__UNT_ID=@UNT_ID WHERE FST_ID=@FST_ID"
      AD.UpdateCommand = New SqlCommand(strSQL, DBExecutor.CNN, TR)
      AD.UpdateCommand.Parameters.Add("@MNF_ID", SqlDbType.Int,  10 , "FST__MNF_ID")
      AD.UpdateCommand.Parameters.Add("@UNT_ID", SqlDbType.Int,  10 , "FST__UNT_ID")
      AD.UpdateCommand.Parameters.Add("@FST_ID", SqlDbType.Int,  10 , "FST_ID")
      strSQL = "DELETE FROM FASTENING WHERE FST_ID=@FST_ID"
      AD.DeleteCommand = New SqlCommand(strSQL, DBExecutor.CNN, TR)
      AD.DeleteCommand.Parameters.Add("@FST_ID", SqlDbType.Int,  10 , "FST_ID")
      AD.Update(DT)
   End Sub
   
End Class

Dim DT As DataTable = dbeFASTENING.GetAllDataTable( 0 )
' ... редактируешь DT
' и сохраняешь в базу
dbeFASTENING.UpdateRows(DT, TR)

                SqlBulkCopy bulk = new SqlBulkCopy(conn);
                bulk.DestinationTableName = "dbo.ParseUniformIsu"; //имя таблицы на сервере
                try
                {
                    bulk.WriteToServer(table); //где "table"DataTable с данными
                }
                catch
                {
                    MessageBox.Show("Закачка на сервер завершилась не удачно!", "Ошибка закачки данных на сервер!");
                }
                finally
                {
                    conn.Close();
                }