Đang chuẩn bị nút TẢI XUỐNG, xin hãy chờ
Tải xuống
Để chứng minh mạnh mẽ bộ dữ liệu đánh máy có thể làm việc cùng với các đối tượng dữ liệu chung chung hơn, bây giờ bạn tạo một DataView lọc đối tượng GetPersonTable để nó chỉ chứa hàng phù hợp với ID: Bạn cũng nên trở về Không có gì nếu một bản ghi phù hợp không được tìm thấy: | Who Do You Call 16. To demonstrate how strongly typed datasets can work in conjunction with the more generic Data objects you now create a DataView that filters the GetPersonTable object so that it contains only the row that matches the ID Public Function GetPerson ByVal PersonlD As Integer As Person Dim GetPersonAdapter As New _PO_DataDataSetTableAdapters.PersonTableAdapter Dim GetPersonTable As New _PO_DataDataSet.PersonDataTable GetPersonAdapter.Fill GetPersonTable Dim PersonDataView As DataView GetPersonTable.DefaultView PersonDataView.RowFilter ID PersonID.ToString End Function You can now check the DataView to determine whether there are any matches. If there are more than zero then you know that there is only one because the ID field is unique . Create a new Person class and populate the properties with the corresponding fields from the database. You should also return Nothing if a matching record was not found Public Function GetPerson ByVal PersonlD As Integer As Person Dim GetPersonAdapter As New _PO_DataDataSetTableAdapters.PersonTableAdapter Dim GetPersonTable As New _PO_DataDataSet.PersonDataTable GetPersonAdapter.Fill GetPersonTable Dim PersonDataView As DataView GetPersonTable.DefaultView PersonDataView.RowFilter ID PersonID.ToString With PersonDataView If .Count 0 Then Dim objPerson As New Person With .Item 0 objPerson.ID CType .Item ID Integer objPerson.FirstName .Item NameFirst .ToString.Trim objPerson.LastName .Item NameLast .ToString.Trim objPerson.HomePhone .Item PhoneHome .ToString.Trim objPerson.CellPhone .Item PhoneCell .ToString.Trim objPerson.Address .Item Address .ToString.Trim objPerson.BirthDate CType .Item DateOfBirth Date objPerson.EmailAddress .Item EmailAddress .ToString.Trim objPerson.Favorites .Item Favorites .ToString.Trim objPerson.GiftCategories CType .Item GiftCategories Integer objPerson.Notes .Item Notes .ToString.Trim End With Return objPerson Else Return Nothing End If End With End Function 17. Now that you have the .
