Đang chuẩn bị liên kết để tải về tài liệu:
Pro VB 2005 and the .NET 2.0 Platform Second Edition phần 9
Đang chuẩn bị nút TẢI XUỐNG, xin hãy chờ
Tải xuống
Một khi bạn đã tạo ra đối tượng lệnh của bạn, bạn cắm nó vào bộ chuyển đổi thông qua tài sản InsertCommand. Tiếp theo, bạn thêm một hàng mới để tồn kho DataTable duy trì bởi các đối tượng dsCarInventory. Một khi bạn đã thêm DataRow trở lại vào các DataTable, các bộ chuyển đổi sẽ thực hiện các câu lệnh SQL được tìm thấy trong tài sản | 824 CHAPTER 24 DATABASE ACCESS WITH ADO.NET Update Inventory Table with new row. Dim newCar As DataRow dsCarInventory.Tables Inventory .NewRow newCar CarID newCarID newCar Make newCarMake newCar Color newCarColor newCar PetName newCarPetName dsCarInventory.Tables Inventory .Rows.Add newCar Try dAdpater.Update dsCarInventory.Tables Inventory Catch Console.WriteLine Sorry Error Canceling request End Try End Sub Once you have created your command object you plug it into the adapter via the InsertCommand property. Next you add a new row to the Inventory DataTable maintained by the dsCarInventory object. Once you have added this DataRow back into the DataTable the adapter will execute the SQL found within the InsertCommand property given that the RowState of this new row is DataRowState.Added. Setting the UpdateCommand Property The modification of the UpdateCarPetName method is more or less identical. Simply build a new command object and plug it into the UpdateCommand property. Private Sub UpdateCarPetName ByVal dAdpater As SqlDataAdapter Dim carToUpdate As Integer 0 Dim newPetName As String Console.Write Enter CarID of car to modify Try carToUpdate Integer.Parse Console.ReadLine Catch ex As FormatException Console.WriteLine ex.Message Return End Try Console.Write Enter new pet name newPetName Console.ReadLine Dim sql As String _ String.Format Update Inventory Set PetName 0 Where CarID 1 _ newPetName carToUpdate Dim cmd As SqlCommand New SqlCommand sql cnObj dAdpater.UpdateCommand cmd Dim carRowToUpdate As DataRow _ dsCarInventory.Tables Inventory .Select String.Format CarID 0 _ carToUpdate carRowToUpdate 0 PetName newPetName Try dAdpater.Update dsCarInventory.Tables Inventory Catch Console.WriteLine Sorry Error Canceling request End Try End Sub In this case when you select a specific row via the Select method the RowState value of said row is automatically set to DataRowState.Modified. The only other point of interest here is that the Select method returns an array of