Tham khảo tài liệu 'giáo trình access và ứng dụng part 7', công nghệ thông tin, cơ sở dữ liệu phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | strForRow - For Each fldMyField In strForRow strForRow fldMyField Next fldMyField strForRow Loop End Sub Một vài dòng đầu tiên và một vài dòng cuổi cùng trong mỗi thủ tục là xác định. Thủ tục EasyLoóp2 có một vòng lặp For lồng trong vòng lặp Do. Vòng lặp For bên ưong sẽ tổ hợp các trường trong một hàng và tạo ra một chuỗi với tất cà các giá trị cùa từng trường trên mỗi dòng chuỗi này được xoá sạch đầu mồi vòng lặp và bắt đầu được xử lý lại tương tự cho dòng khác . Lặp là một phương pháp đơn giản để thực thi một hành động trên mỗi dòng trong một recordset. Tuy nhiên đó không phải là cách hiệu quả nhất để đem lại giá trị. Thủ tục NoEasyLoop được trình bày sau đây dùng phương thức GetString để thu hồi và in ra tất cả các dòng của một recordset từng bước một. Phương thức GetString trả về một recordset như là một chuỗi. Nó cần truyền 5 tham số đoạn mã sau sẽ truyền 3 trong 5 tham số cần thiết. Ta cần tạo ra hằng số adClipString như là một tham số đâu tiên và đây cũng là lựa chọn duy nhất trong trường hợp này. Nó chỉ ra định dạng biểu diễn dữ liệu cho recordset là một chuỗi. Tham số thứ hai cho biểt số lượng hàng của recordset sẽ được trả về. Đoạn mã này trả về năm hàng. Nếu đặt tham số này trổng tức là ta sẽ thu hồi tất cả các hàng cùa recordset. Tham sổ thứ ba đặt một dẩu chẩm phẩy để phân cách các cột bên trong một hàng. Dấu phân cách mặc định là dấu tab. Các tham số thứ tư và tham số thứ năm không xuất hiện trong thủ tục dưới đây điều đó chỉ ra các dấu phân cách các cột và các biểu thức biểu diễn giá trị null và giá trị mặc định cho các tham so đó lằ các dấu xuống dòng và một xâu rỗng. 120 Sub NoEasyLoopO Dim reCustomers As Recordset Set reCustomers New J customers _ Provider _ Data Source C Program FilesVMicrosoft Office Office _ Samples Print records without a loop. adCiipString 5 reCustomers
