1 Mục lục 1 2 Làm quen với visual basic 0 9
Sử dụng đối tượng Field để thao tác với các trường
tải về 1.69 Mb.
|
- Điều hướng trang này:
- 13.4Sửdụng các phương thức duyệt với đối tượng Recorset
- 13.4.1Sử dụng BOF và EOF để duyệt qua Recordset
- 13.4.2Dùng BOF và EOF để xác định một Recordset có rỗng hay không
- 13.4.3Dùng thuộc tính RecordCout để xác định số mẩu tin trong một recordset
- 13.4.4Dùng phương thức Edit để sửa đổi giá trị trong một mẩu tin
- 13.4.5Sử dụng phương thức AddNew và Update để tạo mẩu tin mới
- 13.4.6Sử dụng AppendChunk để nối dữ liệu vào một trường nhị phân
- 13.4.7Sử dụng phương thức Close để đóng Recordset
13.3 Sử dụng đối tượng Field để thao tác với các trườngĐối tượng Field thể hiện một trường trong một cấu trúc dữ liệu. Các đối tượng TableDef, Recordset, Relation và Index đều chứa các tập hợp trường. Ta có thể lấy giá trị của một trường bằng cách kiểm tra giá trị của thuộc tính Value của một đối tượng Field . (Bởi vì thuộc tính Value là thuộc tính mặc định của đối tượng Field, ta chỉ cần tham chiếu đến đối tượng Field; ta không nhất thiết phải tham chiếu tường minh đến thuộc tính Value). 13.4Sửdụng các phương thức duyệt với đối tượng RecorsetSau khi tạo xong một đối tượng Recordset, ta có thể dùng các phương thức duyệt để di chuyển qua từng mẩu tin trong recordset. Ta chủ yếu thực hiện điều này trong trường hợp cần lấy về dữ liệu từ mọi mẩu tin trong một recordset, mặc dù ta còn có thể sử dụng chúng để cho phép người sử dụng chỉ duyệt qua các mẩu tin. Các phương thức duyệt của một đối tượng Recrdset gồm có:
13.4.1Sử dụng BOF và EOF để duyệt qua RecordsetNgoài các phương thức trên, đối tượng Recordset cung cấp 2 thuộc tính cho ta biết khi ta di chuyển về đầu hoặc về cuối recordset.
Hình 13.2 BOF và EOF trong một Recordset. Do until EOF ‘perform action on the data or read values from fields rs.MoveNext Loop
Bởi vì Jet xử lý truy vấn trên 2 giai đoạn. Giai đoạn đầu chỉ trả về dữ liệu đủ cho ứng dụng hoạt động mà không bị chậm trễ trong xử lý. Giai đoạn thứ hai thi hành bên dưới, trả về toàn bộ dữ liệu yêu cầu để truy vấn hoàn chỉnh. Jet thực hiện điều này chỉ nhằm mục tiêu tăng khả năng hoạt động, vì vậy, việc thi hành ứng dụng không bị cản trở trong khi chờ trả về một khối lượng dữ liệu lớn. Ta không điều khiển trực tiếp quá trình này, nhưng ta cần biết rằng nó tồn tại và cách thức làm việc với nó khi ta muốn biết chính xác có bao nhiêu mẩu tin đang có trong một recordset chẳng hạn. Option Explicit ' References: Microsoft DAO 3.51 Object Library Dim db As Database Private Sub Form_Load() Set db = OpenDatabase("..\..\db\novelty.mdb") End Sub
Private Sub cmdCount_click() Dim rs As Recordset Set rs = db.OpenRecordset("tblInventory") rs.MoveLast MsgBox "There are " & rs.RecordCount & _ " items in inventory.", vbInformation End Sub Lưu ý : Nếu muốn xác định số mẩu tin là 0 dùng thuộc tính BOF và EOF thay vì dùng RecordCount 13.4.4Dùng phương thức Edit để sửa đổi giá trị trong một mẩu tinTa có thể sửa đổi mâu tin hiện hành trong một đối tượng Recordset cập nhật được bằng cách dùng phương thức Edit và Update của recordset. muống sửa đổi giá trị của một trường trong một Recordset, theo các bước sau :
rs.Fields(“LastName”)= “Smith” hoặc
rs!LastName = “Smith”
13.4.5Sử dụng phương thức AddNew và Update để tạo mẩu tin mớiTa có thể tạo một mẩu tin mới trong đối tượng Recordset cập nhật được bất kỳ bằng cách dùng phương thức AddNew và Update. Tạo một mẩu tin mới trong một recordset là quá trình 3 bước:
Option Explicit ' References: Microsoft DAO 3.51 Object Library Private Enum TextBoxes txtProduct = 0 txtCatalogNumber = 1 txtWholesalePrice = 2 txtRetailPrice = 3 End Enum
Private db As Database Private rs As Recordset Private x As Integer Private Sub Form_Load() Set db = OpenDatabase("..\..\DB\novelty.mdb") Set rs = db.OpenRecordset("tblInventory") For x = txtProduct To txtRetailPrice TextBox(x).Enabled = False Next x cmdSave.Enabled = False cmdNew.Enabled = True End Sub
Private Sub cmdNew_Click() rs.AddNew ' Enable data entry controls For x = txtProduct To txtRetailPrice TextBox(x).Enabled = True Next x TextBox(txtProduct).SetFocus cmdSave.Enabled = True cmdNew.Enabled = False End Sub Private Sub cmdSave_Click() ' Map UI controls to fields rs.Fields("Product") = TextBox(txtProduct) rs.Fields("CatalogNumber") = TextBox(txtCatalogNumber) rs.Fields("WholesalePrice") = TextBox(txtWholesalePrice) rs.Fields("RetailPrice") = TextBox(txtRetailPrice) rs.Update ' Clear out UI For x = txtProduct To txtRetailPrice TextBox(x).Text = "" TextBox(x).Enabled = False Next x
cmdSave.Enabled = False cmdNew.Enabled = True End Sub
Khi ta gán một giá trị cho trường nhị phân trong chương trình, ta cần thi hành một số bước bổ sung để lấy dữ liệu trong trường. Bởi vì dữ liệu nhị phân không có chiều dài cố định như các kiểu dữ liệu khác; một mẩu dữ liệu nhị phân có thể lên đến hàng mega- byte hoặc hơn. Vì vậy, để đặt một mẩu dữ liệu nhị phân trong cơ sở dữ liệu, trước hết ta phải chia nó thành nhiều đoạn dữ liệu nhị phân, ta nối nó vào trường bằng cách dùng phương thức AppendChunk của đối tượng Field của recordset.
rs.Close
Điểm đặc biệt quan trọng khi đóng một đối tượng Recordset là nếu đối tượng đặt một khoá (lock) trên bảng . Đóng một Recordset sẽ nhả khoá ứng dụng thiết lập trên đối tượng cơ sở dữ liệu, cho phép người sử dụng khác truy cập đến nó. Lưu ý rằng trong DAO, Workspace, Connection, Database và QueryDef đều có phương thức Close Каталог: hungpn -> LaptrinhWindowsVB LaptrinhWindowsVB -> Kiến trúc ole db/ado LaptrinhWindowsVB -> ListView dùng để hiển thị danh sách các đối tượng theo nhiều hình thức thể hiện khác nhau. Ví dụ: trong cửa sổ Window Explorer, bên trái là danh sách các ổ đĩa và thư mục được tổ chức theo dạng cây sử dụng TreeView tải về 1.69 Mb. Chia sẻ với bạn bè của bạn:
|