三个级联的Table 使用DataAdapter的带参数的Command来实现修改

Question

'''''''''''''''''''''''''''''''''''''''''*******************************************************************************'Customers
Dim InsertCommand As New SqlClient.SqlCommand("INSERT INTO Customers(CustomerID, 
        CompanyName) " & _
        "VALUES (@CustomerID, @CompanyName)")
InsertCommand.Connection = conn
InsertCommand.CommandType = CommandType.Text
InsertCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@CustomerID", 
              System.Data.SqlDbType.VarChar, 50, "CustomerID"))
InsertCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@CompanyName", 
              System.Data.SqlDbType.VarChar, 40, "CompanyName"))
customersAdapter.InsertCommand = InsertCommandDim UpdateCommand As New SqlClient.SqlCommand("UPDATE Customers SET CustomerID = 
     @CustomerID, CompanyName = @CompanyName WHERE (CustomerID = @OriginalCustomerID) AND 
     (CompanyName = @OriginalCompanyName)") '" ; SELECT CustomerID, CompanyName FROM 
      Customers WHERE (CustomerID = @CustomerID)")
UpdateCommand.Connection = conn
UpdateCommand.CommandType = CommandType.Text
UpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@CustomerID", 
              System.Data.SqlDbType.VarChar, 50, "CustomerID"))
UpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@CompanyName", 
              System.Data.SqlDbType.VarChar, 40, "CompanyName"))
UpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter
             ("@OriginalCustomerID", System.Data.SqlDbType.VarChar, 50, 
             System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, 
             Byte), "CustomerID", System.Data.DataRowVersion.Original, Nothing))
UpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter
      ("@OriginalCompanyName", System.Data.SqlDbType.VarChar, 40, 
      System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, 
      Byte), "CompanyName", System.Data.DataRowVersion.Original, Nothing))
           
customersAdapter.UpdateCommand = UpdateCommand
Dim DeleteCommand As New SqlClient.SqlCommand("DELETE FROM Customers WHERE (CustomerID = 
            @Original_CustomerID) ")
DeleteCommand.Connection = conn
DeleteCommand.CommandType = CommandType.TextDeleteCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter
              ("@Original_CustomerID", System.Data.SqlDbType.VarChar, 50, 
              System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, 
              Byte), "CustomerID", System.Data.DataRowVersion.Original, Nothing))customersAdapter.DeleteCommand = DeleteCommand

Answer 1

'''''''''''''''''''''''''''''''''''''''''*******************************************************************************'Orders
Dim OrdersInsertCommand As New SqlClient.SqlCommand("INSERT INTO Orders(OrderID, 
              CustomerID) " & _
              "VALUES (@OrderID, @CustomerID) ; SELECT OrderID, CustomerID FROM Orders 
              WHERE (OrderID = @OriginalOrderID)")
OrdersInsertCommand.Connection = conn
OrdersInsertCommand.CommandType = CommandType.Text
OrdersInsertCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@OrderID", 
              System.Data.SqlDbType.Int, 4, "OrderID"))
OrdersInsertCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@CustomerID", 
                    System.Data.SqlDbType.VarChar, 40, "CustomerID"))
OrdersInsertCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter
                    ("@OriginalOrderID", System.Data.SqlDbType.VarChar, 50, 
                    System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, 
                    Byte), "OrderID", System.Data.DataRowVersion.Original, Nothing))ordersAdapter.InsertCommand = OrdersInsertCommand
Dim OrdersUpdateCommand As New SqlClient.SqlCommand("UPDATE Orders SET OrderID = 
    @OrderID, CustomerID = @CustomerID WHERE (OrderID = @OriginalOrderID) ")   'AND 
    (CustomerID = @OldCustomerID2)") '" ; SELECT CustomerID, CompanyName FROM Customers 
     WHERE (CustomerID = @CustomerID)")
OrdersUpdateCommand.Connection = conn
OrdersUpdateCommand.CommandType = CommandType.Text
OrdersUpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@OrderID", 
          System.Data.SqlDbType.Int, 4, "OrderID"))
OrdersUpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@CustomerID", 
            System.Data.SqlDbType.VarChar, 40, "CustomerID"))
OrdersUpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter
         ("@OriginalOrderID", System.Data.SqlDbType.VarChar, 50, 
         System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, 
         Byte), "OrderID", System.Data.DataRowVersion.Original, Nothing))
 'OrdersUpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter
      ("@OldCustomerID2", System.Data.SqlDbType.VarChar, 40, 
      System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, 
      Byte), "CustomerID", System.Data.DataRowVersion.Original, Nothing))
ordersAdapter.UpdateCommand = OrdersUpdateCommand
           
Dim OrdersDeleteCommand As New SqlClient.SqlCommand("DELETE FROM Orders WHERE 
           (OrderID = @OriginalOrderID) ")
            OrdersDeleteCommand.Connection = conn
            OrdersDeleteCommand.CommandType = CommandType.TextOrdersDeleteCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter
      ("@OriginalOrderID", System.Data.SqlDbType.VarChar, 50, 
      System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, 
      Byte), "OrderID", System.Data.DataRowVersion.Original, Nothing))
ordersAdapter.DeleteCommand = OrdersDeleteCommand        '''''''''''''''''''''''''''******************************************OrderDetailsDim DetailsInsertCommand As New SqlClient.SqlCommand("INSERT INTO [Order Details]
               (OrderID, ProductID) " & _
               "VALUES (@OrderID, @ProductID) ; SELECT OrderID, ProductID FROM [Order 
                Details] WHERE (OrderID = @OriginalOrderID)")
DetailsInsertCommand.Connection = conn
DetailsInsertCommand.CommandType = CommandType.Text
DetailsInsertCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@OrderID", 
            System.Data.SqlDbType.VarChar, 50, "OrderID"))
DetailsInsertCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ProductID", 
            System.Data.SqlDbType.Int, 4, "ProductID"))
DetailsInsertCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter
            ("@OriginalOrderID", System.Data.SqlDbType.VarChar, 50, 
             System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, 
             Byte), "OrderID", System.Data.DataRowVersion.Original, Nothing))
orderDetailsAdapter.InsertCommand = DetailsInsertCommand
Dim DetailsDeleteCommand As New SqlClient.SqlCommand("DELETE FROM [Order Details] WHERE 
          (OrderID = @OrderID) ")
DetailsDeleteCommand.Connection = conn
DetailsDeleteCommand.CommandType = CommandType.TextDetailsDeleteCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@OrderID", 
      System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, 
      CType(0, Byte), CType(0, Byte), "OrderID", System.Data.DataRowVersion.Original, 
      Nothing))
orderDetailsAdapter.DeleteCommand = DetailsDeleteCommand
Dim DetailsUpdateCommand As New SqlClient.SqlCommand("UPDATE [Order Details] SET OrderID 
    = @OrderID, ProductID = @ProductID WHERE (OrderID = @OldOrderID) AND (ProductID = 
    @OldProductID)") '" ; SELECT CustomerID, CompanyName FROM Customers WHERE (CustomerID 
    = @CustomerID)")
DetailsUpdateCommand.Connection = conn
DetailsUpdateCommand.CommandType = CommandType.Text
DetailsUpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@OrderID", 
      System.Data.SqlDbType.VarChar, 50, "OrderID"))DetailsUpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ProductID", 
        System.Data.SqlDbType.VarChar, 40, "ProductID"))DetailsUpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter("@OldOrderID", 
       System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, 
       CType(0, Byte), CType(0, Byte), "OrderID", System.Data.DataRowVersion.Original, 
       Nothing))
DetailsUpdateCommand.Parameters.Add(New System.Data.SqlClient.SqlParameter
       ("@OldProductID", System.Data.SqlDbType.VarChar, 40, 
       System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, 
       Byte), "ProductID", System.Data.DataRowVersion.Original, Nothing))orderDetailsAdapter.UpdateCommand = DetailsUpdateCommand