tailieunhanh - THIẾT KẾ BIỂU MẪU DÙNG CÁC ĐIỀU KHIỂN - CHỈ ĐỊNH VỊ TRÍ CƠ SỞ DỮ LIỆU - 7

Tham chiếu đến thư viện ADO bằng cách chọn Project\References\ActiveX Data Object Library. Chọn OK. Bước 4: Đặt một điều khiển ListBox lên Form (Name: lstName) Bước 4: Xử lý sự kiện Form_Load như sau: Set m_Connection = New = _ "File Name=C:\Program Files\Common Files\System\Ole DB\" Set m_RecordSet = New "Select Name FROM Publishers", m_Connection Do While Not m_RecordSet!Name Loop Bước 5: Chạy chương trình, điều gì xảy ra? Đoạn mã trên là một ví dụ điển hình về việc sử dụng phương thức Open để nhận về một tập hợp. | TT. Visual Basic Bước 3 Tham chiếu đến thư viện ADO bằng cách chọn Project References ActiveX Data Object Library. Chọn OK. Bước 4 Đặt một điều khiển ListBox lên Form Name lstName Bước 4 Xử lý sự kiện Form_Load như sau Set m_Connection New _ File Name C Program Files Common Files System Ole DB Set m_RecordSet New Select Name FROM Publishers m_Connection Do While Not m_RecordSet Name Loop Bước 5 Chạy chương trình điều gì xảy ra Đoạn mã trên là một ví dụ điển hình về việc sử dụng phương thức Open để nhận về một tập hợp các Records từ cơ sở dữ liệu. Bước 6 Thay vì khởi tạo đối tượng Connection nhờ đặt thuộc tính Connectionstring như trên dùng tập tin DataLink hãy khởi tạo đối tượng này như trong phần mô tả ở lý thuyết sử dụng thuộc tính Provider ConneclionSlring . Sau đó chạy chương trình. Nhận xét. Bài tập 6-4 LƯU RECORSET RA TẬP TIN Bước 1 Trước khi bắt đầu cần kiểm tra tập tin DataLink của bài 6-2 có được tạo ra hay là không Bước 2 Tạo một dự án mới trong VB ở thư mục Basic Bt6-4. Bước 3 Tham chiếu đến thư viện ADO bằng cách chọn Project References ActiveX Data Object Library. Chọn OK. Bước 4 Thêm một điều khiển mở rộng vào hộp công cụ Toolbox nhờ chọn Project Components. Chọn Microsoft Common Dialog Control và Microsoft DataGrid Control . Chọn OK. Bước 5 Tạo giao diện như sau Trang 91 TT. Visual Basic Hình Lưu Recordset ra tập tin 1 TextBox Name txtSQL MultiLine True. 2 CommandButton Name cmdTT Caption Thực thi. 3 CommandButton Name cmdLuu Caption Lưu tập tin 4 CommandButton Name cmdMo Caption Mở tập tin 5 DataGrid Name grdResult Ngoài ra chương trình còn có sử dụng hộp thoại mở lưu tập tin do đó ta thêm vào một Common Dialog vào ứng dụng với thuộc tính Name dlgFile. Bước 6 Khi chương trình thực thi mỗi khi người dùng nhập vào một câu lệnh SQL vào TextBox rồi nhấp chọn Thực thi câu SQL